Import donnée entre fichier Excel

Bonjour à tous,

Est il possible de faire cela en vba:

J'ai 50 fichiers excel dans un repertoire + un autre fichier excel nommé "import", est il possible d'ouvrir les 50 fichiers excel les un aprés les autres de copier les cellules A1 et A2 de chaque fichier et de les coller en A1 et B1 dans le fichier "import" et d'aller à la ligne pour chaque fichier.

Merci de votre aide ( suis pas assez balaise en vba pour faire ca meme avec le créateur de macro automatique)

j'espere etre clair!!

Bonjour

Essaye avec ce code à placer dans un module du fichier IMPORT :

Sub Transferer()
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = True

DerLg = Range("A65536").End(xlUp).Row + 1
Range("A1:B" & DerLg).Delete

Chemin = ThisWorkbook.Path
           FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each Fichier In dossier.Files

NomFichier = Fichier.Name

If Not Fichier.Name = "IMPORT.xls" Then

Lg = Range("A65536").End(xlUp).Row + 1

Workbooks.Open Filename:=Chemin & "/" & NomFichier

On Error Resume Next

With Workbooks(NomFichier)
.Sheets("Feuil1").Range("A1:A2").Copy
ThisWorkbook.Sheets("Feuil1").Range("A" & Lg).PasteSpecial Paste:=xlPasteAll, Transpose:=True
.Close
End With

End If
Next

End Sub

Noms des feuilles de chaque fichier = Feuil1 (import également)

Amicalement

Nad

Bonjour Nad,

Ca fonctionne super bien,

Merci encore ( me reste plus qu'a décortiquer ces quelques lignes de code)

Greg

Bonjour,

Pouvez expliquer en détails cette ligne de code? c'est exactement ce que je cherche mais je débute avec VBA.

Merci.