Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ouverture d'un fichier word

Ouverture d'un fichier word

10 réponses
Avatar
Thoutmosis 1er
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une procédure VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:\Documents and Settings\christian\Mes documents\xxxxx\yyyyy\zzzzz.doc

Merci d'avance

Christian
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word, et
une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian


Avatar
JB
Bonjour,

Ouvre un fichier Word malettre.doc avec OLE

Sub ole3()
Dim oApp As Word.Application, doc As Word.Document
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc" ' la lettre est dans le
même rép que le classeur Excel
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open (nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion
d'erreur
oApp.Selection.WholeStory ' Sélectionne le texte
oApp.Selection.Copy ' copie
Sheets.Add
ActiveSheet.Paste ' colle dans feuille Excel
oApp.Quit
End Sub

Cordialement JB
Avatar
Fredo P
Bonjour Clément
Pour que cela fonctionne, je fut obligé de mettre en commentaire toutes les
lignes faisant ref à "wdstory" (Xl97).
"Clément Marcotte" a écrit dans le message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian






Avatar
Fredo P
J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian






Avatar
Clément Marcotte
Bonjour,

Regarde dans Eexcel, s'il n'y aurait pas des référencess non cochées. (Je
n'ai plus Office 97)



"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans
le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian










Avatar
Clément Marcotte
Bonjour,

De mémoire, wdstory serait une constante pour désigner l'ensemble du texte.
Fais une recherche dans l'Explorateur d'objets avec wdstory. Si c'est comme
pour Word 2002, il devarit retourner quelque chose.


"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans
le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian










Avatar
Clément Marcotte
Bonjour,

P.S. Si la recherche dans l'Explorateur d'objets, ne donne rien, c'est
vraisemblablement parce que Word 97, ne reconnaît pas wdstory. Va falloir
que je me replonge là-dedans. À vrai dire, c'est un "vieux" classeur, d'il y
a plusieurs mois.


"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

De mémoire, wdstory serait une constante pour désigner l'ensemble du
texte. Fais une recherche dans l'Explorateur d'objets avec wdstory. Si
c'est comme pour Word 2002, il devarit retourner quelque chose.


"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le
message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document
Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans
le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes
documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian














Avatar
Fredo P
Il s'y trouve bien dans la bible de Word -Class- wdUnits
Ensuite ,n'ai pas l'expérience pour me servir de la bible-word. par Xl.
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

P.S. Si la recherche dans l'Explorateur d'objets, ne donne rien, c'est
vraisemblablement parce que Word 97, ne reconnaît pas wdstory. Va falloir
que je me replonge là-dedans. À vrai dire, c'est un "vieux" classeur, d'il
y

a plusieurs mois.


"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

De mémoire, wdstory serait une constante pour désigner l'ensemble du
texte. Fais une recherche dans l'Explorateur d'objets avec wdstory. Si
c'est comme pour Word 2002, il devarit retourner quelque chose.


"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le
message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document
Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit
dans




le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local,
4)





mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est
le





même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes
documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian


















Avatar
Clément Marcotte
Bonjour,

Je regarde plus tard, mais probablement pas aujourd'hui.

En attendant, regarde dans Excel et essaie en cochant la référence à la
bibliothèque Word. Pour Office 97, ce doit être quelque chose du genre word
8 object librairy.


"Fredo P" a écrit dans le message de news:

Il s'y trouve bien dans la bible de Word -Class- wdUnits
Ensuite ,n'ai pas l'expérience pour me servir de la bible-word. par Xl.
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

P.S. Si la recherche dans l'Explorateur d'objets, ne donne rien, c'est
vraisemblablement parce que Word 97, ne reconnaît pas wdstory. Va falloir
que je me replonge là-dedans. À vrai dire, c'est un "vieux" classeur,
d'il
y

a plusieurs mois.


"Clément Marcotte" a écrit dans le
message
de news:
Bonjour,

De mémoire, wdstory serait une constante pour désigner l'ensemble du
texte. Fais une recherche dans l'Explorateur d'objets avec wdstory. Si
c'est comme pour Word 2002, il devarit retourner quelque chose.


"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le
message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document
Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit
dans




le
message de news:

Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local,
4)





mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est
le





même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes
documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian






















Avatar
Clément Marcotte
Bonjour,

As tu mis de noms de fichiers qui correspondent à des fichiers sur ton
disque ?

(Pas sur que mes trois fichiers soient bien chez-vous et à la même place)


"Fredo P" a écrit dans le message de news:

J'oubliais:
Le message d'erreur: "Projets ou bibliothèque introuvable"
"Clément Marcotte" a écrit dans le message
de news:

Bonjour,

Regarde cela. Il y a 2 macros, une pour créer un nouveau document Word,
et

une pour ouvrir un document.

http://cjoint.com/?fbeS0DUml6



"Thoutmosis 1er" a écrit dans
le
message de news:
Bonjour,

Je voudrait lancer Word et ouvrir un fichier précis depuis une
procédure
VBA
au sein d'un fichier excel.
J'utilise la fonction suivante :RetVal = Shell(app + fichier_local, 4)
mais si word s'ouvre bien il ne trouve pas le fichier doc
correspondant.
J'ai essayé de passer les arguments en direct mais le résultat est le
même.
voila le chemain d'accés que j'indique dans la ligne de commande :
C:Documents and SettingschristianMes documentsxxxxxyyyyyzzzzz.doc

Merci d'avance

Christian