Discussion :

[thibane]

Bonjour à tous.

Dans une macro, je suis amené à ouvrir et refermer une multitude de fichier (XLS et CSV), soit par un wk.open, soit par un open "nomFichier" For Append As etc.

Ce que je trouve génant, c'est que pendant l'exécution de ma macro, qui peut être super longue, mon éditeur VBA est complètement indisponible et je vois successivement les fichiers s'ouvrir et se refermer.

Je suppose qu'il n'y a pas grand chose à faire pour ne pas les voir dans la barre des taches windows mais du moins si je pouvais masquer les ouvertures et fermetures de fichier, ça serait déjà pas mal.

Existe-il un moyen pour faire ça?

Bonne journée!

[aalex_38]

Pour ne pas voir les modifications a l'ecran en début de macro :

Code :

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

1
2
Application.displayalerts = false
application.screenupdationg = false

En fin de macro remettre a true

[thibane]

Bonjour Alex,

J'ai déjà essayé ça mais ça ne fait pas ce que je veux.
Si je ne m'abuse, le application.screenupdating permet de ne pas montrer tout ce qui est sheets(x).activate et sheets(x).select et le Application.displayalerts permet de ne pas avoir la confirmation lorsqu'on sauvegarde un fichier avec "fichier.save". Ca fait peut-être autre chose d'ailleurs.

Moi ce que je veux, c'est en fait éviter de voir à l'écran les ouvertures/fermetures successives de fichier.

Merci à toi en tout cas

[aalex_38]

J'ai pourtant des macros qui ouvrent des fichiers avec en début de code :

Code :

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

1
2
3
4
Application.DisplayAlerts = False     'Arret des alertes
Application.ScreenUpdating = False    'Arret rafraichissement ecran
ActiveSheet.EnableCalculation = False 'Evite le re-calcul de feuil1
Application.Calculation = xlCalculationManual

et je ne vois pas les ouvertures ?

[thibane]

Bizarre ça, en tout cas, je te confirme malheureusement que ça ne fonctionne pas chez moi.

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
Public Sub ExportCsv()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
... code ...
 
' Ouverture du fichier XLS source
Set vFichierXLS = Workbooks.Open(vInputFolder & vNomFichierXLS)
 
' Ouverture en mode Append (cree le fichier s'il n'existe pas, le complete s'il existe)
Open vNomFichierCSV For Append As #vNumFichier
 
... code ...
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub

[Didier Gonard]

Bonjour,

Ta question, telle que je la comprend concerne l'affichage dans l'éditeur VBA, si c'est le cas les ScreenUpdating n'y ont aucune action.

Pour éviter les affichages stroboscopiques des fenêtres de code sur les classeurs à ouvrir :

Outils, Propriétés du Projet, Protection, tu coches "Verrouiller le projet pour affichage" et en mot de passe tu mets la lettre A par exemple (d'où accès rapide au code si besoin).

cordialement,

Didier