ouverture et recopie de feuille excel en VB

Question

Bonjour ,
j'ai en ma possession un 10 de fichiers excel ayant la meme structure ,j'aimerais les concatener en un seul fichier excel contenant les 10 feuilles de calcul  correspondant à chacune à un des fichiers excel precedent .

Est ce possible ?

j'utilise la fonction createobject et getobject mais j'ai des soucis pour naviguer entre ces differents object. J'ai un autre souci --> 
Excel reste ouvert en tache meme apres avoir fait un application.quit

ragnagnac · Answer

Dim objData As Excel.APPLICATION ' objData = une de tes 10 feuilles excel
Dim objTemp As Excel.APPLICATION ' objTemp = une feuille Excel temporaire
Dim ws as Excel.Worksheet

Set objTemp = CreateObject("ExceL.Application") ' Création d'un objet classeur excel tempo

With objTemp.APPLICATION

  .Workbooks.Open "NomFichierTempo"

  Set objData = CreateObject("ExceL.Application") ' Création d'un objet classeur Excel

  With objData

    .Workbooks.Open "NomClasseur10" 'Ouverture du classeur contenant tes 10 feuilles

    For Each ws In .Workbooks("NomClasseur10').Worksheets '

     ' Copies ici les cellules de ta feuille (i) dans ton classeur temporaire
     ' utilises les foncions => ws.Range("A1").Value

    Next ws ' <Fin Boucle sur tes 10 feuilles>

    .Workbooks("NomClasseur10").Close False ' Ferme le classeur lu sans demande à sauvegarder

  End With

  objData.APPLICATION.Quit ' Fermeture du logiciel Excel ouvert pour lire les 10 feuilles

  .Workbooks("NomFichierTempo").Close True ' Ferme la feuille Excel tempo en demandant de sauvegarder les données

End With

objTemp.APPLICATION.Quit ' Fermeture du logiciel Excel ouvert pour écrire dans la feuille temporaire

###############################

Bon, j'ai pas testé, mais j'espère que cela t'aidera  ;) 

C'était vraiment très intéressant...  :big)   MythoMAN dans une autre vie !  :clown)

Ouverture et recopie de feuille excel en VB

1 réponse