Ouverture et recopie de feuille excel en VB

Signaler
Messages postés
2
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
1 septembre 2002
-
ragnagnac
Messages postés
36
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
3 septembre 2002
-
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

1 réponse

Messages postés
36
Date d'inscription
mercredi 10 juillet 2002
Statut
Membre
Dernière intervention
3 septembre 2002

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)