Macro Word "enregistrer sous"
Tetaclacs
Messages postés
2
Statut
Membre
-
Tetaclacs Messages postés 2 Statut Membre -
Tetaclacs Messages postés 2 Statut Membre -
Bonjour,
Je génère des documents word en grande quantité à partir de fichiers déja existants auxquels j'apporte une simple modification ; je dois ensuite les enregistrer dans un autre répertoire.
J'ai enregistré la macro suivante :
ActiveDocument.SaveAs FileName:="nom_fichier.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub
Elle fonctionne, les fichiers sont enregistrés dans le bon répertoire, mais tous les fichiers sont enregsitrés sous le même nom, écrasant le fichier précédent à chaque nouvel enregistrement. Je voudrais tout simplement enregistrer en conservant le nom initial du fichier.
Merci de votre aide.
Je génère des documents word en grande quantité à partir de fichiers déja existants auxquels j'apporte une simple modification ; je dois ensuite les enregistrer dans un autre répertoire.
J'ai enregistré la macro suivante :
ActiveDocument.SaveAs FileName:="nom_fichier.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub
Elle fonctionne, les fichiers sont enregistrés dans le bon répertoire, mais tous les fichiers sont enregsitrés sous le même nom, écrasant le fichier précédent à chaque nouvel enregistrement. Je voudrais tout simplement enregistrer en conservant le nom initial du fichier.
Merci de votre aide.
A voir également:
- Macro Word "enregistrer sous"
- Word 2013 - Télécharger - Traitement de texte
- Audacity enregistrer son pc - Guide
- Tableau word - Guide
- Word et excel gratuit - Guide
- Espace insécable word - Guide
2 réponses
remplace "nom_fichier.doc" par ActiveDocument.Name & ".DOC"
ActiveDocument.SaveAs FileName:=ActiveDocument.Name & ".DOC", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub
ActiveDocument.SaveAs FileName:=ActiveDocument.Name & ".DOC", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
End Sub
