Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel excel et word avec lien

excel et word avec lien

16 réponses
Avatar
mg
bonjour
comment lancer dans une macro excel un fichier word a une page determinee
pour l'instant je lance comme ceci :
Shell "C:\Program Files\Microsoft Office\Office\winword.exe
C:\directory\sousdir\fichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci
Signaler un problème avec ce contenu

6 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
1 2
Avatar
Daniel.C
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de ton
classeur. Clique ensuite sur le menu "Outils" puis sur "Références" :
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la case
:
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne te
l'avais pas dit), dans la fenêtre VBE, les menus Outils / Références, la
ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj =
CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer un
objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à un
gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux aller
en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages que
le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne ?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci
























Avatar
mg
ok bien vu c fait
mais maintenant j'ai un autre beau message sur le ligne :
WdApp.Documents.Open "C:
qui dit : Variable objet ou variablede bloc with non definie



"Daniel.C" a écrit dans le message de
news:
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de ton
classeur. Clique ensuite sur le menu "Outils" puis sur "Références" :
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la
case :
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne te
l'avais pas dit), dans la fenêtre VBE, les menus Outils / Références, la
ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj =
CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer un
objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à un
gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux aller
en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages que
le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne ?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci




























Avatar
Daniel.C
Au temps pour moi. Cette fois-ci, ça doit fonctionner :
Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Remplace le chemin et le nom du fichier par celui qui te convient.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48f08944$0$2856$
ok bien vu c fait
mais maintenant j'ai un autre beau message sur le ligne :
WdApp.Documents.Open "C:
qui dit : Variable objet ou variablede bloc with non definie



"Daniel.C" a écrit dans le message de
news:
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de
ton classeur. Clique ensuite sur le menu "Outils" puis sur "Références" :
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la
case :
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne
te l'avais pas dit), dans la fenêtre VBE, les menus Outils /
Références, la ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj =
CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer
un objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à un
gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux
aller en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages
que le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne ?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci































Avatar
mg
c encore moi cette fois c Set WdApp = CreateObject("Word.Application")
qui n'ouvre pas mon appli winword.exe message :

mais j'en é marre j'arrete
merci encore pout tout


"Daniel.C" a écrit dans le message de
news:%
Au temps pour moi. Cette fois-ci, ça doit fonctionner :
Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Remplace le chemin et le nom du fichier par celui qui te convient.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48f08944$0$2856$
ok bien vu c fait
mais maintenant j'ai un autre beau message sur le ligne :
WdApp.Documents.Open "C:
qui dit : Variable objet ou variablede bloc with non definie



"Daniel.C" a écrit dans le message de
news:
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de
ton classeur. Clique ensuite sur le menu "Outils" puis sur "Références"
:
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la
case :
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne
te l'avais pas dit), dans la fenêtre VBE, les menus Outils /
Références, la ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj =
CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer
un objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à
un gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux
aller en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages
que le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne ?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci



































Avatar
michdenis
Essaie ceci :

'----------------------------------------------------
Sub test()

Dim WdApp As Object, Dc As Object
Dim MaPage As Integer, Fichier As String
Dim Chemin As String

'*******Variables à définir************
Chemin = "C:Excel"
Fichier = "denis.doc"
MaPage = 2
'**************************************

'Création d'une instance de l'application Word
'L'application Word doit être au moins présente sur
'l'ordinateur où le code est exécuté
On Error Resume Next
Set WdApp = CreateObject("Word.Application")
'Arrêt de la procédure si word n'est pas installé.
If Err <> 0 Then MsgBox "Word n'est pas installé": Exit Sub

'Rendre visible Word
WdApp.Visible = True 'False pour ne pas voir l'application
'Ouverture du document Word
Set Dc = WdApp.Documents.Open(Chemin & Fichier)

'Pour se rendre à la page 2 du document
Dc.GoTo What:=wdGoToPage, which:=wdGoToNext, Count:=2
WdApp.Browser.Next

End Sub
'----------------------------------------------------




"mg" <news.swing.be> a écrit dans le message de news:
48f0b904$0$2860$
c encore moi cette fois c Set WdApp = CreateObject("Word.Application")
qui n'ouvre pas mon appli winword.exe message :

mais j'en é marre j'arrete
merci encore pout tout


"Daniel.C" a écrit dans le message de
news:%
Au temps pour moi. Cette fois-ci, ça doit fonctionner :
Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Remplace le chemin et le nom du fichier par celui qui te convient.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48f08944$0$2856$
ok bien vu c fait
mais maintenant j'ai un autre beau message sur le ligne :
WdApp.Documents.Open "C:
qui dit : Variable objet ou variablede bloc with non definie



"Daniel.C" a écrit dans le message de
news:
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de
ton classeur. Clique ensuite sur le menu "Outils" puis sur "Références"
:
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la
case :
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne
te l'avais pas dit), dans la fenêtre VBE, les menus Outils /
Références, la ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj >>>>>> CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer
un objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à
un gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux
aller en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages
que le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne ?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci



































Avatar
mg
ok ca marche
merci a tous les deux
a + a charge de revenche

"michdenis" a écrit dans le message de
news:
Essaie ceci :

'----------------------------------------------------
Sub test()

Dim WdApp As Object, Dc As Object
Dim MaPage As Integer, Fichier As String
Dim Chemin As String

'*******Variables à définir************
Chemin = "C:Excel"
Fichier = "denis.doc"
MaPage = 2
'**************************************

'Création d'une instance de l'application Word
'L'application Word doit être au moins présente sur
'l'ordinateur où le code est exécuté
On Error Resume Next
Set WdApp = CreateObject("Word.Application")
'Arrêt de la procédure si word n'est pas installé.
If Err <> 0 Then MsgBox "Word n'est pas installé": Exit Sub

'Rendre visible Word
WdApp.Visible = True 'False pour ne pas voir l'application
'Ouverture du document Word
Set Dc = WdApp.Documents.Open(Chemin & Fichier)

'Pour se rendre à la page 2 du document
Dc.GoTo What:=wdGoToPage, which:=wdGoToNext, Count:=2
WdApp.Browser.Next

End Sub
'----------------------------------------------------




"mg" <news.swing.be> a écrit dans le message de news:
48f0b904$0$2860$
c encore moi cette fois c Set WdApp = CreateObject("Word.Application")
qui n'ouvre pas mon appli winword.exe message :

mais j'en é marre j'arrete
merci encore pout tout


"Daniel.C" a écrit dans le message de
news:%
Au temps pour moi. Cette fois-ci, ça doit fonctionner :
Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Remplace le chemin et le nom du fichier par celui qui te convient.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48f08944$0$2856$
ok bien vu c fait
mais maintenant j'ai un autre beau message sur le ligne :
WdApp.Documents.Open "C:
qui dit : Variable objet ou variablede bloc with non definie



"Daniel.C" a écrit dans le message de
news:
Bonsoir.
Dans la fenêtre VBE (ALT+F11), clique dans le projet portant le nom de
ton classeur. Clique ensuite sur le menu "Outils" puis sur "Références"
:
http://cjoint.com/?kkvjoFTTV1
(Dans cet exemple, le classeur s'appelle "Romain.xls")
La fenêtre suivante s'affiche :
http://cjoint.com/?kkvmaZkxsw
Descend jusqu'à Microsoft Word Library nn.n object library" et coche la
case :
http://cjoint.com/?kkvntsoGng
Tu y es.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ef835c$0$2860$
trouve pas ou !!!


"Daniel.C" a écrit dans le message de
news:%
Heu est-ce que tu as coché (c'était fait dans le classeur, mais je ne
te l'avais pas dit), dans la fenêtre VBE, les menus Outils /
Références, la ligne "Microsoft Word nn Object Library" ?
ou nn doit être différent de 12.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48ece90b$0$2870$
toujours le meme souci : sur la ligne Set wordobj >>>>>>> CreateObject("Word.Application")
message d'erreur qui dit : un composant ActiveX ne peut pas creer
un objet


"Daniel.C" a écrit dans le message de
news:
Merdouille ! Je t'ai donné le classeur qui me servait de réponse à
un gars qui voulait lancer un publipostage !
Remplace la macro test par celle-ci (tu codes la page où tu veux
aller en remplaçant le "2" de :
maPage = 2) :

Sub test()
Dim WdApp As Object, maPage As Integer
maPage = 2
Set wordobj = CreateObject("Word.Application")
WdApp.Documents.Open "E:donneesdanielmpfelettre.doc"
WdApp.DisplayAlerts = True
WdApp.Selection.GoTo wdGoToPage, maPage
End Sub

Vérifie aussi que le document Word a bien au moins autant de pages
que le nombre que tu codes.
--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb88d0$0$2855$
ca plante sur wdOpenFormatAuto


"Daniel.C" a écrit dans le message de
news:
Est-ce que tu as essayé avec les documents que j'ai mis en ligne
?

Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48eb7d25$0$2856$
bonjour
comment lancer dans une macro excel un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
mais j'accede systematiquement a la page 1
qui a une bonne idee
d'avance merci






































1 2