Discussion :

[lolo-tine]

Salut

J'ai un souci dont je n'arrive pas à me sortir.

J'ai fait une macro qui va sélectionner une liste de fichiers "modeles" excel que j'ai créé et remplir des tableaux à partir d'autres fichiers.
Jusque là, tout va bien!

Mon souci est que pour chaque fichiers modèle j'ai un onglet avec des objets (créé via insertion objets) qui correspondent à des documents words.
Ils sont donc intégrés dans mes fichiers excel.

Pour chaque fichier excel, je dois compléter l'un d'eux qui ne porte d'ailleurs pas toujours le même nom en faisant simplement des coller de mes variables VBA.
ex: remplacer jjmmaaaa par la variable datedujour.

Je voudrais piloter ces documents via ma macro excel.
Mais j n'y arrive pas.
Je n'ai pas l'habitude de ce genre de manip;

Les outils références nécessaires sont bien cochés.

J'ai bien mis dans ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim wordApp As Word.Application
    Dim wordDoc As Word.Document

Mais après je sèche!!

Je voudrais donc pouvoir ouvrir l'1 après l'autre ces objets (documents words) (dont le nom change) faire mes remplacements (avec mes variables de la macro) refermer et sauvegarder via ma macro Excel.


Merci pour votre aide.

Au secours Obiwan Kenobi, vous êtes mon seul espoir!

[keygen08]

Bonjour

Si cela peut aider, j'utilisai ceci pour remplir des formulaire word depuis excel
Private Sub Crobs_Click()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    Dim Sejour, nom As String, Rep As String
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
        Rep = Feuil02.Range("a1")
        nom = cboxnom.Value
        Sejour = Feuil02.Range("b1")
        theme = ""
        dateD = Format(Feuil02.Range("b4"), "dd-mmm-yy")
        DateF = Format(Feuil02.Range("b5"), "dd-mmm-yy")
 
        On Error Resume Next
            If cboxnom.Value = "" Then
            MsgBox ("Choisissez un nom dans la liste !")
            Exit Sub
            End If
 
    MonFichier$ = Rep & "\sejours\" & Sejour & "\Crobs\" & nom & " " & Annee & ".doc"
 
        Set WordApp = New Word.Application
        Set WordDoc = WordApp.Documents.Open(MonFichier$)
 
        WordDoc.Unprotect ' je déprotège le document
 
        WordDoc.Fields(1).Result.Text = nom
        WordDoc.Fields(5).Result.Text = Sejour
        WordDoc.Fields(6).Result.Text = theme
        WordDoc.Fields(7).Result.Text = dateD
        WordDoc.Fields(8).Result.Text = DateF
 
        WordDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True 'je reprotège le document
 
'J'utilisai cette ligne pour ouvrir et verifier le document    
        Shell ("c:\windows\explorer.exe " & Rep & "\SEJOURs\" & Sejour & "\Crobs\" & nom & " " & Annee & ".doc"), 1
End Sub

[lolo-tine]

Merci pour votre réponse: je testerais dés que je pourrais.