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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager