Bonjour,
Je suis débutant dans vba et j'ai un problème dans ma formule. Je n'arrive pas à voir laquelle...
Je cherche à automatiser des cellules excel vers des signets spécifiques sur Word, voici ma formule :
Sub ouvrir()
ActiveWorkbook.FollowHyperlink "C:\Users\021284\Desktop\Travail vacances Lucile\test.docx"
'numéro des colonnes comprenant les données
champs = Array(1, 2)
'tableau des signets du fichier type
signets = Array("a", "b")
'écriture des signets
For Each i In champs
doc.Bookmarks(signets(i - 1)).Range = Sheets("feuil1").Cells(ActiveCell.Row, i)
Next
w.Visible = True
End Sub
La ligne surlignée en jaune ne fonctionne pas... Je vous envoie en pièce jointe un exemple.
Votre aide sera précieuse !
Merci par avance !