Ecrire sous word a partir d'excel urgent!

Question

Bonjour
   J'envoie certaine donn&#233;es qui sont dans un tableau d'excel vers une lettre type word.
j'arrive &#224; envoyeer les donn&#233;es mais je voudrais savoir comme faire pour les envoyer &#224; un endroit pr&#233;cis comme cela se fait par le biais d'un publipostage.Pour l'instant la mise en page se fait dans mon code (ex : chr$(13)...ect). Si par exemple j'ai dans ma lettre "NOM " , comment faire pour remplacer nom par la donn&#233;es d'excel souhait&#233;e.
Merci de m'aider c'est tr&#232;s important.

Voici mon code : 
Private Sub BtnOpenDoc_Click()


    'D&#233;claration des variables
    Dim FicDoc As Object
    Dim i, cpt As Integer
    Dim NomFic As String
    Dim Test As Boolean
    
    'Affectation de valeurs
    cpt = 1
    i = 2
    Test = False
    'Compte le nombre de client dans la base
    Do While Cells(i, 4) <> ""
        i = i + 1
    Loop
    'Boucle pour &#233;crire dans le document word
    Do While cpt < i
        'Si la valeur de la cellule(cpt) dans la premi&#232;re colonne est &#233;gale &#224; X
        If UCase(Cells(cpt, 1)) = "X" Then
            Test = True
            'Cr&#233;ation d'un objet de type word
            Set FicDoc = CreateObject("Word.Application")
            'Ouvre le fichier type
            FicDoc.Documents.Open Filename:="C:\.Rappel.doc           
'Alors Ecrtiture des donn&#233;es du client dans le document word
            NomFic = Cells(cpt, 4)
            FicDoc.Selection.typetext (Chr$(9) + Chr$(9) + Chr$(9) + Cells(cpt, 4) + " " + Cells(cpt, 5) + Chr$(13))
            FicDoc.Selection.Typetext (Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + Cells(cpt, 4) + " " + Cells(cpt, 5) + Chr$(13))
            FicDoc.Selection.Typetext (Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + Cells(cpt, 7) + Chr$(13))
            FicDoc.Selection.Typetext (Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + CStr(Cells(cpt, 9)) + " " + Cells(cpt, 8))
            'Enregistre le fichier sous Mes document au nom du client
            FicDoc.Activedocument.SaveAs NomFic
            FicDoc.Quit
            Cells(cpt, 1).ClearContents
        End If
        'Incr&#233;mentation du compteur
        cpt = cpt + 1
    Loop
    'Test s'il y a des clients s&#233;lectionn&#233;s
    If Test = True Then
        MsgBox ("Document(s) cr&#233;&#233;(s)dans Mes Documents! ")
    Else
        MsgBox ("Vous n'avez aucun client s&#233;lectionn&#233;!")
    End If
End Sub



Merci de coop&#233;ration
Nath

zoglub14 · Answer

Bonsoir,

Il ya a une methode simple : Tu r&#233;alise un mod&#232;le de documment Word dans lequel tu mets des Signets aux endroits o&#249; tu veux mettre ton texte. Ensuite tu envoie tes donn&#233;es au bon endroit.

Je te joins un morceau de l'un mes codes  pour te donner une id&#233;e.

Set WordApp = CreateObject("word.application.8")
Set WordDoc = WordApp.Documents.Open("[file://Serveur7/vol1/FICHE \Serveur7\vol1\FICHE] .dot")
    
    ' NUMERO FT
    WordApp.Selection.GoTo What:=wdGoToBookmark, Name:="Num_FT"
    With WordApp.ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    WordApp.Selection.TypeText Text:="123B"    
    ' DATE CREATION
    WordApp.Selection.GoTo What:=wdGoToBookmark, Name:="DATE_CREATION"
    With WordApp.ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    WordApp.Selection.TypeText Text:=Frm_donnees_FT.lbl_dt_creation_.Caption

us_30 · Answer

Bonsoir,

J'ai eu ce même type de problème... IL suffit d'utiliser la fonction de  recherche et de remplacement dans le document Word servant de modèle. 

JE te laisse trouver le codage, pour réaliser cela... C'est un peu court ? Non ! voici comment faire...

- Ouvre Word et ton document modèle où "NOM" figure comme mot clé à remplacer par ce que tu veux...
- Lance l'enregistreur de macro. 
- Tu vas maintenant faire les manipulations de remplacement... donc CRTL+F, complète le champ de recherche par nom, et celui de remplacement par "autre chose pour l'exemple".
- Arrêt la création de la macro.
- Ouvre VBA et récupère le code créé. Tu peux le réinjecter dans le VBA d'Excel, en suppprimant au passage le superflu, et en remplacant "autre chose pour l'exemple" par une variable contenant la donnée souhaitée contenue une cellule.

voilà... c'était la démarche que j'avais utilisé, pleine d'enseignement...

Amicalement,
Us.

nathtonath · Answer

Bonjour
J'ai opt&#233; pour ta solution zoglub14 mais mon probl&#232;me c'est que le code ne reconnait pas le signet. il me dit qu'il n'existe pas alors qu'il est bien cr&#233;er sous word

Nath

Ecrire sous word a partir d'excel urgent!

3 réponses

Discussions similaires