Slt à tous    ,
 
Est ce que quelqu'un connait un tuto pour apprendre à importer une partie d'une feuille d'excel dans une autre feuille d'un autre fichier excel à un endroit précis de cette dernière?
 
Est t'il possible de le faire en s'enregistrant ? Le probleme c'est qu'il risque d'y avoir un probleme avec les sources non ?
 
Je vous remercie, en espérant avoir été compréhensible  

Bonjour,
Voici un exemple type conçu par Gilbert_RGI
 
 
Sub test()
    Dim a As Variant, Nom As String
 
    Nom = ActiveWorkbook.Name
    ChDrive "C:"    ' Choix du lecteur
    ChDir "C:\"    'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
                                    , "Sélection de vos fichiers excel", , True)
 
    Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
        For b = LBound(a) To UBound(a)
            Workbooks.Open a(b)
        Next
    End Select
 
    Nom2 = ActiveWorkbook.Name
    Cells.Select
    Selection.Copy
    Windows(Nom).Activate
    Range("A1" ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Application.DisplayAlerts = False
    Windows(Nom2).Close
    Application.DisplayAlerts = True
 
End Sub