sauvegarde d'une feuille

[mboileau]

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

 

[AA2e72E]

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

 

[mboileau]

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 :

 

[FxM]

Bonjour,

Mets tout ce texte sur une seule ligne.
BTW, tu es sur un forum anglophone. Tu connais m.p.F.e en français.

HTH
FxM


(e-mail address removed) a écrit :

 

[mboileau]

C'est bon j'ai trouvé

Merci encore
MP


(e-mail address removed) a écrit :