Rapport Word à partir d'Excel

Bonjour à tous,

Je suis actuellement en train "d'apprendre" la pratique VBA, notamment via les cours proposés sur ce site.

Je reste donc un débutant, ainsi, si vous jugez que ce que je cherche à réaliser est bien trop compliqué pour un débutant, faites le moi savoir

Grossièrement, j'ai une trame d'un rapport Word, que je complète actuellement en faisant des copier/coller de mes tableaux provenant d'Excel.

Dans l'idée, j'aimerais, une fois mon document Excel rempli, avoir un bouton sur le doc Excel me permettant, en cliquant dessus, de générer un document Word reprenant ma trame et insérant directement les tableaux concernés.

Je cru comprendre que cela peut être réalisable en utilisant des signets, mais je précise que je rédige plusieurs rapports différents, donc la trame ne doit pas être modifiée, on serait alors plus sur de la création d'un nouveau document word.

Si vous avez d'autres propositions ou idées, je suis évidemment preneur.

Evidemment, j'ai cherché des réponses sur le forum, mais je n'en ai pas trouvé. Ainsi, si cela vous rappel vaguement un post déjà publié, premièrement je m'en excuse, et deuxièmement, si vous avez la référence…

En tout cas, merci à vous, et merci surtout au travail que vous réalisez.

Bien cordialement à vous!

Bonjour,

Un exemple d'Excel vers Word. Le code crée une instance de Word (référencer Microsoft Word dans le menu VBA Outils-Références). Le modèle dotx ou dotm utilisé doit contenir les signets mis à jour à partir des cellules Excel.

Sub CreationCalqueWord()

Dim wdapp As Word.Application, WdDoc As Word.Document
Dim Sh As Worksheet

     Set Sh = ActiveSheet  ' A adapter
     Set wdapp = New Word.Application

    With wdapp
         .Visible = True
         .Activate
         Set WdDoc = .Documents.Add(ActiveWorkbook.Path & "\Calque Word.dotx")
    End With

    With WdDoc
         .Bookmarks("Nom").Range.Text = Sh.Cells(2, "E").Value
         .Bookmarks("Prénom").Range.Text = Sh.Cells(2, "F").Value
         .Bookmarks("DATETEST").Range.Text = Sh.Cells(2, "B").Value
         .Bookmarks("DDN").Range.Text = Sh.Cells(2, "H").Value
         .Bookmarks("français").Range.Text = Sh.Cells(2, "BT").Value
         .Bookmarks("math").Range.Text = Sh.Cells(2, "EC").Value
         .Bookmarks("CG").Range.Text = Sh.Cells(2, "FR").Value
         .Bookmarks("total").Range.Text = Sh.Cells(2, "FS").Value

         ' .Saveas Filename:= "XXXX"
         '.Close

   End With

   'wdapp.Quit

   Set wdapp = Nothing
   Set Sh = Nothing

End Sub

Bonjour,

Je te remercie pour ce retour.

Apres avoir testé et essayé pendant plusieurs jour, je n'arrive pas à résoudre ce message d'erreur: Erreur d'exécution '5174'

Désolé...Nous n'avons pas trouvé votre fichier. Peut-être l'avez vous déplacé, renommé ou supprimé?

Pourtant, je trouve bien mon document word.dotm avec les signets dedans sur le bon chemin...

Avez vous des pistes sur ce sujet?

Bien cordialement

Pouvez-vous mettre votre code en ligne ?