Importer les feuilles 1 des fichiers d'un même répertoire

[Geely]

Bonjour le forum,
Bonnes vacances ou bonnes reprises...

Je souhaite importer tous les "feuilles 1" des fichiers qui se trouvent dans un même répertoire.
Une macro me permet de sélectionner le répertoire, et ensuite je lance la deuxième macro qui copie chaque "feuille 1" de tous les fichiers du répertoire pour les copier dans mon fichier "Geely"
Je suis parti du code de JAM trouvé ici même.

Dans le fichier joint il y a les fichiers à importer


Gelly

 

[sousou]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

bonjour Geely
Test le fichier joint

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour Sousou
merci,
je viens de tester, j'ai bien la copie de feuille 1 mais il y a en plus en feuille vierge pour chaque fichier trouvé.

Geely

 

[sousou]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour Geely
Voici corrigée

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour Sousou
Impeccable, j'importe bien uniquement les feuilles 1. merci

J'ai tenté d'effacer les feuilles (toutes sauf la une) dans le cas d'une autre importation. mais j'ai un code erreur.
Il faut pouvoir effacer les feuilles sauf la 1 (accueil).

Geely

 

[sousou]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

RE

Voici les modifs.
Efface toutes les feuilles existantes sauf accueil

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Merci Sousou
ça fonctionne bien, j'ai du mettre augmenter les lignes et colonnes du fichier "accueil" sinon j'avais un message d'erreur (taille différente du fichier source).
J'ai également le message :"la méthode close de l'objet a échoué" des que j'ai des fichiers en .xlsx dans le répertoire.
cela doit être a cause du test sur le type de fichier. il faut rajouter un contole suplémentaire sur les fichiers en .xlsx

Geely

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Des qu'il y a d'autres types de fichier dans le répertoire j'ai le message d'erreur, pourtant le code parait bon

If Right$(oFile.Name, 4) = ".xls" Then   'test type de fichier
            Workbooks.Open Range("sPath") & "\" & oFile.Name, 0 '<- 0: ne pas mettre à jour les liens externes.
            Set wkbSource = ActiveWorkbook            
            ' On copie chaque feuille 1 de chaque fichier trouvé
            wkbSource.Sheets(1).Copy after:=wkbMain.Sheets(wkbMain.Sheets.Count)
             
            End If

La fin de ma condition doit être au mauvais endroit

Geely

 

[Staple1600]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour à tous

Geely
Si .xlsx alors cela fait 5 caractères et non 4 ...
or ton code est
If Right$(oFile.Name, 4) = ".xls"

 

[sousou]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour à tous
Tu dois déplacer ton end if juste entre le next et wkbsource.close
wkbSource.Close SaveChanges:=False
End If
Next
En effet tu essais de fermer un fichier, mais ta boucle et ton test n'ont pas chargé de fichier extension non conforme

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Merci Sousou c'est bien ça.
merci encore

 

[Staple1600]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour à tous

Geely:
Sache que mon hygiène buccale est dans la norme.
Je ne penses pas suffisament p_er de la gu_ule pour que tu ne me salues pas
A moins que tu aies zappé mon précédent message pour une raison que j'ignore

 

[Geely]

Re : Importer les feuilles 1 des fichiers d'un même répertoire

Bonjour Staple1600
Effectivement j'ai zappé ton message, le rouge m'a peut être perturbé... désolé.

Si .xlsx alors cela fait 5 caractères et non 4 ...
or ton code est
If Right$(oFile.Name, 4) = ".xls"

en y regardant, ce n’était pas un problème du nombre de caractère, mais bien mon IF.

Mais bon; hygiène buccale ou pas j’aurai du te saluer.

J'en profite pour remercier ce site et toutes les personnes qui prennent le temps de répondre et de partager leurs connaissances.
Geely