suite au recherche dans le newsgroupe en vain je vous=20
demande de l'aide.
voila mon probleme.
j'ai un script vbs qui ecrit dans un fichier excel (cela=20
est ok)
le seul probleme c'est que j'ouvre le fichier excel et il=20
me demande a chaque fois
"un fichier nomm=E9 path\fichier.xls existe deja a cet=20
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=20
Dim xapp, workbook, workbooks, worksheet, msg
set xapp =3D WScript.CreateObject("Excel.Application")
xapp.Visible =3D True
' Ouverture du fichier Excel:
set workbook =3D xapp.WorkBooks.Open=20
("d:\test\test.xls",Editable)
xapp.ActiveWorkbook.Saved =3D True
'Selection de la feuille a remplir
set worksheet =3D workbook.Worksheets("Feuil1")
worksheet.Cells(1, 1).Value =3D "test1"
worksheet.Cells(1, 2).Value =3D "test1est"
Oups, pardon ! J'avais loupé un bout du fil et je n'avais pas vu la solution :)
"Erik Jublot" a écrit dans le message de news:171101c4b685$f1726c50$ 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"
workbook.SaveAs("d:testtest.xls") 'save du fichier workbook.Close 'Close du classeur xapp.Quit ' Fermeture de excel
Fin du script
Oups, pardon !
J'avais loupé un bout du fil et je n'avais pas vu la solution :)
"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"
Oups, pardon ! J'avais loupé un bout du fil et je n'avais pas vu la solution :)
"Erik Jublot" a écrit dans le message de news:171101c4b685$f1726c50$ 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"
workbook.SaveAs("d:testtest.xls") 'save du fichier workbook.Close 'Close du classeur xapp.Quit ' Fermeture de excel
Fin du script
Stephane D
Merci Stéphane, j'ai utiliser une parti de ton script dont en voici la sortie en fin de mess
Faut rendre à césar ce qui appartient à Jean-Claude :-)) J'ai oublié de préciser hier que pour faire ce script je suis parti d'une base de script pompée sur son site.
@+ Stephane
Merci Stéphane, j'ai utiliser une parti de ton script dont en voici la
sortie en fin de mess
Faut rendre à césar ce qui appartient à Jean-Claude :-)) J'ai oublié de
préciser hier que pour faire ce script je suis parti d'une base de
script pompée sur son site.
Merci Stéphane, j'ai utiliser une parti de ton script dont en voici la sortie en fin de mess
Faut rendre à césar ce qui appartient à Jean-Claude :-)) J'ai oublié de préciser hier que pour faire ce script je suis parti d'une base de script pompée sur son site.
@+ Stephane
Erik Jublot
Bonjour,
en effet alors.
merci.
-----Message d'origine-----
Merci Stéphane, j'ai utiliser une parti de ton script dont en voici la
sortie en fin de mess
Faut rendre à césar ce qui appartient à Jean-Claude :-)) J'ai oublié de
préciser hier que pour faire ce script je suis parti d'une base de
script pompée sur son site.
@+ Stephane
.
Bonjour,
en effet alors.
merci.
-----Message d'origine-----
Merci Stéphane, j'ai utiliser une parti de ton script
dont en voici la
sortie en fin de mess
Faut rendre à césar ce qui appartient à Jean-Claude :-))
J'ai oublié de
préciser hier que pour faire ce script je suis parti
d'une base de
