gds35
XLDnaute Impliqué
Bjr mes AMIS du Forum , en ce Dimanche pourri !!!! ,,,,
Voila mon PB :
J'ouvre un classeur excel avec plusieurs USF , ds l'un 2 j'ai un bouton qui appelle un fichier d'aide sous word avec ce code (Qui fonctionne super)..... avec la référence Microsoft WOL active
Private Sub ACCESAIDE_Click()
'
' ACCES A WORD
'
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
'
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\FRAISDEP\AIDE.doc")
'
End Sub
Maintenant ds ce fichier Word j'ai un bouton qui DEVRAIT me permettre de ferfermer le fichier d'aide et de retourner directement a la saisie ds ma feuille excel . Impossible d'y arriver , si sur mon bouton word j'indique App.Quit j'ai tj word en fonds grisé et n'est plus acces a excel meme avec fermeture avec la croix . Quelqu'un a t'il une idée de résolution . Grd Merci GDS35
Voila mon PB :
J'ouvre un classeur excel avec plusieurs USF , ds l'un 2 j'ai un bouton qui appelle un fichier d'aide sous word avec ce code (Qui fonctionne super)..... avec la référence Microsoft WOL active
Private Sub ACCESAIDE_Click()
'
' ACCES A WORD
'
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
'
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\FRAISDEP\AIDE.doc")
'
End Sub
Maintenant ds ce fichier Word j'ai un bouton qui DEVRAIT me permettre de ferfermer le fichier d'aide et de retourner directement a la saisie ds ma feuille excel . Impossible d'y arriver , si sur mon bouton word j'indique App.Quit j'ai tj word en fonds grisé et n'est plus acces a excel meme avec fermeture avec la croix . Quelqu'un a t'il une idée de résolution . Grd Merci GDS35