cs_Crackers
Messages postés2Date d'inscriptiondimanche 18 août 2002StatutMembreDernière intervention 1 septembre 2002
-
1 sept. 2002 à 16:06
ragnagnac
Messages postés36Date d'inscriptionmercredi 10 juillet 2002StatutMembreDernière intervention 3 septembre 2002
-
2 sept. 2002 à 16:38
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
Messages postés36Date d'inscriptionmercredi 10 juillet 2002StatutMembreDernière intervention 3 septembre 2002 2 sept. 2002 à 16:38
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)