Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur sur SAVE AS

Erreur sur SAVE AS

1 réponse
Avatar
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:\juridique\2561"
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:\juridique\2561\" + Nomfic1 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
Sheets("2561T fdf").Select
ActiveWorkbook.SaveAs Filename:= _
"L:\juridique\2561\" + Nomfic2 + ".fdf", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
End Sub


--
.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
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" a écrit dans le message de news:

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


--
.