Erreur automation sous excel pour ouvrir Word

[Philippe53]

Message VBA :"un appel sortant ne peût pas être effectué étant donné que l'application répartit un appel entrant synchrone"
quand j'arrive à Set WordDoc ci dessous

Code :

1
2
3
4
5
6
7
8
9
10
Dim wdApp As New Word.Application
Dim WordDoc As Word.Document
Dim FileToOpen
 
FileToOpen = Application.GetOpenFilename("Nom fichier,*.doc") 'selection du nom du fichier à traiter
If FileToOpen = False Then Exit Sub
Else
Set WordDoc = wdApp.Documents.Open(FileToOpen) 'ouvre le document Word
'wdApp.Visible = True
End If

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Chez moi elle fonctionne sans problème.

[ouskel'n'or]

Envoyé par Sujet de la discussion

Erreur automation sous excel pour ouvrir Word

Hello, bienvenue sur le forum.
Tu utilises ce code dans Excel ? Si oui, alors as-tu vérifié que la référence Microsoft Word XX.XX Object Library a été validée (Dans l'éditeur VBA -> Outils -> Références)

[Heureux-oli]

Salut Ousk
Si la référence n'est pas dans le projet, on reçoit un message, Type défini par l'utilisateur non défini

[ouskel'n'or]

En effet, je sais ça mais comme la discussion est sur Word, je voulais d'abord m'assurer que ça concernait bien Excel... Parce que si c'est vraiment VBA-Excel, avec la déclaration

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim wdApp As Variant
Dim WordDoc As Variant
Dim FileToOpen
Set wdApp = CreateObject("Word.Application")
    FileToOpen = Application.GetOpenFilename("Nom fichier,*.doc") 'selection du nom du fichier à traiter
    If FileToOpen = False Then
        Exit Sub
        Else
        Set WordDoc = wdApp.Documents.Open(FileToOpen) 'ouvre le document Word
        'wdApp.Visible = True
    End If
 
End Sub

est, par expérience, préférable... dès lors que tu n'oublies pas d'instancier l'application
Bonne soirée

[Philippe53]

Merci pour ces échanges;

Heureux-oli dit : Chez moi elle fonctionne sans problème.
Chez moi aussi (de temps en temps!), cette instabilité est difficile à accepter.
Je vais essayer le code que vous me proposez, mais si l'un de vous connait une raison à cette instabilité . . .
Je reviendrai assez souvent sur ce forum où la réactivité est assez ... magique.
Je vous tiens au courant

[ouskel'n'or]

C'est gentil... Mais si c'est une question qui concerne Excel, tu devrais la poster ici
Quand ton problème sera réglé, on déplacera cette discussion.
Pour le moment, il n'est pas génant de la laisser ici.
A+