Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue

job75 à dit:

Bonjour Faroyo,

Essayez cette macro :

VB:

Sub Copier()
Dim NomFichierSource As Variant
    ChDir ThisWorkbook.Path
    Do
        NomFichierSource = Application.GetOpenFilename("Fichiers .xls* (*.xls*), *.xls*")
        If NomFichierSource = False Then Exit Sub
    Loop While NomFichierSource = ThisWorkbook.FullName
    Application.ScreenUpdating = False
    With Workbooks.Open(NomFichierSource).Worksheets(1) 'ouvre le fichier
        .UsedRange = .UsedRange.Value 'supprime les formules
        .Cells.Copy ThisWorkbook.Worksheets(1).[A1] 'copier-coller
        .Parent.Close False
    End With
End Sub

A+

Cliquez pour agrandir...