Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
sauvegarde d'une feuille
Bonjour,
j'utilise la macro suivante pour sauvegarder une feuille de mon classeur dans un autre fichier. Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Copy ActiveWorkbook.SaveAs "g:\Macro\ContratsYen.xls" ActiveWorkbook.Close False End Sub J'aimerais pouvoir dire à la macro: Si le directory g: n'existe pas, alors sauvegarde la feuille dans le directory h:\Macro\ContratsYen.xls Que dois-je ajouter à ma macro pour faire cela? Merci MP |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
sauvegarde d'une feuille
Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA"
(ByVal pszPath As String) As Long Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Copy If PathFileExists("g:\Macro\ContratsYen.xls") Then ActiveWorkbook.SaveAs "g:\Macro\ContratsYen.xls" Else ActiveWorkbook.SaveAs "h:\Macro\ContratsYen.xls" End If ActiveWorkbook.Close False End Sub " wrote: Bonjour, j'utilise la macro suivante pour sauvegarder une feuille de mon classeur dans un autre fichier. Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Copy ActiveWorkbook.SaveAs "g:\Macro\ContratsYen.xls" ActiveWorkbook.Close False End Sub J'aimerais pouvoir dire Ã* la macro: Si le directory g: n'existe pas, alors sauvegarde la feuille dans le directory h:\Macro\ContratsYen.xls Que dois-je ajouter Ã* ma macro pour faire cela? Merci MP |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
sauvegarde d'une feuille
Bonjour,
Cette partie du code ne fonctionne pas: Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long ??? Merci beaucoup MP AA2e72E a écrit : Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Copy If PathFileExists("g:\Macro\ContratsYen.xls") Then ActiveWorkbook.SaveAs "g:\Macro\ContratsYen.xls" Else ActiveWorkbook.SaveAs "h:\Macro\ContratsYen.xls" End If ActiveWorkbook.Close False End Sub " wrote: Bonjour, j'utilise la macro suivante pour sauvegarder une feuille de mon classeur dans un autre fichier. Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Copy ActiveWorkbook.SaveAs "g:\Macro\ContratsYen.xls" ActiveWorkbook.Close False End Sub J'aimerais pouvoir dire à la macro: Si le directory g: n'existe pas, alors sauvegarde la feuille dans le directory h:\Macro\ContratsYen.xls Que dois-je ajouter à ma macro pour faire cela? Merci MP |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
sauvegarde d'une feuille
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copier la valeur d'une cellule dans une formule d'une autre cellul | Excel Discussion (Misc queries) | |||
EXCEL-Renseigner Cellules par clic sur cellule, qui ouvre ComboBox renseignée par liste dans feuille de calcul ou d'Access Trié Filtré | Excel Programming | |||
"Compilation" d'une feuille Excel / Compiling an excel sheet | Excel Programming | |||
recherche et affichage d'une image | Excel Programming | |||
recherche et affichage d'une image | Excel Programming |