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

excel et word

4 réponses
Avatar
mg
bonjour
comment lancer par un shell dans un macro 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
ca marche mais je veut lancer cela a une page bien precise
qui a une bonne idee
d'avance merci
Signaler un problème avec ce contenu

4 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
Daniel.C
Bonjour.
Le code suivant te permets d'aller à la page codée dans la variable maPage :

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

--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48e8db96$0$2859$
bonjour
comment lancer par un shell dans un macro un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
ca marche mais je veut lancer cela a une page bien precise
qui a une bonne idee
d'avance merci



Avatar
Daniel.C
Oups.
Sans les fichiers, ça ne signifie pas grand chose; le classeur est à
l'adresse :
http://cjoint.com/?kfr20RiJco
et le document Word :
http://cjoint.com/?kfr4G13dlu
Daniel
"Daniel.C" a écrit dans le message de news:

Bonjour.
Le code suivant te permets d'aller à la page codée dans la variable maPage
:

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

--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48e8db96$0$2859$
bonjour
comment lancer par un shell dans un macro un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
ca marche mais je veut lancer cela a une page bien precise
qui a une bonne idee
d'avance merci







Avatar
mg
merci j'essaye



"mg" <news.swing.be> a écrit dans le message de
news:48e8db96$0$2859$
bonjour
comment lancer par un shell dans un macro un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
ca marche mais je veut lancer cela a une page bien precise
qui a une bonne idee
d'avance merci



Avatar
mg
bé ca marche pas j'ai un message d'erreur sur la ligne set wordobj qui dit:
un composant activex ne peut pas creer un objet

Le code suivant te permets d'aller à la page codée dans la variable maPage
:

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

--
Cordialement.
Daniel
"mg" <news.swing.be> a écrit dans le message de news:
48e8db96$0$2859$
bonjour
comment lancer par un shell dans un macro un fichier word a une page
determinee
pour l'instant je lance comme ceci :
Shell "C:Program FilesMicrosoft OfficeOfficewinword.exe
C:directorysousdirfichier.doc", vbMaximizedFocus
ca marche mais je veut lancer cela a une page bien precise
qui a une bonne idee
d'avance merci