[VBA] execution d'une macro pour les fichiers d'un dossier

Bonjour,

Voila le probléme j'ai actuellement une macro qui permet d'extraire les donné d'un fichier .bin pour les mettre en forme sur un tableur. Je voudrais si possible selectioné directement un dossier qui contiendrait tout les fichier a ouvrir voila la partie selection de fichier de la macro

'--------------------------------------------------------

' Extraction de l'historique du fichier HISTXX.bin

'--------------------------------------------------------

Sub Extract_histo()

Dim ws As Worksheet

Dim WorksheetExists As Boolean

Dim myHeader As T_HEADER

Dim myRecord1Minute As T_RECORD_1MIN

Dim myRecord1Heure As T_RECORD_1HEURE

' --- Ouverture du fichier d'historique à extraire

'-------------------------------------------------

strFullPathFile = Application.GetOpenFilename(Title:="Please choose a historic file to open", FileFilter:="Historic file (*.bin*), *.bin", MultiSelect:=False)

If strFullPathFile = False Then

MsgBox "No file selected.", vbExclamation, "Sorry!"

Exit Sub

Else

' --- Extraire le nom du fichier selectionné

' ------------------------------------------

strFile = strFullPathFile

strFile = StrReverse(strFile)

Pos = InStr(1, strFile, "\", 1)

strFile = Left(strFile, Pos - 1)

strFile = StrReverse(strFile)

Pos = InStr(1, strFile, ".", 1)

Extention = Right(strFile, Len(strFile) - Pos)

NomFichierSansExtension = Left(strFile, Pos - 1)

' ---- Créér un nouvel onglet avec le nom du fichier

' --------------------------------------------------

NomOnglet = NomFichierSansExtension

i = 0

Do

WorksheetExists = False

For Each ws In ThisWorkbook.Sheets

If ws.name = NomOnglet Then

NomOnglet = NomFichierSansExtension + "_" + CStr(i)

WorksheetExists = True

i = i + 1

End If

Next ws

Loop While WorksheetExists = True

Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

ws.name = NomOnglet

bonjour

voir solution sur autre fil

Sans objet