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 Access Ouvrir excel

Ouvrir excel

4 réponses
Avatar
PatCatNat's
Bonjour,

J'ai un petit blème : Excel ne s'ouvre pas avec ma commande VBA si le chemin
complet n'est pas indiqué (Le répertoire d'Office est renommé puisque j'ai
installé access 97 et 2003).

Je m'explique :

Ce code fonctionne sur un système possédant que Office 97 :

Dim stAppName1 As String
stAppName1 = "Excel.exe C:\VitamineC\Rapport\Zeste.xls"
Call Shell(stAppName1, 1)

Ce code fonctionne sur un système possédant Access 97 et Office 2003 :

Dim stAppName1 As String
stAppName1 = "C:\Program Files\Microsoft Office 2003\OFFICE11\Excel.exe
C:\VitamineC\Rapport\Zeste.xls"
Call Shell(stAppName1, 1)

Le problème est que cette installation est déployée sur plusieurs UC...
Au pire, j'avais pensé mettre une zone de texte à compléter par
l'utilisateur au cas où le chemin d'Excel est différent, mais je ne sais pas
comment faire appel à ce contrôle dans la procédure, ni comment le déclarer
!...

Ambiance... :

Dim stAppName1 As String
stAppName1 = "[CheminExcel] C:\VitamineC\Rapport\Zeste.xls"
Call Shell(stAppName1, 1)

Est-ce que quelqu'un a une solution ?????
Merci



Patrice
\\\ !!!! ///
( @ @ )
-------oOOo--(_)--oOOo------
Mail : patcat.nats@tiscali.fr
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
Raymond [mvp]
Bonjour.

il y a un problème dont tu ne parles pas: sur les systèmes multi-access,
Office est-il installé au complet dans toutes les versions ou as-tu
seulement un seul office 97 et plusieurs access sans office correspondant ?
dans le cas où tous les office sont tous installés, je viens de vérifier, la
procédure que tu utilises en 97:
Dim stAppName1 As String
stAppName1 = "Excel.exe classeur1.xls"
Call Shell(stAppName1, 1)
fonctionne très bien en access 97 et en access 2003, chacun lançant son
propre excel.
Donc je pense que tu n'as qu'un seul office et plusieurs access installés ?
est-ce bien ça ? si oui, la problème existe et il va falloir le contourner
d'une manière difficile..

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:c634uv$s7n$
Bonjour,

J'ai un petit blème : Excel ne s'ouvre pas avec ma commande VBA si le
chemin

complet n'est pas indiqué (Le répertoire d'Office est renommé puisque j'ai
installé access 97 et 2003).

Je m'explique :

Ce code fonctionne sur un système possédant que Office 97 :

Dim stAppName1 As String
stAppName1 = "Excel.exe C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Ce code fonctionne sur un système possédant Access 97 et Office 2003 :

Dim stAppName1 As String
stAppName1 = "C:Program FilesMicrosoft Office
2003OFFICE11Excel.exe

C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Le problème est que cette installation est déployée sur plusieurs UC...
Au pire, j'avais pensé mettre une zone de texte à compléter par
l'utilisateur au cas où le chemin d'Excel est différent, mais je ne sais
pas

comment faire appel à ce contrôle dans la procédure, ni comment le
déclarer

!...

Ambiance... :

Dim stAppName1 As String
stAppName1 = "[CheminExcel] C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Est-ce que quelqu'un a une solution ?????
Merci


Avatar
PatCatNat's
Merci d'avoir prêté attention,

J'ai Office 2003 installé au complet dans un répertoire que j'ai nommé
[C:Program FilesMicrosoft Office 2003]
et Office 97 dont seulement access 97 est installé dans un répertoire que
j'ai nommé [C:Program FilesMicrosoft Office 97]

Le chemin de excel est :
C:Program FilesMicrosoft Office 2003OFFICE11Excel.exe

Mon problème est donc dans le cas de figure où mon appli est en Access 97 et
doit ouvrir Excel2003...

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

il y a un problème dont tu ne parles pas: sur les systèmes multi-access,
Office est-il installé au complet dans toutes les versions ou as-tu
seulement un seul office 97 et plusieurs access sans office correspondant
?

dans le cas où tous les office sont tous installés, je viens de vérifier,
la

procédure que tu utilises en 97:
Dim stAppName1 As String
stAppName1 = "Excel.exe classeur1.xls"
Call Shell(stAppName1, 1)
fonctionne très bien en access 97 et en access 2003, chacun lançant son
propre excel.
Donc je pense que tu n'as qu'un seul office et plusieurs access installés
?

est-ce bien ça ? si oui, la problème existe et il va falloir le contourner
d'une manière difficile..

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:c634uv$s7n$
Bonjour,

J'ai un petit blème : Excel ne s'ouvre pas avec ma commande VBA si le
chemin

complet n'est pas indiqué (Le répertoire d'Office est renommé puisque
j'ai


installé access 97 et 2003).

Je m'explique :

Ce code fonctionne sur un système possédant que Office 97 :

Dim stAppName1 As String
stAppName1 = "Excel.exe C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Ce code fonctionne sur un système possédant Access 97 et Office 2003 :

Dim stAppName1 As String
stAppName1 = "C:Program FilesMicrosoft Office
2003OFFICE11Excel.exe

C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Le problème est que cette installation est déployée sur plusieurs UC...
Au pire, j'avais pensé mettre une zone de texte à compléter par
l'utilisateur au cas où le chemin d'Excel est différent, mais je ne sais
pas

comment faire appel à ce contrôle dans la procédure, ni comment le
déclarer

!...

Ambiance... :

Dim stAppName1 As String
stAppName1 = "[CheminExcel] C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Est-ce que quelqu'un a une solution ?????
Merci







Avatar
Raymond [mvp]
Si tu as office 97, tu peux très bien installer excel 97 qui ne te servira
que pour ta base. L'opérateur, lui, utilisant 2003.
est-ce envisageable ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de
news:c637sn$n0e$
Merci d'avoir prêté attention,

J'ai Office 2003 installé au complet dans un répertoire que j'ai nommé
[C:Program FilesMicrosoft Office 2003]
et Office 97 dont seulement access 97 est installé dans un répertoire que
j'ai nommé [C:Program FilesMicrosoft Office 97]

Le chemin de excel est :
C:Program FilesMicrosoft Office 2003OFFICE11Excel.exe

Mon problème est donc dans le cas de figure où mon appli est en Access 97
et

doit ouvrir Excel2003...


Avatar
Gilbert
Bonjour,
Sur le site de Raymond, tu trouveras comment exécuter un fichier en fonction
de son extension. Tu n'as pas besoin de connaitre la version installée de
Excel.
Va voir http://access.seneque.free.fr/executer_selon_ext.htm

Cordialement
Gilbert


"PatCatNat's" a écrit dans le message de
news:c634uv$s7n$
Bonjour,

J'ai un petit blème : Excel ne s'ouvre pas avec ma commande VBA si le
chemin

complet n'est pas indiqué (Le répertoire d'Office est renommé puisque j'ai
installé access 97 et 2003).

Je m'explique :

Ce code fonctionne sur un système possédant que Office 97 :

Dim stAppName1 As String
stAppName1 = "Excel.exe C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Ce code fonctionne sur un système possédant Access 97 et Office 2003 :

Dim stAppName1 As String
stAppName1 = "C:Program FilesMicrosoft Office
2003OFFICE11Excel.exe

C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Le problème est que cette installation est déployée sur plusieurs UC...
Au pire, j'avais pensé mettre une zone de texte à compléter par
l'utilisateur au cas où le chemin d'Excel est différent, mais je ne sais
pas

comment faire appel à ce contrôle dans la procédure, ni comment le
déclarer

!...

Ambiance... :

Dim stAppName1 As String
stAppName1 = "[CheminExcel] C:VitamineCRapportZeste.xls"
Call Shell(stAppName1, 1)

Est-ce que quelqu'un a une solution ?????
Merci



Patrice
!!!! ///
( @ @ )
-------oOOo--(_)--oOOo------
Mail :