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