Discussion :

[alex.a]

Bonjour,

je voudrais savoir comment masquer automatiquement tous les fichiers excel qui s'ouvrent lors de l'exécution d'un fichier de type Macro complémentaire Microsoft Excel. (.xla).

merci d'avance pour votre aide

[Daranc]

bonjour
si tu entends par masquer les fichiers : empêcher l'écran l'affichage des classeurs ou des feuilles lors de l'exécution de la macro
application.screenupdating=false
en fin de macro
application.screenupdating=true
Cordialement
Daranc

[alex.a]

par masquer les fichiers, je voudrais faire la même action que fenêtre/masquer dans la barre d'outils, et l'exécuter automatiquement.

Daranc a écrit:
application.screenupdating=false
en fin de macro
application.screenupdating=true

j'ai placé ça dans mon code dans Auto_Open() mais cela ne donne rien
je crois que cela est du à une partie du code?

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
Sub Auto_Open()
    Application.ScreenUpdating = False
...
'permet d'ouvrir l'environnement projet à l'ouverture du fichier Atelier.xla
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(nom_dir)
    Set fc = f.Files
    For Each f1 In fc
        If f1.Name Like "Atelier-SdF-*.xlw" Then
            Workbooks.Open Filename:=RepertoireTravail & "\" & f1.Name
        End If
    Next f1
...
    Application.ScreenUpdating = True
End Sub

[Daranc]

Si ton classeur est un XLA est installe comme tel il n'est pas visible à l'écran
ce que je t'ai donné bloque le rafraichissement de l'écran
( si tu as 40 va et viens entre deux feuilles et des classeur pendant l'exécution d'une macro tu auras des clignotement à l'écran ce qui prends vite la tête)
application.screenupdating =false
bloque le rafraichissement
le remettre a true pour voir le résultat (en fin d'exécution de la macro)
pour les XLA se servir du programme de Ti (Thierry Poutrier)
http://www.veriti.net/download.php?lng=fr&catid=350
qui facilite énormément la mise en place des macros complémentaires
Daranc