Thread
:
sauvegarde d'une feuille
View Single Post
#
4
Posted to microsoft.public.excel.programming
FxM
external usenet poster
Posts: 9
sauvegarde d'une feuille
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
a écrit :
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
Reply With Quote
FxM
View Public Profile
Find all posts by FxM