VBS remplir un fichier excel

Version imprimable

27/03/2013, 16h15
julien41

VBS remplir un fichier excel

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 ?

Bonjour,

Une simple recherche sur la FAQ VBS du forum :

Code:

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

27/03/2013, 16h30
julien41

Merci pour réponse, effectivement j'avais vu ce bout de script mais qui ne fonctionne pas chez moi !
27/03/2013, 16h35
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.
27/03/2013, 16h45
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...

Ce code ouvre un nouveau fichier Excel.

Pour ouvrir un fichier existant :
Code:

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

27/03/2013, 17h00
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 !
27/03/2013, 17h04
Miistik

Sois plus précis.

Dis moi ton OS, ta version d'Excel et l'erreur VBS s'il y en a une.
27/03/2013, 17h11
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:

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

Mais mon fichier reste ouvert et rien ne se passe !
27/03/2013, 17h15
Miistik

Donne-moi ton code entier stp

Code:

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 !

31/03/2013, 09h32
SfJ5Rpw8

bonjour,

modifie ta ligne 5:

Code:

set classeur = xlapp.Workbooks.Open(fichierXL,0)
02/04/2013, 13h18
julien41
Voici le bout de code pour fermer et enregistrer :
Code:

1 2 3 4 5 xlapp.ActiveWorkbook.Save xlapp.quit Set classeur = Nothing Set xlapp = Nothing
Merci à tous pour vos réponses