Z
zrd
Guest
conversion macro XL2000 -> XL97
Bonjour,
Voici la macro qui focntionne impeccable sous XL2000 mais qui pose pb sous XL97, je ne connais pas assez VBA pour savoir ou se situe le pb.
Sous XL97 le nom du fochier devient par ex : 41dc1000 OU F7081000 sans extension.
La macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom As String
Nom = "\\Jerry\ici\" & [dept] & "_" & [et] & "_" & [DA] & "-" & [RA] & "_" & [rs] & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Nom
Application.DisplayAlerts = True
End Sub
Meci de vote aide
@+
Bonjour,
Voici la macro qui focntionne impeccable sous XL2000 mais qui pose pb sous XL97, je ne connais pas assez VBA pour savoir ou se situe le pb.
Sous XL97 le nom du fochier devient par ex : 41dc1000 OU F7081000 sans extension.
La macro :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom As String
Nom = "\\Jerry\ici\" & [dept] & "_" & [et] & "_" & [DA] & "-" & [RA] & "_" & [rs] & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Nom
Application.DisplayAlerts = True
End Sub
Meci de vote aide
@+
