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 Code VBS

Code VBS

4 réponses
Avatar
Jacky
Bonjour

Quelqu'un aurait-il sous la main (ou ailleurs) le code en VBS pour ouvrir un
fichier XLS.
Ou une adresse ou je pourrais trouver cela.

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
sympatix
Salut !

Avec la méthode "run" :

----------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:mon fichier.xls"""
----------------------------------------------
Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jacky" a écrit dans le message de
news:ehQjS%234%
Bonjour

Quelqu'un aurait-il sous la main (ou ailleurs) le code en VBS pour
ouvrir un

fichier XLS.
Ou une adresse ou je pourrais trouver cela.

Merci




Avatar
Richard
Bonjour

En fait, veux-tu ouvrir le fichier XLS dans Excel ou veux-
tu ouvrir le fichier XLS et faire un traitement de ce
fichier en VBS ?

Voilà un exemple VBS pour le 2ème cas :
Dim ExcApp
Set ExcApp = CreateObject("Excel.Application")

ExcApp.Workbooks.Open("C:testtest.xls")

ExcApp.Workbooks(1).Worksheets(1).Range("A1").Value
= "test"

ExcApp.Workbooks(1).Save

ExcApp.Workbooks.Close
ExcApp.Quit
Set ExcApp = Nothing

J'espères qu'il te sera utile :-)

Pour le 1er cas, la méthode du "run" doit marcher.

Richard

-----Original Message-----
Bonjour

Quelqu'un aurait-il sous la main (ou ailleurs) le code en
VBS pour ouvrir un

fichier XLS.
Ou une adresse ou je pourrais trouver cela.

Merci


.



Avatar
Jacky
C'est sympa, sympatix
Cela fonctionne à merveille.
Merci beaucoup
JJ

"sympatix" a écrit dans le message news:
uXIJGt5#
Salut !

Avec la méthode "run" :

----------------------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:mon fichier.xls"""
----------------------------------------------
Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jacky" a écrit dans le message de
news:ehQjS%234%
Bonjour

Quelqu'un aurait-il sous la main (ou ailleurs) le code en VBS pour
ouvrir un

fichier XLS.
Ou une adresse ou je pourrais trouver cela.

Merci







Avatar
Jacky
Merci Richard
d'avoir prêté attention à ma demande, le code de Sympatix me convient
parfaitement.

Salutations
JJ

"Richard" a écrit dans le message
news: 12b101c3fb9f$b38426a0$
Bonjour

En fait, veux-tu ouvrir le fichier XLS dans Excel ou veux-
tu ouvrir le fichier XLS et faire un traitement de ce
fichier en VBS ?

Voilà un exemple VBS pour le 2ème cas :
Dim ExcApp
Set ExcApp = CreateObject("Excel.Application")

ExcApp.Workbooks.Open("C:testtest.xls")

ExcApp.Workbooks(1).Worksheets(1).Range("A1").Value
= "test"

ExcApp.Workbooks(1).Save

ExcApp.Workbooks.Close
ExcApp.Quit
Set ExcApp = Nothing

J'espères qu'il te sera utile :-)

Pour le 1er cas, la méthode du "run" doit marcher.

Richard

-----Original Message-----
Bonjour

Quelqu'un aurait-il sous la main (ou ailleurs) le code en
VBS pour ouvrir un

fichier XLS.
Ou une adresse ou je pourrais trouver cela.

Merci


.