Bug lorsque je clique sur le bouton annuler ou la croix
Bonjour à toutes et à tous,
Premier post sur le forum.
J'aimerais enlever le bug qui apparait si je sélectionne le bouton annuler ou si je clique sur la croix pour fermer. Voici le programme ci-dessous :
Sub ouvre_fichier()
'repertoire = "C:\Users\KAMAJOU\Documents\testvba"
'nomfichier = Dir(repertoire & "*.xl ??")
fich_report = ActiveWorkbook.Name
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If Nom_Fichier <> False Then
Workbooks.Open Filename:=Nom_Fichier
End If
fich_data = Mid(Nom_Fichier, InStrRev(Nom_Fichier, "\") + 1)
feuille_data = Mid(fich_data, 1, Len(fich_data) - 5)
Application.DisplayAlerts = False
Workbooks(fich_data).Activate
Worksheets(1).Select
Cells.Select
Selection.Copy
Workbooks(fich_report).Activate
'Worksheets("Data Mars").Visible = True
Worksheets(feuille_data).Select
Cells.Select
ActiveSheet.Paste
Workbooks(fich_data).Close
Worksheets("tableau").Select
End Sub
Merci d'avance de votre aide.
Bonjour, le rapport entre votre macro et le bouton annuler ou la croix ? Sans fichier on ne voit pas dans quel cas cette macro se lance et ou sont vos
option pour annuler ?
Désolé je vous joint le fichier.
Re, pour moi dans le code si nom fichier = Faux alors on sort de la macro.
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If Nom_Fichier = "Faux" Then
Exit Sub
End If