Application.DisplayAlerts = False Workbooks("Mon_Classeur").Close Application.DisplayAlerts = True
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub Alerte() If Application.DisplayAlerts = False Then Application.DisplayAlerts = True Else Application.DisplayAlerts = False End If End Sub
Application.DisplayAlerts = Not Application.DisplayAlerts
Public Sub CopieOnglet() On Error GoTo Tag 'Déclaration de mes variables Alerte NomFicD = ActiveWorkbook.Name Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*") 'Condition IF Workbooks.Open (Fichier) 'Copie de Range Workbooks(NomFicD).Activate 'PasteSpecial du range Workbooks(NomFicS).Close False Alerte End If Exit Sub Tag: Resume Next End Sub
Workbooks(NomFicS).Close False