VBS - Copier feuille Excel vers un autre classeur

VBS - Copier feuille Excel vers un autre classeur - VB/VBA/VBS - Programmation

Marsh Posté le 05-08-2010 à 11:30:00    

Bonjour à tous,
 
Je bloque sur une action toute simple, vous saurez certainement m'aider.
 
Je développe une macro en VBS sous QlikView, logiciel de BI. N'ayez crainte, aucune connaissance du logiciel n'est nécessaire.
 
Je souhaite copier l'unique feuille d'un classeur Excel, contenue dans un fichier nommé Layout, vers un classeur qui contient déjà 2 feuilles, correspondant à un fichier nommé Out.
 
Je crée donc deux objets Excel via :
 
set appExcel_out = CreateObject("Excel.Application" )
set wbExcel_out = appExcel.Workbooks.Open(Out)
 
et
 
set appExcel_layout = CreateObject("Excel.Application" )
set wbExcel_layout = appExcel_layout.Workbooks.Open(Layout)
 
Je veux ensuite copier la feuille n°1 du classeur Layout dans le classeur Out, à la place de la feuille n°2.
 
Mais après de nombreux essais, impossible d'aboutir au résultat.
 
Need help, please !
 
Merci à vous.
++

Reply

Marsh Posté le 05-08-2010 à 11:30:00   

Reply

Marsh Posté le 05-08-2010 à 14:29:32    

Hello

Code :
  1. wbExcel_out.Sheets("Feuil1" ).Copy Before:=wbExcel_layout.Workbooks(wbExcel_layout.Name).Sheets(2)


 
Il se peut qu'il n'aime pas le ".xls" donc :

Code :
  1. wbExcel_out.Sheets("Feuil1" ).Copy Before:=wbExcel_layout.Workbooks(Left(wbExcel_layout.Name,Len(wbExcel_layout.Name)-4)).Sheets(2)


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed