ouvrir Excel puis ecrire

Qu'est-ce que tu fais exactement, tu fait un nouveau fichier ou tu ecris dans
un déja existant ???

si c a chaque fois c'est un nouveau fichier tu n'as qu'a supprimer l'ancien
avec FSO

set oFS = WScript.CreateObject("Scripting.FileSytemObject")
oFS.DeleteFile(XLSFile,true)

Amicalement
Guy

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela
est ok)

le seul probleme c'est que j'ouvre le fichier excel et il
me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script

merci,

je cherche a ouvrir un fichier existant pour remplir
certaine cellule.

-----Message d'origine-----
Qu'est-ce que tu fais exactement, tu fait un nouveau
fichier ou tu ecris dans

un déja existant ???

si c a chaque fois c'est un nouveau fichier tu n'as qu'a
supprimer l'ancien

avec FSO

set oFS = WScript.CreateObject
("Scripting.FileSytemObject")

oFS.DeleteFile(XLSFile,true)

Amicalement
Guy

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel
(cela

est ok)

le seul probleme c'est que j'ouvre le fichier excel et
il

me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script

.

dans ce cas ce qui pose problème je crois que c la ligne
xapp.ActiveWorkbook.Saved = True

sans celle-ci cela devrait fonctinnait niquel ...
Guy

merci,

je cherche a ouvrir un fichier existant pour remplir
certaine cellule.

-----Message d'origine-----
Qu'est-ce que tu fais exactement, tu fait un nouveau
fichier ou tu ecris dans

un déja existant ???

si c a chaque fois c'est un nouveau fichier tu n'as qu'a
supprimer l'ancien

avec FSO

set oFS = WScript.CreateObject
("Scripting.FileSytemObject")

oFS.DeleteFile(XLSFile,true)

Amicalement
Guy

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel
(cela

est ok)

le seul probleme c'est que j'ouvre le fichier excel et
il

me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script

.

Dans le message news:171101c4b685$f1726c50$a501280a@phx.gbl ,
Erik Jublot <anonymous@discussions.microsoft.com> s'est ainsi exprimé:

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela
est ok)

le seul probleme c'est que j'ouvre le fichier excel et il
me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?

[...]
workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Modife ainsi (c'est ce que je pratique dans mon script "ShowAdm") :

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
ExcelFile="d:testtest.xls"
If fso.FileExists(ExcelFile) Then fso.DeleteFile ExcelFile, true
Workbook.SaveAs ExcelFile
...

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr

Bonsoir,

j'ai retirer la ligne et cela fait pareil

Merci

-----Message d'origine-----
dans ce cas ce qui pose problème je crois que c la ligne
xapp.ActiveWorkbook.Saved = True

sans celle-ci cela devrait fonctinnait niquel ...
Guy

merci,

je cherche a ouvrir un fichier existant pour remplir
certaine cellule.

-----Message d'origine-----
Qu'est-ce que tu fais exactement, tu fait un nouveau
fichier ou tu ecris dans

un dÃf©ja existant ???

si c a chaque fois c'est un nouveau fichier tu n'as
qu'a

supprimer l'ancien

avec FSO

set oFS = WScript.CreateObject
("Scripting.FileSytemObject")

oFS.DeleteFile(XLSFile,true)

Amicalement
Guy

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je
vous

demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel
(cela

est ok)

le seul probleme c'est que j'ouvre le fichier excel
et

il

me demande a chaque fois
"un fichier nommÃf© pathfichier.xls existe deja a
cet

emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script

.

.

Bonsoir,

Merci Jean-Claude,

mais cela detrui le fichier si il existe alors que je
voudrais ouvrir le fichier existant et modifier 1 a n
cellules.

Merci

-----Message d'origine-----
Dans le message news:171101c4b685$f1726c50
$a501280a@phx.gbl ,

Erik Jublot <anonymous@discussions.microsoft.com> s'est
ainsi exprimé:

Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela
est ok)

le seul probleme c'est que j'ouvre le fichier excel et
il

me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?

[...]
workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Modife ainsi (c'est ce que je pratique dans mon
script "ShowAdm") :

Set fso = WScript.CreateObject
("Scripting.FileSystemObject")

ExcelFile="d:testtest.xls"
If fso.FileExists(ExcelFile) Then fso.DeleteFile
ExcelFile, true

Workbook.SaveAs ExcelFile
....

--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr


.

Bonjour a tous,

Salut je fais a peu près la meme chose que toi:
En plus je scrute tous les fichiers Excel qui se trouvent dans les sous
répertoires et je les modifies tous de la même façon, Excel reste ouvert:

@+ Stephane

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder =
oFSO.GetFolder("C:CELYAEasyPHPwwwcovapuserfilesrootAdherents")
Set oXL = WScript.CreateObject("EXCEL.application")

For each oSubFolder In oFolder.SubFolders
For each oFile In oSubFolder.Files
If InStr(LCase(oFile.Name), "restealivrer") > 0 Then
oXL.Workbooks.Open oFile.path
oXL.Visible = True
oXL.screenupdatingúlse
oXL.Sheets(1).Select

oXL.Sheets(1).PageSetup.PrintTitleRows = "$1:$1"


oXL.cells(1,1).select
oXL.ActiveWorkbook.Save
oXL.ActiveWorkbook.close
End If
Next
Next

oXL.Application.Quit

Dans le message news:003d01c4b6bb$cf92f1f0$a301280a@phx.gbl ,
Erik Jublot <anonymous@discussions.microsoft.com> s'est ainsi exprimé:

Bonsoir,

Merci Jean-Claude,

mais cela detrui le fichier si il existe alors que je
voudrais ouvrir le fichier existant et modifier 1 a n
cellules.
???

Et alors ?
Le fichier est ouvert par Excel au début.
Je le modifie (en mémoire) à l'iade du script.
Je supprime le (vieux) fichier sur disque, puis j''enregistre ce qu'il ya en
mémoire vers le disque.
Où est le problème ?


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr

Bonsoir,

Merci a vous deux.

euh Jean-Claude ne nous emportons pas comme ca, c'etais juste que je ne
comprenais pas la ou vous vouliez en venir.
je debute en scripting vbs et donc ne comprend pas toujours la tournure d'un
script vbs.
Désoler donc mais merci d'avoir apporter ta pierre a l'édifice.


Merci Stéphane, j'ai utiliser une parti de ton script dont en voici la
sortie en fin de mess

il me reste plus qu'a finaliser le script total.

je pense que le probleme etais l'utilisation de .Open
le set workbook generais sans doute un probleme
set workbook = xapp.WorkBooks.open ("C:testtest.xls",Editable)

@+
et merci encore de votre aide precieuse.

Erik Jublot

Script test pour Excel

msg1 = InputBox("tapez le texte de la cellule 1")
msg2 = InputBox("tapez le texte de la cellule 2")
ExcelFile="c:testtest.xls"
Set oFSO = CreateObject("Scripting.FileSystemObject")

Set Xapp = WScript.CreateObject("EXCEL.application")

Xapp.Workbooks.Open ExcelFile
Xapp.Visible = False
Xapp.Sheets(1).Select
Xapp.cells(1,2).Value=msg1

Xapp.Sheets(2).Select
Xapp.cells(8,8).Value=msg2

Xapp.Sheets(1).Select
Xapp.cells(1,1).Select

Xapp.ActiveWorkbook.Save
Xapp.ActiveWorkbook.close

Xapp.Application.Quit





"Erik Jublot" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:171101c4b685$f1726c50$a501280a@phx.gbl...
Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela
est ok)

le seul probleme c'est que j'ouvre le fichier excel et il
me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script

Bonjour
Si tu fais "enregistrer sous" par les menus, tu obtiens bien ce message.
Or c'est ce que tu fais avec le SaveAs.
Pourquoi ne pas utiliser Save ? (le nom de fichier ne change pas d'après ce
que je vois)
Si malgré cela tu as des avertissements, regarde bien les options des ces
méthodes (Save, SaveAs, Close et Quit)
Je crois que tu peux désactiver les avertissements. Si ce n'est pas là,
alors peut être dans des options plus générales liées à l'application Excel
elle même (Application.QuelqueChose)

"Erik Jublot" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:171101c4b685$f1726c50$a501280a@phx.gbl...
Bonjour a tous,

suite au recherche dans le newsgroupe en vain je vous
demande de l'aide.

voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela
est ok)

le seul probleme c'est que j'ouvre le fichier excel et il
me demande a chaque fois
"un fichier nommé pathfichier.xls existe deja a cet
emplacement.voulez-vous le rempcer?
Oui Non Annuler

je ne fais peut etre pas correctement l'ouverture.
je suis allez sur internet et pas trouver de reponse.

d'avance merci de votre aide

Parti du script

Dim xapp, workbook, workbooks, worksheet, msg

set xapp = WScript.CreateObject("Excel.Application")
xapp.Visible = True

' Ouverture du fichier Excel:
set workbook = xapp.WorkBooks.Open
("d:testtest.xls",Editable)
xapp.ActiveWorkbook.Saved = True

'Selection de la feuille a remplir
set worksheet = workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value = "test1"
worksheet.Cells(1, 2).Value = "test1est"

set worksheet = workbook.Worksheets("Feuil2")
worksheet.Cells(1, 1).Value = "test2st"
worksheet.Cells(1, 2).Value = "test2est"

set worksheet = workbook.Worksheets("Feuil3")
worksheet.Cells(1, 1).Value = "test3"
worksheet.Cells(6, 7).Value = "test3t"
worksheet.Cells(1, 2).Value = "test3t"

workbook.SaveAs("d:testtest.xls") 'save du fichier
workbook.Close 'Close du classeur
xapp.Quit ' Fermeture de excel

Fin du script