Macro d'enregistrement Word - VB/VBA/VBS - Programmation
MarshPosté le 09-02-2014 à 18:42:25
Bonjour ,
J'aimerais créer une macro dans Word qui enregistre automatiquement un fichier avec un nom specifique (année,mois,jour Bon de sortie Numéro de série) Le problème se pose pour pour le numéro de série saisie dans mon document word j'aimerais le récupérer dans une variable et qu'il utilise cette variable pour le nom d'enregistrement de mon ficher Voila mon code pour l'instant : Sub Bon_desinvestisement() ' ' Bon_de_sortie Macro ' ' ChangeFileOpenDirectory "C:\Users\Kyle\BTS\" ActiveDocument.SaveAs FileName:= _ Format(Date, "yyyy" ) & "," & Format(Date, "mm" ) & "," & Format(Date, "dd" ) & "_Bon de sortie", FileFormat _ :=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub
Marsh Posté le 09-02-2014 à 18:42:25
Bonjour ,
J'aimerais créer une macro dans Word qui enregistre automatiquement un fichier avec un nom specifique (année,mois,jour Bon de sortie Numéro de série)
Le problème se pose pour pour le numéro de série saisie dans mon document word j'aimerais le récupérer dans une variable et qu'il utilise cette variable pour le nom d'enregistrement de mon ficher
Voila mon code pour l'instant :
Sub Bon_desinvestisement()
'
' Bon_de_sortie Macro
'
'
ChangeFileOpenDirectory "C:\Users\Kyle\BTS\"
ActiveDocument.SaveAs FileName:= _
Format(Date, "yyyy" ) & "," & Format(Date, "mm" ) & "," & Format(Date, "dd" ) & "_Bon de sortie", FileFormat _
:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub