[VBA] Ouverture dossier

Application.EnableEvents = False
        Workbooks.Open Filename:= _
        "D:\***\**\***.xls"
        Application.EnableEvents = True
        Windows("***.xls").Activate
        
        'copie des données sygma
        Sheets(1).Activate
        Cells.Select
        Application.CutCopyMode = False
        Selection.Copy
        'colle les donnée
        Windows("TOTAL.xls").Activate
        Sheets("*****").Select
        ActiveSheet.Range("A1").Select
        ActiveSheet.Paste
         'vide le presse papier pour pouvoir fermer suivi des ofs
        Dim oDataObject As DataObject

        Set oDataObject = New DataObject
        oDataObject.SetText ""
        oDataObject.PutInClipboard
        Set oDataObject = Nothing

Option Explicit

'L'objet ClipBoard n'existant pas en VBA, il faut utiliser les fonctions de l'API Windows :
'-- Déclaration des fonctions API
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private mTabFiles()
Private pathFolder As String

'Setter d'affection de valeur à pathFolder
'Cette valeur vient de la cellule C3
'Procédure appelée par cmdMenu_Click() de Feuil1
Public Sub setPathFolder(ByVal str As String)
    pathFolder = str
End Sub

'Procédure Main du traitement
'Procédure appelée par cmdMenu_Click() de Feuil1
Public Sub Main()

    initEnvironnement
    traiteFichiers
    
End Sub

'Procédure d'initialisation du tableau mTabFiles()
'Procédure appelée par Main()
Private Sub initEnvironnement()

    'On récupère le chemin d'acces de tous les fichiers contenus dans le répertoire
    '
    If ModTools.AllFilesInFolder(pathFolder, mTabFiles()) = False Then
    
    End If
    
End Sub
'
'Procédure qui traite tous les fichiers du répertoire
Private Sub traiteFichiers()
Dim i As Long
Dim ext As String

    'Pour tous les fichiers de mTabFiles()
    For i = LBound(mTabFiles()) To UBound(mTabFiles())
        'On extrait l'extension
        'mTabFiles(i) contient le chemin d'acces et le nom d'un fichier
        'ex mTabFiles(i) = "C:\MonDossier\MonSousDossier\MonFichier.XLS"
        ext = ModTools.ExtractFileExt(mTabFiles(i))
        'Si l'extension est XLS
        If UCase(ext) = "XLS" Then
            'On lance la procédure pour traiter les fichiers Excel
            Call traiteXLS(mTabFiles(i))
        End If
        'Si l'extension est TXT
        If UCase(ext) = "TXT" Then
            'On lance la procédure pour traiter les fichiers TXT
            Call traiteTXT(mTabFiles(i))
        End If
    Next i
    
End Sub
'
'Procédure qui traite les fichier XLS
'Elle ouvre le fichier
'Elle créé un onglet dans le présent fichier
'Elle copie le contenu du fichier dans le nouvel onglet
'mPath = le chemin d'acces et le nom d'un fichier
'
Private Sub traiteXLS(ByVal mPath As String)
Dim nom As String
Dim wkIn As Workbook
Dim wsIn As Worksheet
Dim mWk As Workbook
Dim mWs As Worksheet

    'On déclare un objet wkIn et on l'ouvre
    Set wkIn = Workbooks.Open(mPath)
    'On déclare un objet wsIn appartenant à wkIn
    Set wsIn = wkIn.Worksheets(1)
    'On déclare un nouvel objet worksheet dans le présent fichier.
    Set mWs = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))

    'On extrait le nom du fichier pour nommer le nouvel onglet
    nom = ModTools.ExtractFileName(mPath)
    
    'On active le fichier ouvert et l'onglet
    wkIn.Activate
    wsIn.Activate
    'On copie
    Range("A1:AA65000").Copy
    'On colle dans le nouvel onglet
    mWs.Paste
    'On nomme le nouvel onglet
    mWs.Name = Mid(nom, 1, Len(nom) - 4)
    'On vide le presse papier
    VideMemoire
    'on ferme le classeur ouvert
    wkIn.Close
    'on libère les objets
    Set wkIn = Nothing
    Set wsIn = Nothing
    Set mWs = Nothing

    
End Sub

Private Sub traiteTXT(ByVal mPath As String)

    'on copie et on renomme le fichier en .xls
    FileCopy mPath, Replace(UCase(mPath), "TXT", "XLS")
    'on remplace l'extension du fichier dans le sPath
    mPath = Replace(UCase(mPath), "TXT", "XLS")
    'on traite le fichier comme un fichier .XLS
    Call traiteXLS(mPath)
    'on supprime le fichier créer
    Kill (mPath)
    
End Sub

Private Sub VideMemoire()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

Private Sub DrawCurve(ByRef ws) 

ws.Activate
ws.Range("B2:C96").Select 
Charts.Add 
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers 
ActiveChart.SetSourceData Source:=ws.Range("B2:C96"), PlotBy:=xlColumns 

ActiveChart.Location Where:=xlLocationAsObject, Name:=ws

With ActiveChart 
   .HasTitle = True 
   .ChartTitle.Characters.Text = "Kennlinie I(V)" 
   .Axes(xlCategory, xlPrimary).HasTitle = True 
   .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Spannung [V]" 
   .Axes(xlValue, xlPrimary).HasTitle = True 
   .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Strom [A]" 
End With 

End Sub