[RESOLU] Variable dans une macro sous word [Résolu]

[RESOLU] Variable dans une macro sous word Macro VBA Word 2007: suppression de marques d [Résolu] (Résolu) » Forum - Word Macro sous word (Résolu) » Forum - Word [Macro VBA Word] Sélection signet et maj xls (Résolu) » Forum - VB / VBA Macro VBA word (Résolu) » Forum - VB / VBA Macro ouvrir word depuis excel (Résolu) » Forum - Programmation

Bonjour,

J'aimerai savoir comment faire appel à une variable dans un nom de fichier à enregistrer.
j'ai une macro pour enregistrer un fichier sous un autre nom, mais je ne sais pas incrémenter ma variable.


Sub PageMatin()
'
' PageMatin Macro
'
'
'Sélection des 16 premier caractères de la ligne Une (espace compris)
Set montexte = ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.Start + 16)
montexte.Copy
'création de la variable
Dim monFichier As String
'Appel de la variable
monFichier = montexte
'Enregistrement du fichier sous avec la variable dans le nom de fichier
ActiveDocument.SaveAs2 FileName:= _
"C:\CHEMIN\ICI_LA_VARIABLE.docx" _
, CompatibilityMode:=15
' ferme word
Application.Quit
End Sub

Merci


Forum

[RESOLU] Variable dans une macro sous word Macro VBA Word 2007: suppression de marques d [Résolu] (Résolu) » Forum - Word Macro sous word (Résolu) » Forum - Word [Macro VBA Word] Sélection signet et maj xls (Résolu) » Forum - VB / VBA Macro VBA word (Résolu) » Forum - VB / VBA Macro ouvrir word depuis excel (Résolu) » Forum - Programmation

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,
Je viens de trouver la solution.
Voici la macro finie et fonctionnelle.


Sub PageMatin()
'
' PageMatin Macro
'
'
'Sélection des 17 premiers caractères de la ligne Une (espace compris)
Set montexte = ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.Start + 17)
montexte.Copy
'création de la variable
Dim monFichier As String
'Appel de la variable
monFichier = montexte
'Enregistrement du fichier sous avec la variable dans le nom de fichier
ActiveDocument.SaveAs2 FileName:= _
"C:\CHEMIN\" & monFichier _
, CompatibilityMode:=15
' ferme word
Application.Quit
End Sub

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed