OVH Cloud OVH Cloud

blocage macro si protection

1 réponse
Avatar
PG49
Bonjour à tous,

Environnement Windows XP pro SP2
Excel 2000 SP3

Je ne comprends pas pourquoi lorsque VBAproject est verrouillé par mot de
passe, l'erreur ci dessous apparaît pour l'exécution de la macro (ci dessous
dessous) pourtant simple. Lorsque j'enlève la protection, pas de problème
???

Erreur d'execution '1004':
La méthode 'SaveAs' de l'objet '_Workbook' a échoué


Sub controle1003()
nomcli = Range("B6")
ann = Year(Range("E12")) + 2
Feuil7.Select
ActiveWorkbook.SaveAs Filename:= _
"W:\études\import_eic\CTRL " & ann & " " & nomcli & ".csv",
FileFormat:=xlCSV _
, CreateBackup:=False
End Sub

Merci et bonnes fêtes de fin d'année

1 réponse

Avatar
michdenis
Bonjour PG49,

Quand tu enregistres une feuille de calcul sous l'extension .Csv, seule l'information
de la feuille de calcul est sauvegardé... le projetVBA est exclu. Ceci a pour
effet de modifier la composition du projetVBA lui-même .... et comme le projet
est verrouillé, ce dernier ne peut être modifié...de la même façon si tu
modifiais le contenu d'une macro.... lorsqu'un projet vba est verrouillé,
impossible de procéder.


Salutations!


"PG49" a écrit dans le message de news:
Bonjour à tous,

Environnement Windows XP pro SP2
Excel 2000 SP3

Je ne comprends pas pourquoi lorsque VBAproject est verrouillé par mot de
passe, l'erreur ci dessous apparaît pour l'exécution de la macro (ci dessous
dessous) pourtant simple. Lorsque j'enlève la protection, pas de problème
???

Erreur d'execution '1004':
La méthode 'SaveAs' de l'objet '_Workbook' a échoué


Sub controle1003()
nomcli = Range("B6")
ann = Year(Range("E12")) + 2
Feuil7.Select
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicCTRL " & ann & " " & nomcli & ".csv",
FileFormat:=xlCSV _
, CreateBackup:úlse
End Sub

Merci et bonnes fêtes de fin d'année