Discussion :

[alexisgaudetpro]

Bonjour,

Voici la situation :

- J'ai de nombreux signets dans un fichier Word.
- Je souhaite les renommer.

Ma solution :

- Je viens lister tous les signets du fichier Word dans un fichier Excel via une première macro. (Liste dans une colonne A admettons)
- Je renomme mes signets via certaines conditions et je place les signets renommés dans une colonne B.
- J'applique la macro suivante ensuite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For Each aBookmark In Wd.Bookmarks
 
    With Sheets("Edition_Fonctions")
 
        For i = 1 To .Range("A1000").End(xlUp).Row
 
            If aBookmark.Name = .Cells(i, 1).Value Then
 
                aBookmark.Range.Select
                aBookmark.Delete
 
                Wd.Bookmarks.Add Name:=.Cells(i, 2).Value, Range:=Selection.Range
 
            End If
 
        Next i
 
    End With
 
Next aBookmark

Et là, c'est le drame :

Erreur '450' :

Nombre d'arguments incorrect ou affectation de propriété incorrecte.


J'ai essayé pas mal de choses mais en vain.

J'en appelle à l'aide.

Merci beaucoup.

Alexis

[alexisgaudetpro]

J'ai trouvé, il me manquait un café.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For Each aBookmark In Wd.Bookmarks
 
    With Sheets("Edition_Fonctions")
 
        For i = 1 To .Range("A1000").End(xlUp).Row
 
             If aBookmark.Name = .Cells(i, 1).Value Then
 
                aBookmarkNewName = .Cells(i, 2).Value
 
                Wd.Bookmarks.Add Name:=aBookmarkNewName, Range:=aBookmark.Range
 
                aBookmark.Delete
 
                Exit For
 
            End If           
 
        Next i
 
    End With
 
Next aBookmark