Discussion :

[PAYASS59]

Bonjour,

Habitué du site mais pas du tout du forum Excel, outil pour lequel je suis assez novice et encore plus pour le VBA...voici mon souci.

Je vais récupérer dans un dossier "Sources" un nombre N de fichier Excel ayant tous le même format mais des noms différents.

Je voudrais par le biais d'une tâche planifiée, lancer un VBA qui concaténerai l'ensemble de mes N fichiers l'un à la suite dans un fichier nommé TOTAL.

Quels sont les pistes à suivre pour arriver à cela ?
Existe-t-il des scripts exemples ?

merci d'avance pour votre aide.

[PAYASS59]

Bonjour,

J'ai modifié un script que j'ai trouvé.

Par contre j'aimerai ne pas récupérer la première ligne des fichiers que je concatène, comment faire ça avec le script ci-dessous ?

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Compilation()
Dim Temp As String
Dim Ligne As Long
Temp = Dir(ActiveWorkbook.Path & "\*.xls")
Application.DisplayAlerts = False
Do While Temp <> ""
If Temp <> "Recap.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & Temp
Workbooks(Temp).Sheets(1).Range("A1").CurrentRegion.Copy
Workbooks("Recap.xls").Sheets(1).Activate
Ligne = Sheets(1).Range("A65536").End(xlUp).Row + 1
Range("A" & CStr(Ligne)).Select
ActiveSheet.Paste
Workbooks(Temp).Close
End If
Temp = Dir
Loop
Range("A1").Select
Application.DisplayAlerts = True
End Sub

[chyanon]

bonsoir weedmann,

Je suis débutant en VBA et je bricole comme je peux !

Pour ce genre de chose j'enregistre la macro en faisant des importations de données externes.

Entre chaque feuilles importées tu comptes la ligne ou importer la seconde feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim lf As Long
    lf = Range("A65536").End(xlUp).Row + 1

Comme la première ligne reste sélectionnée après l'importation, tu peux l'effacer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rows(ActiveCell.Row).Select
    Selection.Delete

ainsi de suite...

Bonne soirée ou bonjour