Import automatique de données de diffèrent fichiers vers un seul

Rebonjour Nini,

Je crois savoir d'où vient le problème...

Il faut que tu fasse un clic droit sur le bouton et que tu l'affectes à la macro nommée "un".

Réessaye comme cela

Bonne fin de journée !

Re,

En effet c’était ça

Cela fonctionne très bien super merci.

Par contre j’ai des listes déroulantes aux cellules D11 qui fait référence dans Feuil3 colonne À, L11 Feuil4 colonne D et W11 Feuil4 colonne D qui disparaissent quand j’exécute la macro.

Est-il possible de demander à la macro de ne pas supprimer dans Feuil3 colonne A la liste "Initiales", L11 Feuil4 colonne D la liste "Local" et W11 Feuil4 colonne D la liste "Local" ?

Merci pour ton aide

Meilleures salutations

Bonjour,

Remplace le code par cela (n'oublies pas les changements de chemins )

Sub un()

Application.DisplayAlerts = False

Chemin1 = "C:\Users\Desktop\Import_Auto\Fichier de base"
Chemin2 = "C:\Users\Desktop\Import_Auto\Fichier de base"
Chemin3 = "C:\Users\Desktop\Import_Auto\Fichier de base"

'les chemins des fichiers (à adapter)
Workbooks.Open (Chemin1 & "\Fichier1.xlsx")
Workbooks.Open (Chemin2 & "\Fichier2.xlsx")
Workbooks.Open (Chemin3 & "\Fichier3.xlsx")

'Nommage des fichiers (à adapter)
Set F1 = Workbooks("Fichier1.xlsx").Sheets(1)
Set F2 = Workbooks("Fichier2.xlsx").Sheets(1)
Set F3 = Workbooks("Fichier3.xlsx").Sheets(1)
Set cl = Workbooks("Classeur2.xlsm")

    cl.Sheets(2).Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp

     cl.Sheets(3).Activate
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp

    cl.Sheets(4).Activate
    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp

    cl.Sheets(5).Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp

F1.Activate
F1.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(3).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

F2.Activate
F2.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(4).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

F3.Activate
F3.Rows(2 & ":" & Range("A" & Rows.Count).End(xlUp).Row).Copy
cl.Sheets(5).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

cl.Sheets(1).Activate
Workbooks("Fichier1.xlsx").Close SaveChanges:=True
Workbooks("Fichier2.xlsx").Close SaveChanges:=True
Workbooks("Fichier3.xlsx").Close SaveChanges:=True
Application.DisplayAlerts = True

End Sub