OVH Cloud OVH Cloud

ouverture fichier excel

6 réponses
Avatar
Le Noob
Bonjour,

Acces 2003

j'ai cette ligne de code sur un bouton d'un formulaire :

Call Shell("Excel.exe ""C:\test.xls""", 1)

Je voudrais remplacer "test.xls" par une valeur (unique) contenu dans un
listbox, qui contient le chemin entier vers un fichier excel, ceci afin de
l'ouvrir


Comment faire ?

Merci d'avance !

6 réponses

Avatar
?Lo»Paris?
Le Noob wrote:
Bonjour,

Acces 2003

j'ai cette ligne de code sur un bouton d'un formulaire :

Call Shell("Excel.exe ""C:test.xls""", 1)

Je voudrais remplacer "test.xls" par une valeur (unique) contenu dans
un listbox, qui contient le chemin entier vers un fichier excel, ceci
afin de l'ouvrir


Comment faire ?

Merci d'avance !


Bonjour Noob (me too)

Si ton chemin est contenu dans la colonne 1 de ta liste :

Dim sChem as string

sChem = "Excel.exe " & chr$(34) & MaListe.Column(1) & chr$(34)

Call Shell(sChem, 1)

Sinon essai de voir avec l'automation si tu as plus de chose à faire avec
Access (Objet ExcelApplication)

Salutaions

--
°Laurent°

Avatar
Arnaud [lwa]
Bonjour Le Noob,

Call Shell("Excel.exe " & me.TaListBox, 1)

a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Dans sa missive, Le Noob a atermoyé :
| Bonjour,
|
| Acces 2003
|
| j'ai cette ligne de code sur un bouton d'un formulaire :
|
| Call Shell("Excel.exe ""C:test.xls""", 1)
|
| Je voudrais remplacer "test.xls" par une valeur (unique) contenu dans
| un listbox, qui contient le chemin entier vers un fichier excel, ceci
| afin de l'ouvrir
|
|
| Comment faire ?
|
| Merci d'avance !
Avatar
Le Noob
Wouhaaaaa !!

Trop trop fort !
Les deux méthode marchent

Milles mercis

"Arnaud [lwa]" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le
message de news:
Bonjour Le Noob,

Call Shell("Excel.exe " & me.TaListBox, 1)

a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Dans sa missive, Le Noob a atermoyé :
| Bonjour,
|
| Acces 2003
|
| j'ai cette ligne de code sur un bouton d'un formulaire :
|
| Call Shell("Excel.exe ""C:test.xls""", 1)
|
| Je voudrais remplacer "test.xls" par une valeur (unique) contenu dans
| un listbox, qui contient le chemin entier vers un fichier excel, ceci
| afin de l'ouvrir
|
|
| Comment faire ?
|
| Merci d'avance !




Avatar
Le Noob
Yerk !

Vos deux méthodes marchent impec, mais je n'arrive pas les adapter pour le
final que je voulais obtenir :
Je veux en fait importer les données du xls dans une table, j'ai travaillé
autour de :

DoCmd.TransferSpreadsheet acImport, 8, "Table Import", "C:test.xls",
True, ""

j'essaye de remplacer "c:test.xls" avec vos syntaxes, mais ça marche pas.

Si vous avez un tuyau, je resterai votre éternel abonné ;)






"Le Noob" a écrit dans le message de
news:
Wouhaaaaa !!

Trop trop fort !
Les deux méthode marchent

Milles mercis

"Arnaud [lwa]" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le
message de news:
Bonjour Le Noob,

Call Shell("Excel.exe " & me.TaListBox, 1)

a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Dans sa missive, Le Noob a atermoyé :
| Bonjour,
|
| Acces 2003
|
| j'ai cette ligne de code sur un bouton d'un formulaire :
|
| Call Shell("Excel.exe ""C:test.xls""", 1)
|
| Je voudrais remplacer "test.xls" par une valeur (unique) contenu dans
| un listbox, qui contient le chemin entier vers un fichier excel, ceci
| afin de l'ouvrir
|
|
| Comment faire ?
|
| Merci d'avance !








Avatar
Le Noob
Agheuu

J'ai trouvé tout seul ! (avec l'aide d'un msg sur mpfa google)

strFile = Me.Liste19

DoCmd.TransferSpreadsheet acImport, 8, "table Import", strFile,
True, ""

jsuis vraiment trop fort ! m'a fallu que quatre jours ! ;)

et merci encore pour Arnaud et Lo>>Paris


"Le Noob" a écrit dans le message de
news:u90%
Yerk !

Vos deux méthodes marchent impec, mais je n'arrive pas les adapter pour le
final que je voulais obtenir :
Je veux en fait importer les données du xls dans une table, j'ai travaillé
autour de :

DoCmd.TransferSpreadsheet acImport, 8, "Table Import", "C:test.xls",
True, ""

j'essaye de remplacer "c:test.xls" avec vos syntaxes, mais ça marche pas.

Si vous avez un tuyau, je resterai votre éternel abonné ;)






"Le Noob" a écrit dans le message de
news:
Wouhaaaaa !!

Trop trop fort !
Les deux méthode marchent

Milles mercis

"Arnaud [lwa]" <http://memoaccess.free.fr/anor/email.htm> a écrit dans
le


message de news:
Bonjour Le Noob,

Call Shell("Excel.exe " & me.TaListBox, 1)

a+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Dans sa missive, Le Noob a atermoyé :
| Bonjour,
|
| Acces 2003
|
| j'ai cette ligne de code sur un bouton d'un formulaire :
|
| Call Shell("Excel.exe ""C:test.xls""", 1)
|
| Je voudrais remplacer "test.xls" par une valeur (unique) contenu
dans



| un listbox, qui contient le chemin entier vers un fichier excel,
ceci



| afin de l'ouvrir
|
|
| Comment faire ?
|
| Merci d'avance !












Avatar
Arnaud [lwa]
reBonjour Le Noob,

Dans sa missive, Le Noob a atermoyé :
| Yerk !
|
| Vos deux méthodes marchent impec, mais je n'arrive pas les adapter
| pour le final que je voulais obtenir :
| Je veux en fait importer les données du xls dans une table, j'ai
| travaillé autour de :
|
| DoCmd.TransferSpreadsheet acImport, 8, "Table Import",
| "C:test.xls", True, ""
|
| j'essaye de remplacer "c:test.xls" avec vos syntaxes, mais ça marche
| pas.
|
| Si vous avez un tuyau, je resterai votre éternel abonné ;)


ben je dirais tout simplement :

DoCmd.TransferSpreadsheet acImport, 8, "Table Import", me!Taliste, True

ou
DoCmd.TransferSpreadsheet acImport, 8, "Table Import", me!Taliste.column(1), True
si le chemin est dans la 2ème colonne de la requête source de la zone de liste.

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------