Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

[creal69360]

Bonjour,

Je voudrais savoir si c'est possible depuis un fichier excel de récupérer toutes les feuilles d'un autre fichier. J'arrive à récupérer une feuille en précisant son nom avec ce code:

ThisWorkbook.Worksheets(NomOnglet).Cells.ClearContents ' On nettoie la feuille qui va contenir les données
Workbooks.Open Filename:=chemin d'accès fichier On ouvre le fichier source
' On copie les données du fichier source
Workbooks(nom_fichier).Worksheets(feuille à récupérer).Cells.Copy _
ThisWorkbook.Worksheets(NomOnglet destination).Range("A1") ' On colle les données
Workbooks(nom_fichier).Close False ' On ferme le fichier source
End Sub

Mais voila moi je voudrais pouvoir importer toutes les feuilles de mon fichier source en les nommant de la même façon .
Quelqu'un sait si c'est possible?
Merci de m'aider.

 

[tototiti2008]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Bonsoir creal9360,

Pourquoi copier les cellules plutôt que les feuilles
Si tu copies les feuilles, tu auras une réplique exacte de la feuille (sauf peut-être s'il y a des textes très longs dans les cellules, limite de la copie de feuille jusqu'en XL2003)
Tu ouvres ton fichier Source
tu copies tes feuilles une à une dans le fichier destination
tu fermes ton fichier source, pas loin de ce que tu avais fait
genre

Dim SourceWkb as WorkBook, DestWkb as Workbook, Ws As Worksheet
Set DestWkb = Thisworkbook
Set Sourcewkb = Workbooks.Open (Filename:=chemin d'accès fichier) 'On ouvre le fichier source
' On copie les feuilles du fichier source
    For Each Ws In SourceWkb.Worksheets
        Ws.Copy after:=DestWkb.Worksheets(DestWkb.Worksheets.Count)
    Next
sourcewkb.close false

 

[creal69360]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Bonjour ton code marche très bien.

Serait-il possible de récupérer les données du fichier source pour les metttre dans une seule feuille?
Merci d'avance

 

[tototiti2008]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Bonjour creal,

Oui mais ce n'est plus la même chose
Coller les données de chaque feuille à la suite dans une feuille destination ?

 

[creal69360]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Voila c'est ce que je voudrais faire, récupérer les données de toutes les feuilles d'un fichier externe et les mettre à la suite dans le fichier dans une feuille qui contiendrait alors toutes les données.
Est ce que c'est possible?
Merci

 

[tototiti2008]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Re,

Oui, pas testé mais je pense que ça doit donner ça

Dim SourceWkb as WorkBook, DestWks as Worksheet, Ws As Worksheet, Ligne as Long
Set DestWks = Thisworkbook.worksheets("FeuilDest") 'La feuille destination est considérée vide au départ
Ligne = 1
Set Sourcewkb = Workbooks.Open (Filename:=chemin d'accès fichier) 'On ouvre le fichier source
' On copie les données des feuilles du fichier source
    For Each Ws In SourceWkb.Worksheets
        Ws.usedrange.Copy destwks.range("A" & ligne)
        Ligne = destwks.usedrange.rows.count + 1
    Next
sourcewkb.close false

 

[creal69360]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

C'est parfait merci.

Par hasard si je voulais enlever 1 ou plusieurs feuilles de l'importation il serait possible de faire quelququechose?
exemple: dans mon fichier il existe 2 feuilles dont je veux pas récupérer les données qu'est ce qu'il faudrait que je fasse? Si c'est possible bien sur.
merci

 

[tototiti2008]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Re,

Si tu connais leurs noms, il faut que tu fasses un test dans le "For each Ws in .." sur Ws.Name, pour ne pas réaliser les actions de la boucle dans ce cas 🙂

 

[creal69360]

Re : Récupérer toutes les feuilles d'un fichier excel à distance (sans recordset)

Merci beaucoup ça marche^^