Discussion :

[pouya001]

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

[Invité]

bonjour,
les lignes en commentaire tu les as mis avant ou après le message d'ERR?
positionne un point d'arrêt sur WordApp.Visible = True [F9] puis relance l’exécution.
si pas d'erreur:

Code :

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

1
2
3
4
Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("F:\Desktop\FRV1.doc", ReadOnly:=True)    'ouvre le document Word
DoEvents
        WordApp.Visible = True    'affiche le document Word

[pouya001]

Bonjour et merci pour ta réponse

les lignes en commentaire sont décoratives c'est pour le cas ou je dois les activer, mais la l'erreur arrive à la ligne suivante qui est surligné en jaune

Code :

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

Set WordDoc = WordApp.Documents.Open("F:\Desktop\FRV1.doc", ReadOnly:=True)

avec comme message

run time error 4198 command failed

le plus bizarre c'est que ça marche qd je fais ligne par ligne,
et surtout sous xp et office 2003 ça marche. j'ai ajouté le DoEvents (dont je ne sais pas ce que c'est) à différents endroits mais tj le meme message d'erreur. Merci d'avance pour ton aide, c'est très important pour moi pcq tout marchait bien avant.

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
Sub LettreVirement()
 
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
 
    DoEvents
    Set WordDoc = WordApp.Documents.Open("H:\Desktop\send.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

je viens de découvrir une chose, c'est que lorsquil est lancé et se bloque je clique sur debug il surligne la ligne dont jt'ai dit en jaune, si je reclique sur run, il continue et termine l'execution et ouvre le doc word,

mais pourquoi ce bloquage ?

[Invité]

le DoEvents à pour objet de redonner la main a Windows le temps de ce rafraichir les idées.
pour ton code comme je ne vois pas de déclaration de variable, mais si tu es en option implicite pas de problème, a moins que tu les ais déclarées en publique qq part!

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
Sub LettreVirement()
 Dim WordApp
 Dim WordDoc
    Set WordApp = CreateObject("word.application")    'ouvre une session Word
 
    DoEvents
    Set WordDoc = WordApp.Documents.Open("H:\Desktop\send.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

pour le code je ne vois pas ce qui cloche! je l'ai copie colle dans Excel bien sur le lecteur H...
j'aurais pratiqué a lidentique.

[Oliv-]

Bonjour,
vérifie du côté des paramètres de blocage des fichiers et des emplacements approuvés

[pouya001]

j'ai trouvé l'erreur Merci pour vos message, en fait c'est un probleme de synchronisation entre l'ouverture de l'app word et l'ouverture du document,

j'ai ajouté un Sleep entre les 2 qui lui fait faire une pause de 100 milliseconde par ex, (avec 10 ça marche aussi) et ça marche parfaitement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Sub LettreVirement()
 
 
    Set wordapp = CreateObject("word.application")
    Sleep 100
        Set WordDoc = wordapp.Documents.Open("H:\Desktop\send.doc", ReadOnly:=True)
        wordapp.Visible = True
 
End Sub