Discussion :

[pascalblois]

bonjour, alors je lis et relis ,mais je comprends pas vraiment , voila mon probleme :
je souhaite faire un vbscript de facon a le mette dans le schedule de window pour ,:
ouvrir un fichier excel qui s'appelle "toto" sur le c: et remplir la case d:5 en y inscrivant "PP" puis refermer en sauvegardant .
commebnt faire cela ???
merci de votre aide

[SfJ5Rpw8]

et tu en est ou ?

tu as essayai :

Comment piloter Excel pour créer un classeur.xls ?

[pascalblois]

bonjour ,
j'en suis ici :

------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

--------------------------


et je cherche comment faire pour ne pas avoir le message demandant confirmation pour enregistrement sur le fichier existant....

et je cherche aussi comment faire pour clicquer sur un bouton dans ce meme document excel ( bouton avec petit macro compteur).

[SfJ5Rpw8]

avant le saveas rajoute la ligne :

Code :

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

xlapp.DisplayAlerts = False

ensuite c'est un nouveau classeur donc il n'y as pas de bouton à cliquer !

Il est censé faire quoi ton bouton ..? tu peu mettre le code correspondant dans ton VBScript .. où appeller une 'macro' grâce à :

Code :

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

xlapp.run "MaMacro"

[pascalblois]

j'ai essayer de rajouter une ligne :

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("D5") = "PP"

waExcel.Application.DisplayAlerts = false

Classeur.Saveas "c:\toto.xls"
classeur.Close True 
xlApp.quit
Set classeur = Nothing
Set xlapp = Nothing

mais j'ai un message d'erreur:windows script host me disant ligne 8 , objet requis 'wbexcel'

je sais pas...

[pascalblois]

ha ok je teste ,

impec , cela fonctionne
pour la macro , elle n'est pas encore ecrite , mais je dois faire un genre de bouton qui va incrementer un compteur ...
je la fais de suite et reviens plus tard , merci deja pour votre aide.

arff , jai encore un probleme
quand j'ajoute un bouton formulaire a mon fichier excel avec une macro , et que je fais tourner le script , il remplis bie ma case D5 , mais mon bouton et ma macro on disparue...????

pour etre meme plus precis , le scrip "efface " tous sauf la case D5

Bbil , ah oui en relisant ton 1 er message , je comprends , moi je voudrais que cela ouvre un fichier EXISTANT et non pas en creer un .

[pascalblois]

ok cela fonctionne , merci

pour les suivant voici le code :

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.Open("c:\toto.xls")
Set feuille = xlapp.ActiveSheet
feuille.Range("D5") = "PP"
xlapp.run "Macro1"
xlapp.DisplayAlerts = False
 
Classeur.Saveas "c:\toto.xls"
classeur.Close True 
xlApp.quit
Set classeur = Nothing
Set xlapp = Nothing

merci