Les Allergies
Alimentaires
Posez votre question Signaler

Macro Word "enregistrer sous"

Tetaclacs 2Messages postés 7 août 2008Date d'inscription - Dernière réponse le 8 août 2008 à 09:24
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.
Lire la suite 

Macro Word "enregistrer sous" »

2 réponses
Réponse
+1
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
Merci, merci et encore merci !!!!
Ca marche parfaitement, je gagne un temps fou !
J'ai juste dû supprimer &"DOC" sinon, j'avais 2 .doc à la suite, mais ça, c'était à ma portée ;)
Ajouter un commentaire
Ce document intitulé « Macro Word "enregistrer sous" » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?