Discussion :

[julien41]

Bonjour,

Depuis un script en VBS, j'aimerais ouvrir un fichier "Excel" existant, remplir des lignes, sauvegarder et fermer le fichier.

En cherchant sur le net, j'arrive à ouvrir mon document mais je n'arrive pas à remplir les cellules !

Est-ce que quelqu'un pourrait m'aider svp ?

[Miistik]

Bonjour,


Une simple recherche sur la FAQ VBS du forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim xlapp, classeur, feuille
 
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Set classeur = xlapp.Workbooks.add
Set feuille = xlapp.ActiveSheet
feuille.Range("A1") = "Rajout du texte en cellule A1"
Classeur.Saveas "c:\tmp\MonClasseur"
classeur.Close True 'quitte en sauvant
 
xlApp.quit
Set classeur = Nothing
Set xlapp = Nothing

[julien41]

Merci pour réponse, effectivement j'avais vu ce bout de script mais qui ne fonctionne pas chez moi !

[Miistik]

Fonctionnement avec Windows 7 Enterprise 32 bits et Office 2010

J'ai juste changé le chemin de sauvegarde et cela fonctionne.

Détaille l'erreur sur ce code.

[julien41]

Le code ne remplit pas les cellules !

Je n'y connais pas grand chose en VBS mais dans ce bout de code ou est la commande pour ouvrir le fichier "excel" ?

Je me trompe peut-être mais pour moi ce bout de code est fait pour créer un fichier "Excel" !

Moi je veux en modifier un existant...

[Miistik]

Ce code ouvre un nouveau fichier Excel.

Pour ouvrir un fichier existant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
fichierXL = "tonChemin"
Set xlapp = CreateObject("Excel.Application")
call xlapp.Workbooks.Open(fichierXL,0) '0 en lecture donc 1 en écriture je pense

[julien41]

Oui effectivement cela ouvre bien mon fichier "Excel"...

Mais comme je le disais, il n'y a aucun soucis, j'arrive à ouvrir mon document mais c'est après que cela se complique car je n'arrive pas à remplir certaine cellule.

Le code qu'il y a dans la FAQ ne fonctionne pas pour modifier et je n'arrive pas à l'adapter !

[Miistik]

Sois plus précis.

Dis moi ton OS, ta version d'Excel et l'erreur VBS s'il y en a une.

[julien41]

Je suis sous Windows 7 Entreprise et Office 2010.
Par contre il n'y a pas d'erreur car je ne sais pas comment modifier une cellule.

J'ai essayé avec cette commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuille.Range("A1") = "Rajout du texte en cellule A1"

Mais mon fichier reste ouvert et rien ne se passe !

[Miistik]

Donne-moi ton code entier stp

[julien41]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim xlapp, classeur, feuille
 
fichierXL = "fichier.xls"
Set xlapp = CreateObject("Excel.Application")
call xlapp.Workbooks.Open(fichierXL,0)
xlapp.Visible = True
Set feuille = xlapp.ActiveSheet
feuille.Range("C2") = "Modif"
Classeur.Saveas "fichier.xls"
classeur.Close True
 
xlApp.quit
Set classeur = Nothing
Set xlapp = Nothing

Ca avance ! Désormais j'arrive à ouvrir le fichier et faire la modification !
Par contre il me reste plus qu'a trouver comment sauvegarder et fermer le fichier !

[SfJ5Rpw8]

bonjour,

modifie ta ligne 5:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set classeur = xlapp.Workbooks.Open(fichierXL,0)

[julien41]

Voici le bout de code pour fermer et enregistrer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
xlapp.ActiveWorkbook.Save
 
xlapp.quit
Set classeur = Nothing
Set xlapp = Nothing

Merci à tous pour vos réponses