Aide pour variable dans macros "Word"
Fermé
Gemboy
Messages postés
2
Date d'inscription
vendredi 19 septembre 2008
Statut
Membre
Dernière intervention
19 septembre 2008
-
19 sept. 2008 à 16:42
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 22 sept. 2008 à 09:53
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 22 sept. 2008 à 09:53
A voir également:
- Aide pour variable dans macros "Word"
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Word gratuit - Guide
- Symbole attention word ✓ - Forum Word
2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
19 sept. 2008 à 16:47
19 sept. 2008 à 16:47
Bonjour,
Une variable dans un code VBA (macro) n'est vivante que pendant l'exécution de la macro. Tu n'as pas besoin de la "deleter", lorsque la macro est terminée, la variable ne contient plus rien.
;o)
Une variable dans un code VBA (macro) n'est vivante que pendant l'exécution de la macro. Tu n'as pas besoin de la "deleter", lorsque la macro est terminée, la variable ne contient plus rien.
;o)
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
22 sept. 2008 à 09:53
22 sept. 2008 à 09:53
Bonjour,
Il faut passer les valeurs des variables en paramètres d'entrée de la macro :
;o)
Il faut passer les valeurs des variables en paramètres d'entrée de la macro :
Sub testMacro(ByVal nomFichier As String, ByVal fichierSave As String) ChangeFileOpenDirectory "C:\File 1\" Documents.Open FileName:=" & nomFichier & ", ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", _ Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, XMLTransform:="" etc ..
;o)
19 sept. 2008 à 17:36
Je suis au courant de la perte de la variable dans le VBA.
Mon problème ce situe autrement.
Lorsque je fait ma macro de façon automatique, tout fonctionne à merveille comme je le souhaite.
Je sauve cette macro, mais lorsque je désir me servir de nouveau de la macro, le numéro de dossier de récupération original "Open FileName, (exemple "10" dans le test Macro), demeure inscrit dans la macro ainsi que le nouveau numéro de dossier SaveAs FileName, (exemple "120DM12720014.rtf" dans test Macro).
Je cherche comment faire pour que le dossier de récupération "10" apparaisse comme variable dans la macro afin d'aller chercher un dossier avec numéro différant et non celui demeurent dans la macro.
Je désir également me servir du numéro pris dans mon document comme nouveau numéro de dossier. Ce numéro 120DM12720014.rtf varie d'un dossier à l'autre.
Je vous inclus ici mon essaie original.
' test Macro
'
'
ChangeFileOpenDirectory "C:\File 1\"
Documents.Open FileName:="10", ConfirmConversions:=False, ReadOnly:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
Selection.WholeStory
Selection.Font.Name = "Arial"
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=13
Selection.Cut
ChangeFileOpenDirectory "C:\File 2\"
ActiveDocument.SaveAs FileName:="120DM12720014.rtf", FileFormat:= _
wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub