fichier d'aide sous word

[jacky]

Bonjour
Je voudrais ouvrir dans excel un document word (dans une fenetre separee) avec une macro
avez vous un exemple a me proposer
ouverture fichier dans une fenetre
merci
jacky

 

[Charly2]

Bonjour Jacky, bonjour à toutes et à tous

Je ne suis pas sûr de bien comprendre, mais si tu souhaites ton fichier word dans une feuille Excel, tu peux essayer le code suivant :

Sub OuvrirWordDocInXL()
'
  ' Ajoute une nouvelle feuille de calcul
  Sheets.Add after:=Sheets(Sheets.Count)

  ' Sélectionne la cellule B3 dans cette feuille
  Range('B3').Select

  ' Insertion du document Word sous forme d'objet OLE
  ActiveSheet.OLEObjects.Add _
      (FileName:='C:\\\\\\\\Mon Répertoire\\\\\\\\Monfichier.doc').Activate

End Sub

A+

Message édité par: Charly2, à: 03/04/2006 03:39

 

[Mytå]

Salut Jacky, Charly2 et le forum

Pour ouvrir un fichier d'aide au format .doc
J'ai incorporé une gestion d'erreur de base.

Sub Ouvrir_DocWord()

Dim Fichier As String
Dim WordApp
Dim WordDoc

    Set WordApp = CreateObject('Word.Application')
    Fichier = 'C:\\toto1.doc'
    On Error GoTo Line1
    Set WordDoc = WordApp.Documents.Open(Fichier)
    WordApp.Visible = True
    Exit Sub
    
Line1:
    MsgBox 'Le fichier ' & Fichier & _
    ' n 'existe pas !', vbOKOnly + vbExclamation, 'Attention'
    
End Sub

Myta

 

[jacky]

merci beaucoup les gourous

mon fichier s'ouvre bien , j'ai rajoute ceci

MyPath = ThisWorkbook.Path
Fichier = MyPath & '\\' & 'mon_fichier.doc'

afin que ce fichier doc d'aide puisse etre
place n'importe ou (a condition qu'il soit dans le meme repertoire que le fichier excel qui l'appelle)

je vous remercie , bonne journee a toutes et tous

jacky