Option Explicit
Public Continuer As Boolean
Public FichierAOuvrir As Variant
Public Wb, ActiveWorkbook As Workbook
Public MonFichier, WB_Principal As String
Public MonRepertoire As String
Sub OuvrirFichierExcelALOuverture()
Continuer = False
With UserForm2
.Show
End With
If Not Continuer Then Exit Sub
OuvertureFichiers MonRepertoire, MonFichier
End Sub
Sub OuvertureFichiers(RepertoireFichier, NomFichier)
Set ActiveWorkbook = ActiveWorkbook
' Condition pour activer la macro
If Continuer = True Then
For Each Wb In Workbooks
Select Case Wb.Name
Case NomFichier
Wb.Activate
Continuer = False
Exit For
End Select
Next Wb
If Continuer = True Then Workbooks.Open Filename:=RepertoireFichier & "\" & NomFichier
' Copie la base de données
Workbooks(NomFichier).Sheets("BDD").Copy Wb(ActiveWorkbook).Sheets(1)
Sheets(1).Activate
End sub