erreur 1004

[Sub]

Bonjour ! J'utilise dans un module VBA la commande suivante : ActiveWorkbook.SaveAs Filename:="C:\" & fichier, FileFormat:= _
xlTextPrinter,CreateBackup:=False afin de sauvegarder une feuille excel en fichier texte ; le probleme est que je protege mon module VBA par mot de passe et ça me genere une erreur " 1004 : la methode save as a echoué. Quelqu'un a -t-il une solution pour résoudre ce probleme ?

 

[yeahou]

Salut Sub, le forum

ton problème vient du fait que la méthode enregistrer sous change le type du classeur actif, qu'un fichier texte ne peut contenir de macro et que le fichier à modifier contient la macro qui le modifie ce qui provoque le plantage. Tu peux contourner facilement en copiant la feuille à sauver dans un nouveau classeur avant le saveas.

Cordialement, A+

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(nomfeuilleasauver).Copy
fichier = chemin & nomfichierfinal
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close

 

[Sub]

ok, merci beaucoup pour ta reponse