Ouvrir un fichier word depuis excel 2010 [Résolu]

cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 12:22 - Dernière réponse : cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention
- 10 août 2011 à 17:19
Bonjour,

Après de longues recherches et test, je n'arrive pas à faire fonctionner ces quelques lignes de code pourtant basiques !

Je souhaite ouvrir un fichier word depuis excel (office 2010)


Voila mon code :

Private Sub CommandButton2_Click()
ChDir "U:\Divers\Yannick Besnier\Outil Cartographie"
Workbooks.Open Filename:=" U:\Divers\Yannick\Outil Cartographie\RICSTest.doc "
End Sub


Erreur d'excution '1004':
U:\blabla\RICSTest.doc' introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.

Sauf que le chemin est bon (j'ai même fais un copier coller depuis les propriétés du fichier)

Autre solution :

Private Sub CommandButton2_Click()
Application.Workbooks.Open "U:\Divers\Yannick\Outil Cartographie\RICSTest.doc"
End Sub


Il m'indique alors : "Format de fichier non valide"

Pouvez m'indiquer la bonne démarche ?

Cordialement

Yannick
Afficher la suite 

14 réponses

Répondre au sujet
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 10 août 2011 à 16:23
+2
Utile
Un objet se définit par un Set


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de ucfoutu
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 14:36
+1
Utile
Bonjour,

Dim o As Object
o = CreateObject("Word.Application")
o.Visible = True
o.Documents.Open("C:\Users\joe\Documents\ECRITS\WORD\AJ_CE.doc", ReadOnly:=True)

o.Application.ActiveDocument.Content.Find.Execute(FindText:="Aaa", ReplaceWith:="VB.NET")
o.ActiveDocument.Save() ' Sauvegarde du document
o.ActiveDocument.Printout() ' Lancement de l'impression
o.Quit() ' Ferme Word
o = Nothing ' Ferme Word
Commenter la réponse de ehjoe
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 10 août 2011 à 13:14
0
Utile
Bonjour,
Workbooks.Open Filename:=" U:\Divers\Yannick\Outil Cartographie\RICSTest.doc "

Workbooks est un mot concernant des classeurs Excel.

Intéresse-toi aux fonctions de pilotage (CreateObject et GetObject)
Ce ne sont ni les discussions ni les sources à ce sujet qui manquent sur ce forum

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Commenter la réponse de ucfoutu
pile_poil 682 Messages postés vendredi 6 avril 2007Date d'inscription 4 août 2012 Dernière intervention - 10 août 2011 à 13:36
0
Utile
c'est clair que excel ne sait pas ouvrir les fichiers .doc
or c'est exactement ce que tu lui demande de faire
pour ouvrir un fichier .doc il faut d'abord créer une instance Word
puis les objets spécifiques à word
pour cela regardes du coté des mots : getobject , createobject



si c'est la solution, penser : REPONSE ACCEPTEE
Commenter la réponse de pile_poil
cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 14:48
0
Utile
Rien ne veut marcher !! Je n'arrive pas à afficher mon fichier word.

Dim k As Object
k = CreateObject("Word.Application")
k.Visible = True

GetObject ("U:\Divers\Yannick Besnier\Outil Cartographie\RICSTest.doc")
Commenter la réponse de cs_Donuts55
cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 15:17
0
Utile
Autre idée :

Dim AppWd As Object
Dim DocWd As Object
On Error Resume Next
Set AppWd = GetObject("Word Application")
If Err <> 0 Then
Err.Clear
Set AppWd = CreateObject("Word Application")
End If
AppWd.Visible = True
Set DocWd = AppWd.Documents.Open(ThisWorkbook.Path & "\RICSTest.doc")
AppWd.Activate


Mais rien ne se passe
Commenter la réponse de cs_Donuts55
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 15:50
0
Utile
Alors là mon pauvre ami, je ne suis pas un spécialiste de ce genre de choses, j'avais ça dans mon pense bête, c'est qu'il a dû marcher un jour, vois si tes adresse et fichier sont bien présent, bien nommés, avec le bon chemin...

Je vais tester de mon côté @+
Commenter la réponse de ehjoe
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 16:02
0
Utile
Alors j'ai vérifié, désolé mais ça marche du premier coup :

Dim o As Object
o = CreateObject("Word.Application")
o.Visible = True
o.Documents.Open("C:\Users\joe\Documents\ECRITS\WORD\adresses.doc", ReadOnly:=True)

Donc :

Vérifie tes chemins
le nom de tes fichiers
Affiche tout ça dans un textBox pour bien avoir le temps de savoir s'il n'y a pas une erreur...

Tiens, ici :
http://irolog.free.fr/gratuit.htm

J'ai fait un petit utilitaire à télécharger, il permet de naviguer jusqu'au fichier recherché, puis de copier le chemin, ce qui évite de se tromper quand il y a des noms à coucher dehors... son nom est :
Chemin de fichier (explore, copie)

Au plaisir, cordialement, Joe.
.
Commenter la réponse de ehjoe
cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 16:21
0
Utile
Dim o As Object
o = CreateObject("Word.Application")
o.Visible = True
o.Documents.Open ("U:\Divers\Yannick Besnier\Outil Cartographie\RICSTest.doc")


"Erreur d'excution 91 variable objet ou variable With non définie" sur
o = CreateObject("Word.Application")


Je suis sur office 2010 (faut il cocher une case quelque part comme pour les versions précédentes ?)
Commenter la réponse de cs_Donuts55
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 16:35
0
Utile
suite,

Ça

Documents.Open ("U:\Divers\Yannick Besnier\Outil Cartographie\RICSTest.doc")

"U:"

Est-ce le nom de ton cheval ?
"U" est le terme générique pour indiquer qu'il faut mettre le nom de l'unité, de là à penser que tu aies 21 unités, j'en doutes, et si tu mettais "C:" tu en penses quoi ?

@+
Commenter la réponse de ehjoe
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 16:38
0
Utile
Attends, attends, ta question est : "Ouvrir un fichier word depuis excel 2010", or ici nous ne sommes pas dans un forum Excel mais vbNet, là est peut être le problème, je viens de le voir, ah ?
Il n'y a pas de programmation à faire, faut voir ça avec les macros du vbA...
...
Commenter la réponse de ehjoe
cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 16:56
0
Utile
INCROYABLE CA MARCHE !!!!!!! :-))))))))))))))))

Merci bien ucfoutu et ehjoe.

Effectivement il fallait ajouter le Set :'-)

Le Code :

Dim o As Object
Set o = CreateObject("Word.Application")
o.Visible = True
o.Documents.Open ("U:\Divers\Yannick\Outil Cartographie\RICSTest.doc")

Le U est le nom du disque dur.

Reste un dernier point. La page word s'affiche derière la page excel. Une astuce pour avoir un afichage au premier plan ?
Commenter la réponse de cs_Donuts55
ehjoe 728 Messages postés samedi 4 avril 2009Date d'inscription 30 mars 2014 Dernière intervention - 10 août 2011 à 17:08
0
Utile
Oui en VBA "Set", mais là t'es dans le forum VB, et en VB10 le set ne peut pas se mettre, il est refusé !

Mais t'es certains que ton disque se nomme "U" ?

J'ai trouvé ça

o = Focus()
o = Me

Je ne sais pas, tu peux essayer...
Commenter la réponse de ehjoe
cs_Donuts55 6 Messages postés mercredi 10 août 2011Date d'inscription 10 août 2011 Dernière intervention - 10 août 2011 à 17:19
0
Utile
La réponse :
o.Activate

Y a t'il des ajouts pour assurer la stabilité ? (ouverture en lecture seule ou empecher d'ouvrir deux fois le même fichier)
Commenter la réponse de cs_Donuts55

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.