Appeler un ou plusieur document sous excel
Résolu
oasisjf
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
oasisjf Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
oasisjf Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
Bonjour le Forum,
encore un pb je souhaite sous excel 2003 via une boitge de dialogue appeler par deux CommandButton :
1/ un document word existant
2/ un document Publisher existant
y aurait il une bonne ame pour me donner les code
Vous remerciant par avance
oasisjf
encore un pb je souhaite sous excel 2003 via une boitge de dialogue appeler par deux CommandButton :
1/ un document word existant
2/ un document Publisher existant
y aurait il une bonne ame pour me donner les code
Vous remerciant par avance
oasisjf
A voir également:
- Appeler un ou plusieur document sous excel
- Si ou excel - Guide
- Liste déroulante excel - Guide
- Comment reduire la taille d'un document - Guide
- Appeler en privé - Guide
- Word et excel gratuit - Guide
13 réponses
bonjour
encore un pb je souhaite sous excel 2003 via une boitge de dialogue appeler par deux CommandButton :
1/ un document word existant
2/ un document Publisher existant
Que veux-tu faire avec ces documents ?
Les ouvrir ?
les copier dans ton classeur?
les présenter dans une fenêtre ?
Si tu précises ce que tu souhaites ce sera plus facile pour nous car Internet ne nous permet pas de nous brancher sur ton cerveau pour voir dans quelle direction il est orienté !
encore un pb je souhaite sous excel 2003 via une boitge de dialogue appeler par deux CommandButton :
1/ un document word existant
2/ un document Publisher existant
Que veux-tu faire avec ces documents ?
Les ouvrir ?
les copier dans ton classeur?
les présenter dans une fenêtre ?
Si tu précises ce que tu souhaites ce sera plus facile pour nous car Internet ne nous permet pas de nous brancher sur ton cerveau pour voir dans quelle direction il est orienté !
Bonjour gbinforme, le Forum,
En effet uniquement les ouvrirs pour travailler dessus ( exemple world lettre entete)
Merci par avance
oasisjf
En effet uniquement les ouvrirs pour travailler dessus ( exemple world lettre entete)
Merci par avance
oasisjf
bonjour
Pour ouvrir les fichiers, sans connexion, le plus simple est d'utiliser shell
et idem pour publisher
Pour ouvrir les fichiers, sans connexion, le plus simple est d'utiliser shell
Dim resu As Variant
resu = Shell("C:\chemin\WINWORD.EXE ton fichier " , 1)
et idem pour publisher
bonjour
PS : l' affichage ne s'est pas bien fait :
il faut les doubles guillemets pour entourer ton fichier si le nom comporte des espaces, Mes documents par exemple
PS : l' affichage ne s'est pas bien fait :
Dim resu As Variant
resu = Shell("C:\chemin\WINWORD.EXE ""ton fichier""" , 1)
il faut les doubles guillemets pour entourer ton fichier si le nom comporte des espaces, Mes documents par exemple
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
j'ai un blocage, je mets cette formule:
Private Sub CommandButton11_Click()
Dim resu As Variant
resu = Shell("H:\Poste de Travail essais\WINWORD.EXE ""Courses""", 1)
End Sub
mon document world se trouve dans : H:\Poste de Travail essais\Courses
quand penses tu
j'ai un blocage, je mets cette formule:
Private Sub CommandButton11_Click()
Dim resu As Variant
resu = Shell("H:\Poste de Travail essais\WINWORD.EXE ""Courses""", 1)
End Sub
mon document world se trouve dans : H:\Poste de Travail essais\Courses
quand penses tu
bonjour
Avant WINWORD, c'est le chemin de l'éxécutable WINWORD quelque chose comme "C:\Program Files\Microsoft Office\Office10"
après c'est le chemin complet de ton document.
Avant WINWORD, c'est le chemin de l'éxécutable WINWORD quelque chose comme "C:\Program Files\Microsoft Office\Office10"
après c'est le chemin complet de ton document.
Re,
Dis moi, mon document se trouve dans un disc externe H
dans le dossier Poste de Travail essais
document word nommé Courses
donc j'ai essayé dans tous les sens et en effet il me dit fichier introuvable ?
Que faut il que je fasse ? ou trouver exactement le chemin éxécutable ?
enfin je crak ou presque
@ + oasisjf
Dis moi, mon document se trouve dans un disc externe H
dans le dossier Poste de Travail essais
document word nommé Courses
donc j'ai essayé dans tous les sens et en effet il me dit fichier introuvable ?
Que faut il que je fasse ? ou trouver exactement le chemin éxécutable ?
enfin je crak ou presque
@ + oasisjf
bonjour
mon document se trouve dans un disc externe H
Cela ne pose pas de problème : j'ai testé sur une clé.
dans le dossier "Poste de Travail essais" document word nommé Courses.doc
Si tu n'affiches pas les suffixes il faut tout de même les saisir.
Cela devrait aboutir à quelque chose comme cela, mais vérifie bien le chemin de WINWORD.EXE
Pour le vérifier, tu enlèves le paramètre de ton fichier et tu vois si WORD se lance à vide et ensuite tu remets ton fichier (ctrl + z)
mon document se trouve dans un disc externe H
Cela ne pose pas de problème : j'ai testé sur une clé.
dans le dossier "Poste de Travail essais" document word nommé Courses.doc
Si tu n'affiches pas les suffixes il faut tout de même les saisir.
Cela devrait aboutir à quelque chose comme cela, mais vérifie bien le chemin de WINWORD.EXE
Pour le vérifier, tu enlèves le paramètre de ton fichier et tu vois si WORD se lance à vide et ensuite tu remets ton fichier (ctrl + z)
Private Sub CommandButton11_Click()
Dim resu As Variant
resu = Shell("C:\Program Files\Microsoft Office\Office10\WINWORD.EXE ""H:\Poste de Travail essais\Courses.doc""", 1)
End Sub
Re bonjour,
Super ça marche.
Par contre pour publisher que dois-je mettre ?
Private Sub CommandButton12_Click()
Dim resu As Variant
resu = Shell("C:\Program Files\Microsoft Office\Office11\WINPUBLISHER.EXE ""g:\Poste de Travail essais\Fiche technique.PUB""", 1)
End Sub
biensur il doit encore y avoir une erreur.
P.S : y a t il aussi la possibilité de fermer le classeur excel losque j'appel mon document word ?
Super ça marche.
Par contre pour publisher que dois-je mettre ?
Private Sub CommandButton12_Click()
Dim resu As Variant
resu = Shell("C:\Program Files\Microsoft Office\Office11\WINPUBLISHER.EXE ""g:\Poste de Travail essais\Fiche technique.PUB""", 1)
End Sub
biensur il doit encore y avoir une erreur.
P.S : y a t il aussi la possibilité de fermer le classeur excel losque j'appel mon document word ?
bonjour
il doit encore y avoir une erreur
avec le pas à pas, faut regarder la raison.
y a t il aussi la possibilité de fermer le classeur excel l
ActiveWorkbook.close devrait le faire.
il doit encore y avoir une erreur
avec le pas à pas, faut regarder la raison.
y a t il aussi la possibilité de fermer le classeur excel l
ActiveWorkbook.close devrait le faire.
bonjour,
peux tu me dire pour appeler un document PUBLISHER
en toute logique :
Dim resu As Variant
resu = Shell("C:\Program Files\Microsoft Office\Office11\
puis je remplace : WINWORD.EXE par WINPUBLISHER.EXE
ensuite : ""g:\Poste de Travail essais\Fiche technique.PUB""", 1)
End Sub
.doc remplacé par .pub
quand pense tu ?
peux tu me dire pour appeler un document PUBLISHER
en toute logique :
Dim resu As Variant
resu = Shell("C:\Program Files\Microsoft Office\Office11\
puis je remplace : WINWORD.EXE par WINPUBLISHER.EXE
ensuite : ""g:\Poste de Travail essais\Fiche technique.PUB""", 1)
End Sub
.doc remplacé par .pub
quand pense tu ?