Lien entre WORD & Excel

Bonjour,

Je suis novice en VBA sur excel.

Je souhaite créer un programme qui me permette de mettre en place du texte sur word en fonction d'un choix sur excel.

Un exemple :

Sur excel :

Quelle est la puissance de l'installation électrique : 30 kW - 100 kW - 150 kW (liste déroulante de choix)

Sur word :

Si 30kW, inscrire sur le fichier word : " La puissance de l'installation est de 30kW."

Si 100 kW, inscrire sur le fichier word : "La puissance de l'installation de 100 kW est supérieure à la norme"

Je souhaiterais mettre des textes en fonction de la réponse excel et en même temps pouvoir avoir des champs dans ce texte qui se remplisse automatiquement.

Je précise que je veux mettre des paragraphes entier.

Merci d'avance.

Bonsoir vever,

Un fichier, possible ? Je ne saisi pas très bien le but recherché.

A+

Adrien

Bonsoir et bienvenue

Dans Word tu écris :

La puissance de l'installation est de

Puis tu vas dans Excel, tu copies la cellule dans laquelle se trouve l'info (CTRL C)

Tu retournes sur Word et tu vas dans EDITION ==>Collage Spécial - Tu choisis "Texte sans mise en forme" et tu coches "Coller avec liaison"

Amicalement

Nad

Bonjour,

Le but recherché c'est de remplir tout un questionnaire sur excel qui me permette en fonction des réponses, de remplir des descriptifs techniques de 30 pages environ de manière automatique.

Cela m'évite d'établir le descriptif technique en faisant du picking sur d'autres documents et d'entrer les différentes valeurs du projet.

Je cherche à avoir un bouton qui puisse lancer automatiquement à partir d'excel un document word entier. Pour cela, je sais qu'il faut utiliser le VBA, mais je ne sais pas comment le faire pour entrer les différents paragraphes que je souhaite et y insérer des champs :

J'espère avoir été plus clair.

@+

Un petit up !!!

Personnellement, j'utilise des fichiers .doc que j'insère via une macro du genre:

Dim objWord As Word.Application
Dim docWord As Word.Document
Dim docWordF As Word.Document
'------ j'ouvre mon fichier existant -------
Dim Fichier As String
    FileModel = Dir(ThisWorkbook.Path & "\ACHA_MED_XXX_XXXXX.doc")
    If FileModel = "" Then
        MsgBox "Le document modèle 'ACHA_MED_XXX_XXXXX.doc' n'existe pas !", vbCritical
        End
    End If

    Set objWord = CreateObject("Word.Application")
    Set docWord = objWord.Documents.Open(ThisWorkbook.Path & "\ACHA_MED_XXX_XXXXX.doc")
    objWord.Visible = False

    '----- Je cherche un texte a remplacer -----
    objWord.Selection.Find.ClearFormatting
    With objWord.Selection.Find
        .Text = "//CONDITIONS_SSECU//"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    objWord.Selection.Find.Execute
    objWord.Selection.Find.Execute Replace:=wdReplaceAll ' ---remplacement effectué par du vide (pour ce mettre au bon endroit)
    If Range("K9").Value <> "" Then
 Secu = Range("K9").Value 
                File3 = Dir(ThisWorkbook.Path & "\Condition_secu\" & secu & ".doc") '-- je vais cherche  le .doc de valeur K9 (si K9 = trou, alors ce sera trou.doc)
                If File3 = "" Then 'Si le fichier n'existe pas
                    MsgBox "Le fichier '" & secu & ".doc' n'existe pas."
                Else 'Si le fichier existe
                    'On écrit le contenu du fichier

                    Set docWordF = objWord.Documents.Open(ThisWorkbook.Path & "\Condition_secu\" & secu & ".doc")
                    Set myRange = docWordF.Content
                    myRange.Copy

                    docWordF.Close
                    objWord.Selection.Paste

                    objWord.Selection.TypeParagraph
                End If
            End If
    

Vérifie bien les end if etc... je suis au travail et j'ai pris des bribes de codes donc pas sure que sa marche du premier coup. Ceci dit j'espère t'avoir aidé au moins dans le principe?

AH AUSSI il faut activer la macro MICROSOFT WORD object Library (11 ou supérieur). pour cela ALT + F11 -> outils -> Reference.