Bonjour,
 
voila j'ai crée un formulaire sur excel du type:
Réf:"à remplir"
N°:"à remplir",...etc
 
et je voudrais qu'une macro copie les champs remplis dans les cellules excel et les colle dans un fichier word prédéfini qui contient des (1), (2),...etc aux endroits où je desire les coller.
 
voila le code que je voulais utiliser mais il est faux (je viens de decouvrir vb!)
 
si quelqu'un peut le corriger svp:
 
 
Sub Macro1()
 
Dim Texte As Variant
Texte = Cells(2, 2).Value
 
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Documents and Settings\moi\Mes documents\Modèle de main levée de caution2.doc" )
 
With appWord
    .Selection.Find.Execute
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With appWord.Find
        .Text = "(1)"
        .Replacement.Text = "^Texte"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    .Selection.Find.Execute Replace:=wdReplaceAll
     
End With
 
Dim Texte1 As Variant
Texte1 = Cells(4, 2).Value
 
With appWord
    .Selection.HomeKey Unit:=Word.WdUnits.wdStory, Extend:=Word.WdMovementType.wdMove
    .Selection.EndKey Unit:=Word.WdUnits.wdStory, Extend:=Word.WdMovementType.wdExtend
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With appWord.Selection.Find
        .Text = "(2)"
        .Replacement.Text = "^Texte1"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    .Selection.Find.Execute Replace:=wdReplaceAll
     
End With
 
End Sub
 
 
Voila! Merci d'avance