Erreur sur SAVE AS

Le
PG49
Bonjour,

Pourquoi lorsque j'execute une macro (voir plus bas)

Si la macro est protégée par mot de passe j'ai le message d'erreur suivant :

Erreur d'exécution '1004' :
La méthode 'SaveAS' de l'objet '_Workbook' a échoué

Si la macro n'est pas protégée je n'ai pas de message d'erreur et tout se
passe bien.

Voici ma macro :

Sub generFDF()
ChDir "L:juridique2561"
Nomfic1 = Sheets("2561").Range("Z1") & "2561 " &
Sheets("2561").Range("Z2")
Nomfic2 = Sheets("2561").Range("Z1") & "2561T " &
Sheets("2561").Range("Z2")
Sheets("2561 fdf").Select
ActiveWorkbook.SaveAs Filename:= _
"L:juridique2561" + Nomfic1 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:úlse
Sheets("2561T fdf").Select
ActiveWorkbook.SaveAs Filename:= _
"L:juridique2561" + Nomfic2 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:úlse
End Sub


--
.
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5153741
Bonjour.
Tu n'as pas l'air d'être tout à fait seul dans ton cas. Essaie de contourner
en copiant la feuille à sauvegarder dans un nouveau classeur et fais une
sauvegarde de ce nouveau classeur comme fichier texte.
Cordialement.
Daniel
"PG49"
Bonjour,

Pourquoi lorsque j'execute une macro (voir plus bas)

Si la macro est protégée par mot de passe j'ai le message d'erreur suivant
:

Erreur d'exécution '1004' :
La méthode 'SaveAS' de l'objet '_Workbook' a échoué

Si la macro n'est pas protégée je n'ai pas de message d'erreur et tout se
passe bien.

Voici ma macro :

Sub generFDF()
ChDir "L:juridique2561"
Nomfic1 = Sheets("2561").Range("Z1") & "2561 " &
Sheets("2561").Range("Z2")
Nomfic2 = Sheets("2561").Range("Z1") & "2561T " &
Sheets("2561").Range("Z2")
Sheets("2561 fdf").Select
ActiveWorkbook.SaveAs Filename:= _
"L:juridique2561" + Nomfic1 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:úlse
Sheets("2561T fdf").Select
ActiveWorkbook.SaveAs Filename:= _
"L:juridique2561" + Nomfic2 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:úlse
End Sub


--
.



Publicité
Poster une réponse
Anonyme