Cellule Excel automatisé dans un word
Bonjour,
J'aurais besoin d'un besoin d'un petit coup de pouce sur VBA ! En fait, j'aimerai que certaines cellules de mon excel apparaissent dans mon fichier word à des endroit précis. Mon niveau encore trop faible sur VBA m’empêche de trouver une solution..
Merci d'avance en tout cas !
Vous trouvez un exemple en pièce jointe de ce que je veux faire sur word.
Voici l'une des solutions que j'ai trouvé, mais je n'arrive pas à l'appliquer à mon cas :
Sub deb()
chemin = ThisWorkbook.Path & "\"
'Ouverture de l'application word
Set w = CreateObject("word.application")
'ouverture du fichier type
Set doc = w.documents.Open(chemin & ThisWorkbook.Names("fichier").RefersToRange)
'numéro des colonnes comprenant les données
champs = Array(1, 2, 3)
'tableau des signets du fichier type
signets = Array("Nom", "Date", "Créateur")
'écriture des signets
For Each i In champs
doc.bookmarks(signets(i - 1)).Range = Sheets("données").Cells(ActiveCell.Row, i)
Next
w.Visible = True
End Sub