Discussion :

[guenfood]

Bonjour,

J'ai un document word dans lequel j'ai un signet.
Je cherche par VBA à automatiser la sauvegarde du document en récupérant la valeur du signet.

J'ai essayé avec ceci

Code :

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

ActiveDocument.SaveAs "U:\WorkArea\Application Data\BANK\Codex\" & Bookmarks("Nomsauvegarde") & ".doc"

"Nomsauvegarde" étant le nom du signet.
Mais cela ne marche pas.

Comment puis-je procéder pour arriver à ce que je souhaite ?

Merci d'avance.

[Vesta]

C une bonne voie...

Essaie de voir les propriétés de l'objet Bookmarks("Nom")

[guenfood]

J'ai déjà regardé, mais je sèche.

Quand j'exécute, cela me donne le message d'erreur "Erreur de compilation : Sub ou function non définie"

Pourtant, j'ai bien mon "Sub Macro1()" et mon "End Sub" entre le code !!!

[Vesta]

essaie en déclarant une variable bookmark et tu dis

Code :

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

1
2
 
variable = bookmarks ("nom")

[guenfood]

Je deviens dingue.

J'ai rajouté ceci :

Code :

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

1
2
Dim variable
   variable = Bookmarks("Nomsauvegarde")

Mais j'ai toujours le même message d'erreur avec "Bookmarks" surligné en jaune !!!

Est-ce un problème de référence qui ne serait pas cohé ??

[Vesta]

Code :

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

1
2
3
4
5
Dim bb As Word.Bookmark
 
Set bb = ActiveDocument.Bookmarks("Nomsauvegarde")
 
ActiveDocument.SaveAs "U:\WorkArea\Application Data\BANK\Codex\" & bb.Range.Text & ".doc"