excel vers word

[roro69]

Bonsoir à tous;
Voilà depuis mon fichier excel je gère mes recettes de cuisine; et j'aimerais les récupèrer dans un document word et là je ne sais pas du tout faire;si quelqu'un pouvait m'aiguiller se serait sympa.
D'avance merci pour le temps consacré et l'aide apporté.
Bonne soirée à tous.

[tatiak]

Salut Roro
Recette de cuisine? Word<=>Excel?
Va voir le lien ICI
Ça devrait correspondre!
tatiak

[roro69]

Bonjour tatiak
Merci pour ton lien ;très interessant d'ailleurs;mais mon problème est l'inverse je souhaite récupèrer ma recette et ses ingrédients depuis excel pour l'envoyer dans world.
Merci encore pour l'interet porter.
A++

[tatiak]

Re
Alors pour écrire dans Wd depuis Xl, ici ma p'tite méthodologie.

Pour ce type de besoin, je crée un document word qui me sert de modèle (ici dans l'exemple ModèleDocument.doc, situé dans un sous répertoire Document), si besoin avec signet (nommé ici "SIGNET_A CREER_DANS_DOCUMENT_WORD") et tableau (ici un seul tableau donc wordDoc.tables(1)).

Dans un premier temps, la macro crée une instance Word et ouvre le modèle :

Sub Vers_Word()
Dim NDF As String, NDF2 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

    NDF = ActiveWorkbook.Path & "\ModèleDocument.doc"
    NDF2 = ActiveWorkbook.Path & "\Document" & Sheets("Feuil1").Range("A1").text & ".doc"
    
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)

A noter : on prévoit dès le début de sauvegarder le document avec un nom comportant ici le contenu de la cellule A1 (un nom de client par exemple) pour ne pas écraser le modèle.

Puis il convient d'écrire les données :
* pour écrire à partir du signet "SIGNET_A CREER_DANS_DOCUMENT_WORD" (ici le contenu de la cellule A2 :

    With WordApp
        .Visible = False
        .Selection.Goto What:=wdGoToBookmark, Name:="SIGNET_A CREER_DANS_DOCUMENT_WORD"
        .Selection.TypeText Text:= Sheets("Feuil1").Range("A2").Value

* pour écrire dans le tableau 1 ligne 1, colonne 2 (ici le contenu de la cellule A3) :

        With WordDoc.Tables(1)
            .Cell(1, 2).Range.InsertAfter Sheets("Feuil1").Range("A3").Value
        End With

Ne pas oublier de sauvegarder le document sous le nom défini précédemment :

    WordDoc.Application.ActiveDocument.SaveAs NDF2

Enfin, il convient de fermer le tout proprement et de libérer la mémoire en mettant les variables à zéro :

    WordApp.Application.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing

Ce qui donne au global :

Sub Vers_Word()
Dim NDF As String, NDF2 As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

    NDF = ActiveWorkbook.Path & "\ModèleDocument.doc"
    NDF2 = ActiveWorkbook.Path & "\Document" & Sheets("Feuil1").Range("A1").text & ".doc"
    
    On Error Resume Next
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
    
    With WordApp
        .Visible = False
        .Selection.Goto What:=wdGoToBookmark, Name:="SIGNET_A CREER_DANS_DOCUMENT_WORD"
        .Selection.TypeText Text:= Sheets("Feuil1").Range("A2").Value

        With WordDoc.Tables(1)
            .Cell(1, 2).Range.InsertAfter Sheets("Feuil1").Range("A3").Value
        End With
    End With
    
    WordDoc.Application.ActiveDocument.SaveAs NDF2
    WordApp.Application.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing

End Sub

La référence MS Word machin est activéé bien sûr!
Et voili!
tatiak

[roro69]

Rebonjour Tatiak;
Merci beaucoup pour cette aide;je vais me pencher la dessus pour essayer tout çà.
En tout cas un grand merci pour le temps consacrer.
Bonne journée.
Bon 1ER MAI à vous tous.

[titite_fat]

Bonjour,

J'ai voulu m inspirer de ce qui a été mis en code plus haut mais j'y arrive pas.
En fait je dispose d'un fichier excel avec 4 feuilles,la 3ème feuille contient ma base de données de prix qui me permettent de configurer mon offre.Dans la 4ème feuille je configure le système comme je le souhaite.
Je voudrais avoir un bouton sur ma dernière feuille qui me permettes de reporter les references ainsi que les prix directement sur un word.
Je sais qu il faut créer un fichier word avec des signets, mais comment faire tout ca??
merci pour vos reponses

[titite_fat]

help!!! svp j attends votre aide

[tatiak]

Hello
Ben y suffit d'appliquer la méthodo expliquée plus haut
Si tu veux, mets un p'tit fichier exemple simplifié de ton besoin + doc à remplir, et j'te donne des pistes
tatiak

[titite_fat]

Bonjour,

J'ai pas reussi à joindre le fichier car il est assez gros meme en le zipant.
D'abord une petite question, en fait le code pour faire appel a un document word j'ai procede de cette manière:
Dans la boite à outils de controle:j'ai crée un bouton de commande et j'ai inseré dedans le code mais ca marche pas.
Ou ce que je devrais le mettre alors?

[titite_fat]

svp, j arrive pas a avancer, faites moi profiter de votre savoir

[tatiak]

Salut,
Soit pas impatient, ici tu ne trouvera que des bénévoles, et pour la plupart on bosse pendant la journée et on ne vient ici que le soir
Tiens regarde dans l'exemple joint, un double-clic sur une référence de la colonne J renseigne un doc qui est renommé par la suite. Ca devrait t'aider
tatiak