Discussion :

[anedony]

Bonjour,
J'ai créé un code VBA qui génère un rapport Word à partir de données Excel.
Le code fonctionne une fois sur deux.
Lorsque le code ne marche pas j'ai l'erreur mentionnée dans l'intitulé de la discussion.
J'ai cherché sur les forums, et ai vu que ce souci existait pour d'autres personnes sans pour autant trouver de solution.

Voici une partie du code. La ligne surlignée en jaune lors de l'erreur est la ligne 4.

Code :

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

1
2
3
4
    Set appWrd = New Word.Application                                         
    appWrd.Visible = True                                                                   
    appWrd.Documents.Open "C:\Users\" & id_user & "\Desktop\Rapport BDP.docx"
    Set docWrd = Word.Documents("Rapport BDP.docx")

Au final, ce n'est pas un très gros problème, mais cela reste irritant comme souci.

Merci d'avance.

[Invité]

Bonjour :

A tester :

Code :

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

1
2
3
4
5
6
7
 
    Set appWrd = New Word.Application
 
    With appWrd
         .Visible = True
         Set docWrd = .Documents.Open("C:\Users\" & id_user & "\Desktop\Rapport BDP.docx")
    End With

Et à la fin de la procédure, ne pas oublier :

Code :

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

1
2
3
4
 
    appWrd .Quit
    Set docWrd = Nothing
    Set appWrd = Nothing

[anedony]

Bonjour,
Merci Eric, j'ai l'impression que ça marche !
Bonne journée

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Fichier=Environ("UserProfile") & "\Desktop\Rapport BDP.docx" 
If dir(Fichier) = "" Then
    MsgBox Fichier & vbCrLf & "N'existe pas"
    Exit Sub
End If
Set appWrd = New Word.Application                                         
    appWrd.Visible = True                                                                                                                                                                              
    set docWrd=appWrd.Documents.open(Fichier )
End Sub