Discussion :

[christian.combeau]

Bonjour,

J'ai créé une macro WD pour enregistrer des fichiers .mht en fichiers .htm dans un document. Cela fonctionne sauf que lorsque je prend un autre fichier pour effectuer la même opération j'écrase le fichier précédemment enregistré.
Pas facile à expliquer je vous joins le detail de ma macro.
merci de ce que vous pourez faire si j'ai réussi à me faire comprendre.
Je suis nouveau j'espère être dans la bonne rubrique!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
'
'
    ChangeFileOpenDirectory _
        "T:\DAT\DME\S.ADMINISTRATIONS CENTRALES\Action 062010\ActionsLAC062010\"
    ActiveDocument.SaveAs2 FileName:= _
        "T:\DAT\DME\S.ADMINISTRATIONS CENTRALES\Action 062010\ActionsLAC062010\31_alarme31AlimOndu_BatB_rdc.htm" _
        , FileFormat:=wdFormatFilteredHTML, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=0
End Sub

[Heureux-oli]

Salut,

Logique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"T:\DAT\DME\S.ADMINISTRATIONS CENTRALES\Action 062010\ActionsLAC062010\31_alarme31AlimOndu_BatB_rdc.htm"

Ce petit morceau de texte représente le nom du fichier et si tu ne le change pas, il sauve toujours avec le même nom.

[christian.combeau]

Merci Heureux-oli de prendre en considération ma question, mais alors comment faire en sorte qu'il change automatiquement (avec un N° différent par exemple )

[Heureux-oli]

Salut,

Il faut une boucle qui va incrémenter une variable et utiliser par concaténation cette variable pour le nom.

http://heureuxoli.developpez.com/office/word/vba-all/

[christian.combeau]

Merci Heureux-oli

Je suis allé sur ton site et j'ai appris beaucoup (surtout pour un novice comme moi) mais je n'ai encore pas réussi à écrire ma macro correctement. je persiste en espérent que je finirai par trouver ! Encore merci de m'avoir répondu .

[Heureux-oli]

Salut,

tu peux toujours poster ton code et on verra ce qu'on peut faire pour t'aider à avancer.