Microsoft 365 Eporter donner d'un excel fermé vers excel de travail

[Keiko]

Bonjour à tous,

voici un code qui fonctionne super bien pour aller chercher des données d'un excel fermé sans l'ouvrir vers l'excel de travail en choississant au choix l'excel.
Je voudrais mnt que le code prennent les informations que dans un seul fichier.
Voici l'adresse du fichier excel fermé : C:\Users\Dethier Jonathan\Desktop\Prix Logiciel

Pouvez-vous m'aider?

Voici le code :

Dim QuelFichier As Variant: QuelFichier = Application.GetOpenFilename("Excel, *.xls")
    
    If QuelFichier <> False _
    Then Copie (QuelFichier) _
    Else MsgBox "Vous n'avez pas sélectionné de fichier"
        
End Sub
 
Sub Copie(QuelFichier)
Dim Plage As Variant
Dim Target As Worksheet: Set Target = ThisWorkbook.Worksheets("S")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With Workbooks.Open(QuelFichier)
        For Each Plage In Array("A14:F21", "G14:G21")
            .Worksheets("PV").Range(Plage).Copy
            Target.Range(Plage).PasteSpecial _
                Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Next
        .Close False
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True

Un gand merci d'avance pour votre aide.

 

[Hasco]

Bonjour

Faites le avec Power Query (onglet données) qui a été conçu pour ce genre de chose, sans vba.

Cordialement