Ouvrir fichier

bonjour,

je souhaite ouvrir tous les .xls d'un fichier leur appliquer une macro et les fermer/enregistrer

j'ai une macro d'importation que j'essai d'adapter , en vain

peut être une piste ?

cordialement

Sub essai()

Dim chemin As String, Fichier As String
Dim WbkA As String ' Nom de ce fichier

Dim fd As Object
  Application.ScreenUpdating = False
Application.DisplayAlerts = False

  WbkA = ThisWorkbook.Name

  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
  If fd.Show = -1 Then
  chemin = fd.SelectedItems(1) & "\"
  Else
  Exit Sub
  End If
  Fichier = Dir(chemin & "*.xls*")
  Do While (Len(Fichier) > 0)
    If Mid(Fichier, InStrRev(Fichier, ".")) = ".xls" Then
      If Fichier <> ThisWorkbook.Name Then

   '   ,,,,????

 End If
 End If
 Fichier = Dir() ' fichier suivant
Loop
End Sub

Bonsoir,

une proposition un peu dans le vide, car la structure du programme peut dépendre fortement de ce que la macro doit faire avec le classeur une fois qu'il est ouvert.

Sub essai()

    Dim chemin As String, Fichier As String
    Dim WbkA As String    ' Nom de ce fichier

    Dim fd As Object
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    WbkA = ThisWorkbook.Name

    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        chemin = fd.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    Fichier = Dir(chemin & "*.xls")
    Do While (Len(Fichier) > 0)
        If Fichier <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(chemin & Fichier)
            'Call macro
            wb.Close

        End If
        Fichier = Dir()    ' fichier suivant
    Loop
End Sub

désolé pour la réponse tardive , mais cela me va parfaitement !!

merci une nouvelle fois pour ton aide