Import fichier XLS

[afaraji]

😕
Bonjour à tous,
Je voudrais importer plusieurs fichiers XLS (une feuille par fichier) qui sont sur mon répertoire, afin de les regroupées dans le même fichier xls sur plusieurs feuilles (les feuille cibles auront le nom et la date du création du chaque fichier importé).
Mon fichier xls cible aura donc les feuilles importées et une feuille qui servira à créer un bouton qui copie une ligne de synthèse (exemple : A4) par feuille importée et de les insérées dans une nouvelle feuille de synthèse toujous sur le fichier xls cible.
Merci par avance.

 

[Samantha]

Re : Import fichier XLS

Bonjour Afaraji,

Pour la première partie, tu peux essayer la méthode artisanale :

1. Classeur cible ouvert
2. Classeur départ ouvert
3. Clic droit dans l'onglet de la feuille à exporter : Déplacer ou copier (cocher la case Créer une copie) et choisir dans le menu déroulant le nom du classeur cible)
4. Y'aura plus qu'à renomer tes onglets comme tu veux

Les liaisons sont conservées.

Pour la suite j'avoue que j'ai pas tout compris mais je sens du VBA là dessous


A te lire


Sam.

 

[afaraji]

Re : Import fichier XLS

Merci pour la réponse, saufe, j'ai oublier de préciser que l'import des fichiers xls doit être lancé par un bouton placer sur la même feuille du bouton synthèse.
Effectivement, je cherche à le développer tout en VB.
Merci par avance.

 

[Temjeh]

Re : Import fichier XLS

Bonjour

J'avais ceci que je me sert qui importe les données de chaque classeur dont le nom est en col A.

Ouvre celui-ci
Copie les données en Feuil1
Colle les données en Feuil "Recap" et next


Pour le reste de ta question j'ai pas trop compris
A+

Temjeh

 

[afaraji]

Re : Import fichier XLS

Merci pour la réponse.
😕
Je résume,
J'ai sur le répertoire "C:\" les fichiers en question : FichieSource1.xls, FichierSource2.xls ...etc. Chaque fichier contien un seul sheet.

Mon objectif, c'est de créer un boutons sur le fichier cible : FichierCible.xls qui permet de rapatrier toutes les feuilles des fichiers sources vers le fichierCible.xls et j'aurai au temps de feuilles cibles que de feuilles sources.

En outre, J'envisage d'extraire la même ligne de toutes les feuilles importées (exemple : la ligne (A4:E4)) et de les s'inserées dans une feuille qui aura le nom FeuilleSynthèse dans le même FichierCible.xls

remarque : toute les feuilles sources ont le même format.

Merci par avance.

 

[Temjeh]

Re : Import fichier XLS

Bonjour

Pas de prob apparant:

En A1 tu met FichieSource1
En A2 tu met FichieSource2

Et je t'ai ajouté une copie en feuil FeuilleSynthèse de A4:E4

Pour tes feuilles a importées j'y ai mis le nom Feuil1 à toi de le changer
Enregistre aussi le tout dans le même dir
A+

Temjeh

 

[JCGL]

Re : Import fichier XLS

Bonsoir à tous,
Salut Temjeh,

Temjeh : Mon anti-virus me signale tes fichiers comme étant infectés ?

 

[Temjeh]

Re : Import fichier XLS

Bonjour à toi

Non impossible !!! C,est mon fichier et non un downloader

Ptêtre en essayant de faire exécuter la macro (sous bouton) si le fichier est encore dans les temp.

Enregistre-le sous le bureau ou autre et pas de prob je pense

A+

Temjeh

Voici son seule code:

Dim r
    r = Range("A65000").End(xlUp).Row
    
        For i = 1 To r
            Application.DisplayAlerts = False
            ChDir ActiveWorkbook.Path
        
            Sheets("Liste").Select
                Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & Range("A" & i).Value
                    Sheets("Feuil1").Select
                        Sheets("Feuil1").Copy After:=Workbooks("FichierCible.xls").Sheets(2)

            Windows("FichierCible.xls").Activate
                ActiveSheet.Range("A4:E4").Select
                    Selection.Copy
                        Sheets("FeuilleSynthèse").Select
                    Sheets("FeuilleSynthèse").Range("A65000").End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste

            Windows("FichierCible.xls").Activate
                Windows(Range("A" & i) & ".xls").Activate
                    ActiveWindow.Close SaveChanges:=False
                        Sheets("Liste").Select
            
            Application.DisplayAlerts = True
        Next i

Ps: je doit partir pour 3 ou 4 hrs alors si vous avez des idées pour plus propre alors ne vous gênez pas

A+

 

[JCGL]

Re : Import fichier XLS

Re,

Je ne parviens à l'ouvrir même en ignorant le message d'alerte (fichier crypté ou invalide me signale XL).

Bien évidemment, je ne te mets nullement en cause 🙂

Cela peut provenir de mon AV un peu trop sensible

 

[Temjeh]

Re : Import fichier XLS

Re bonsoir

Moi aussi avec mon antivirus (AVG) il me met a l'occasion quand je programme ou test mes propres codes. System AVG Fail... mais pas toujours. Mais cette fois-ci il m'indique rien d'annormal. Ptêtre qu'il y a déjà eu un virus qui se nomme essaie dans ta base je te repost avec un changement de nom

A+

Temjeh