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

ouverture

6 réponses
Avatar
Emcy
Salut,

j'ai fait cette macro dans Word ( =E7a doit ouvrir un=20
documment Excel). Pourquoi =E7a marche pas ? (je crois que=20
=E7a viens des espaces qu'il y a dans les noms des=20
repertoires )

Sub ouvreExcel()

'application s'ouvre =E0 sa taille normale et devient=20
l'application active.
MyAppID =3D Shell("C:\Program Files\Microsoft=20
Office\Office10\EXCEL.EXE C:\Documents and=20
Settings\MARMONIER_C\Bureau\Travail En=20
Cours\CreationComposant.xls", 1)
AppActivate MyAppID

End Sub
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
Avatar
Denis Michon
Bonjour Emcy,

Et ceci t'intéresse :

'-----------------------
Sub OuvrirExcel()

Dim FichierAouvrir As String

FichierAouvrir = "C:excelclass1.xls"

With CreateObject("excel.application")
.Workbooks.Open FichierAouvrir
.Visible = True
End With

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

Salutations!



"Emcy" a écrit dans le message de news:1f16101c389b6$10045b40$
Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois que
ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub
Avatar
Denis Michon
Bonjour Emcy,

ça aussi fonctionne :

MyAppID = Shell("C:Program FilesMicrosoft Office" & _
"Office10EXCEL.EXE C:Excelclass1.xls", 1)
AppActivate MyAppID


Tu devais avoir un petit problème de syntaxe ...


Salutations!


"Emcy" a écrit dans le message de news:1f16101c389b6$10045b40$
Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois que
ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub
Avatar
Emcy
Salut,

je suis quasiment sure que je ne me suis pas trompé dans
la synthaxe. Quand je lance la macro un plusieurs
messages d'erreurs arrivent les uns après les autres :
Documents.xls introuvable
and.xls introuvable
setting.xls introuvable


Tu vois pas de quoi ça peut venir ?

-----Message d'origine-----
Bonjour Emcy,

ça aussi fonctionne :

MyAppID = Shell("C:Program FilesMicrosoft Office" & _
"Office10EXCEL.EXE C:Excelclass1.xls", 1)
AppActivate MyAppID


Tu devais avoir un petit problème de syntaxe ...


Salutations!


"Emcy" a écrit dans le message de
news:1f16101c389b6$10045b40$

Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois que
ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub


.



Avatar
Denis Michon
Et bien Emcy,

Cette façon de faire a été testé :

MyAppID = Shell("C:Program FilesMicrosoft Office" & _
"Office10EXCEL.EXE C:Excelclass1.xls", 1)
AppActivate MyAppID


Et je n'ai rencontré aucune difficulté.

Avec un message de ce type: Documents.xls introuvable

Vérifie l'orthographe du nom de ton fichier et le chemin.


Salutations!


"Emcy" a écrit dans le message de news:0fdb01c38bf8$bcaadb50$
Salut,

je suis quasiment sure que je ne me suis pas trompé dans
la synthaxe. Quand je lance la macro un plusieurs
messages d'erreurs arrivent les uns après les autres :
Documents.xls introuvable
and.xls introuvable
setting.xls introuvable


Tu vois pas de quoi ça peut venir ?

-----Message d'origine-----
Bonjour Emcy,

ça aussi fonctionne :

MyAppID = Shell("C:Program FilesMicrosoft Office" & _
"Office10EXCEL.EXE C:Excelclass1.xls", 1)
AppActivate MyAppID


Tu devais avoir un petit problème de syntaxe ...


Salutations!


"Emcy" a écrit dans le message de
news:1f16101c389b6$10045b40$

Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois que
ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub


.



Avatar
Frédéric Sigonneau
Bonjour,

Shell n'aime pas trop les noms longs avec espaces...
Il faut entourer le paramètre de guillemets :

Sub test()
MyAppID = Shell("C:Program FilesMicrosoft OfficeOffice10EXCEL.EXE " & _
"""C:Documents and SettingsFrédéricMes documentsClasseur1.xls""", 1)
End Sub

(attention aux coupures de lignes dans ton lecteur de messagerie)

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Salut,

je suis quasiment sure que je ne me suis pas trompé dans
la synthaxe. Quand je lance la macro un plusieurs
messages d'erreurs arrivent les uns après les autres :
Documents.xls introuvable
and.xls introuvable
setting.xls introuvable

Tu vois pas de quoi ça peut venir ?

-----Message d'origine-----
Bonjour Emcy,

ça aussi fonctionne :

MyAppID = Shell("C:Program FilesMicrosoft Office" & _
"Office10EXCEL.EXE C:Excelclass1.xls", 1)
AppActivate MyAppID


Tu devais avoir un petit problème de syntaxe ...


Salutations!


"Emcy" a écrit dans le message de
news:1f16101c389b6$10045b40$

Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois que
ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub


.





Avatar
Emcy
Merci !

-----Message d'origine-----
Bonjour,

Shell n'aime pas trop les noms longs avec espaces...
Il faut entourer le paramètre de guillemets :

Sub test()
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE " & _

"""C:Documents and SettingsFrédéricMes
documentsClasseur1.xls""", 1)

End Sub

(attention aux coupures de lignes dans ton lecteur de
messagerie)


FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Salut,

je suis quasiment sure que je ne me suis pas trompé
dans


la synthaxe. Quand je lance la macro un plusieurs
messages d'erreurs arrivent les uns après les autres :
Documents.xls introuvable
and.xls introuvable
setting.xls introuvable

Tu vois pas de quoi ça peut venir ?

-----Message d'origine-----
Bonjour Emcy,

ça aussi fonctionne :

MyAppID = Shell("C:Program FilesMicrosoft Office"
& _



"Office10EXCEL.EXE C:Excelclass1.xls",
1)



AppActivate MyAppID


Tu devais avoir un petit problème de syntaxe ...


Salutations!


"Emcy" a écrit dans le message de
news:1f16101c389b6$10045b40$

Salut,

j'ai fait cette macro dans Word ( ça doit ouvrir un
documment Excel). Pourquoi ça marche pas ? (je crois
que



ça viens des espaces qu'il y a dans les noms des
repertoires )

Sub ouvreExcel()

'application s'ouvre à sa taille normale et devient
l'application active.
MyAppID = Shell("C:Program FilesMicrosoft
OfficeOffice10EXCEL.EXE C:Documents and
SettingsMARMONIER_CBureauTravail En
CoursCreationComposant.xls", 1)
AppActivate MyAppID

End Sub


.




.