Discussion :

[victorzecat]

Bonjour

J’utilise Application.DisplayAlerts + SaveChanges:=False, mais j'ai toujours une fenêtre qui s'ouvre!

argghhh! je souhaiterai la désactiver

Merci d'avance pour vos contributions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub import()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim expo As Variant
expo = ActiveWorkbook.Name
 
Dim StFichier As Variant
StFichier = Application.GetOpenFilename
 
Dim Wb As Workbook
Set Wb = Workbooks.Open(StFichier)
 
    Sheets("HMP").Select
    Range("A14:M500").Select
    Selection.Copy
 
    Workbooks(expo).Activate
    Sheets("HMP").Select
 
    Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Wb.Activate
 
ActiveWorkbook.Close SaveChanges:=False
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

[Marc-L]

Bonjour !

Faut-il encore que l'on devine ?!

Quelle ligne de code déclenche quelle fenêtre ? …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Jouad]

Je viens de tester le code et il n'y a eu aucun problème : pas de boite de dialogue qui s'ouvre à la fermeture du fichier. DisplayAlerts est bien désactivé.