Bonjour,

J'ai essayé de faire la macro qui suit, sous excel 2007 et j'ai une erreur que je n'arrive pas à resoudre (les lignes précédentes fonctionnent toutes).


à la ligne :
WordDoc.Bookmarks("titre").Range.Text = Cells(1, 1)

erreur '91':
Variable objet ou variable de bloc With non définie.

Côté word j'ai fait :
Insertion > Signet > "le nom du signet" > ajouter

(J'ai activé la "word librairy" dans excel et cette macro marchai pour celui qui l'a proposé)
merci pour votre aide


sub export_données_dans_signet_word()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open("H:\chemin du fichier") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules
WordDoc.Bookmarks("nom du signet").Range.Text = Cells(numéro de ligne, numéro de colonne)
WordDoc.Bookmarks("nom du second signet").Range.Text = Cells(numéro de ligne, numéro de colonne)
etc...

WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'si on veut imprimer

'WordDoc.Close True 'si on veut fermer le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub