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