Private Sub CommandButton1_Click()
Call reset
Call Ouverture(UserForm1.chemin2.Value) 'Ouverture + copie du 1° fichier avec log
Call ouverture2(UserForm1.chemin1.Value) 'Ouverture + copie du fichier 2
Call traitement
Call creerclasseur
Call copierresultat
End Sub
Private Sub parcourir1_Click()
Dim chemin As String 'nom de variable récupérant le chemin du fichier
UserForm1.chemin1.Text = Application.GetOpenFilename
End Sub
Private Sub parcourir2_Click()
Dim chemin As String 'nom de variable récupérant le chemin du fichier
UserForm1.chemin2.Text = Application.GetOpenFilename
End Sub