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