Nom de signet basé sur des chiffres

Bonjour le forum,

Pour les besoins d'une petite appli sous Excel/Word je dois récupérer l=
es valeurs de plusieurs cellules adjacentes d'une même ligne afin d'alime=
nter des signets. Cela donne quelque chose comme ça :

Num_EVO = Range("A65000").End(xlUp).Offset(0, 0)
Date_Création = Range("A65000").End(xlUp).Offset(0, 1)
Référence = Range("A65000").End(xlUp).Offset(0, 2)
Désignation = Range("A65000").End(xlUp).Offset(0, 3)
etc

With wDoc
.Bookmarks("Num_EVO").Range.Text = Num_EVO
.Bookmarks("Date").Range.Text = Date_Création
.Bookmarks("Référence").Range.Text = Référence
etc
End With

J'aurais voulu boucler sur mes cellules afin d'alléger le code :
With wDoc
for i=0 to 999
.Bookmarks(i).Range.Text=Range("A65000").End(xlUp).Offset(0, i)
next
end with

.. Mais Word refuse le numérique comme nom de signet.
Y a-t-il un moyen de contourner çà ??

Merci d'avance,

ThierryP

---

• Partager ce contenu :