Discussion :

[Nicoderome]

Bonjour

J'ai un documents words sous le chemin
C:\users\xavier\Mes documents\.....


Ce document est. Specification.docx

Je suis sur le bon chemin Car je l'ai déjà copie et je fais:

J'indique le chemin c:\Users\xavier\Mesdocuments

Workbooks.open Spécification.docx

Erreur de format ou impossible de trouver le document specifie
Help
Merci d'avance

[QuestVba]

Bonsoir,

Tu pourrais essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub OuvertureFichier()
Dim monfichier As String, chemin As String
Dim wbExcel As Workbook
 
monfichier = "Spécification.docx" 'le fichier que tu veux ouvrir
chemin = "c:\Users\xavier\Mesdocuments\" 'le chemin 
 
Set wbExcel = Workbooks.Open(chemin & monfichier)
 
End Sub

[Nicoderome]

Bonsoir,

Tu pourrais essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub OuvertureFichier()
Dim monfichier As String, chemin As String
Dim wbExcel As Workbook
 
monfichier = "Spécification.docx" 'le fichier que tu veux ouvrir
chemin = "c:\Users\xavier\Mesdocuments\" 'le chemin 
 
Set wbExcel = Workbooks.Open(chemin & monfichier)
 
End Sub

Déjà merci, j'essaierai demain.
Merci à toi et bonne soiree

[Jean-Philippe André]

Salut,

au risque d'enfoncer une porte ouverte, une extension docx est pour un document word, pas un classeur Excel, est-ce voulu de vouloir ouvrir le document word dans Excel ??

[QuestVba]

[Nicoderome]

Salut,

au risque d'enfoncer une porte ouverte, une extension docx est pour un document word, pas un classeur Excel, est-ce voulu de vouloir ouvrir le document word dans Excel ??

Oui, je souhaite ouvrir le document Word depuis une macro VBA qui est sous excel et ensuite faire des liens hyperactif avec le fichier Excel

[QuestVba]

Et bien, on change un peu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strFichier As String
Dim objWord As New Word.Application
 
monfichier = "Spécification.docx" 
chemin = "c:\Users\xavier\Mesdocuments\" 
 
strFichier = chemin & monfichier
' ouvrir un document Word
objWord.Documents.Open strFichier
' rendre Word visible
objWord.Visible = True

[Nicoderome]

Et bien, on change un peu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strFichier As String
Dim objWord As New Word.Application
 
monfichier = "Spécification.docx" 
chemin = "c:\Users\xavier\Mesdocuments\" 
 
strFichier = chemin & monfichier
' ouvrir un document Word
objWord.Documents.Open strFichier
' rendre Word visible
objWord.Visible = True

Merci beaucoup

[QuestVba]

Si c'est OK, ne pas oublier

[Nicoderome]

Merci beaucoup

Non désolé mais ne marche pas cela coince à dim objWord as new Word.application
Merci d'avance

[QuestVba]

Quel est le message d'erreur ?
As-tu activé la référence "Microsoft Word xx.x Object Library" ?

[Nicoderome]

Quel est le message d'erreur ?
As-tu activé la référence "Microsoft Word xx.x Object Library" ?

Non certainement pas
Ou dois je faire cela ?

[QuestVba]

Dans ta fenêtre VBA, dans le menu Outils, sélectionne Références pour afficher la boîte de dialogue Références.