anthony.unac
XLDnaute Occasionnel
Bonjour,
Voici un code qui fonctionnait tres bien au demeurant et qui ne fonctionne plus avec mon nouveau fichier :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nomfichier
chemin = "C:\Documents and Settings\Administrateur\Bureau\"
nomfichier = "Fiche de Liaison du " & Format(Feuil1.[A1], "dd.mm.yy") & ".xls"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
End Sub
J aimerais comprendre pourquoi excel me balance le message d'erreur suivant : Excel doit fermer etc...
Cordialement
Anthony
PS: A noter qu en faisant un enregistrer sous de facon manuel, il ne bronche pas 😕
Voici un code qui fonctionnait tres bien au demeurant et qui ne fonctionne plus avec mon nouveau fichier :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nomfichier
chemin = "C:\Documents and Settings\Administrateur\Bureau\"
nomfichier = "Fiche de Liaison du " & Format(Feuil1.[A1], "dd.mm.yy") & ".xls"
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
End Sub
J aimerais comprendre pourquoi excel me balance le message d'erreur suivant : Excel doit fermer etc...
Cordialement
Anthony
PS: A noter qu en faisant un enregistrer sous de facon manuel, il ne bronche pas 😕