Pour les besoins d'une petite appli sous Excel/Word je dois r=E9cup=E9rer l=
es valeurs de plusieurs cellules adjacentes d'une m=EAme ligne afin d'alime=
nter des signets. Cela donne quelque chose comme =E7a :
With wDoc
.Bookmarks("Num_EVO").Range.Text =3D Num_EVO
.Bookmarks("Date").Range.Text =3D Date_Cr=E9ation
.Bookmarks("R=E9f=E9rence").Range.Text =3D R=E9f=E9rence
etc...
End With
J'aurais voulu boucler sur mes cellules afin d'all=E9ger le code :
With wDoc
for i=3D0 to 999
.Bookmarks(i).Range.Text=3DRange("A65000").End(xlUp).Offset(0, i)
next
end with
..... Mais Word refuse le num=E9rique comme nom de signet.
Y a-t-il un moyen de contourner =E7=E0 ??