Bonjour à tous,

J'ai un petit soucis depuis que j'utilise Excel / Word 2010 le code suivant affiche une erreur, il s'agit d'ouvrir un document word depuis excel, il marchait parfaitement sous xp/excel / word 2003. il s'arrete à la ligne Open avec le message suivant "run time error 4198" et j'ai bien référencé word, je comprends plus rien ? MERCI DE VOTRE AIDE

je précise que lorsque je lance ligne par ligne avec F8 ça marche très bien.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub LettreVirement()
 
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("F:\Desktop\FRV1.doc", ReadOnly:=True)    'ouvre le document Word
        WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word
 
End Sub