Discussion :

[issam16]

j'essaye d'ouvrir un modele d'un fichier word comme l'exemple dans le faq http://access.developpez.com/faq/?pa...l#OuvrFicExcel mais ca marche pas il ouvre Word mais pas le fichier,voici mon code c le même:

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
 
 
 On Error Resume Next
  Dim XLApp As Object
  Dim xlWkb As Variant
  Dim xlAutoOpen As Variant
 
 Set XLApp = GetObject(, "Word.application")
 Set XLApp = CreateObject("Word.application")
 Set xlWkb = XLApp.Workbooks.Add("C:\MonRepertoire\MonFichier.doc") 
 
 xlWkb.RunAutoMacros xlAutoOpen
 XLApp.Visible = True
 Set xlWkb = Nothing
 Set XLApp = Nothing

sauf que moi je veux ouvrir un fichier Word pas Excel.
En fait j'ai mis les variable xlWkb et xlAutoOpen de type variant parceuqe dans le Faq ils disent pas de quel type.

[Tofalu]

Enlève la ligne :

On Error Resume Next

Et donne nous la ligne où ça plante

[issam16]

Enlève la ligne :



Et donne nous la ligne où ça plante

quand j'enleve cette ligne il se plante dans :

Code :

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

1
2
3
 
 
Set XLApp = GetObject(, "Word.application")

[Tofalu]

Oui, j'avais pas fait gaffe Supprime aussi cette ligne pour l'instant