Discussion :

[Lilou51]

Bonjour,

J'ai développé un petit utilitaire qui doit ouvrir certains fichiers, appliquer certains changement, puis refermer les fichiers.
Afin que l'utilisateur n'ait pas à subir mes manip', mon code commence par

Code :

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

Application.Screenupdating = False

Ca fige donc l'écran, et ca fonctionne presque partout (chez moi + les utilisateurs...) ...sauf un...

Et là... Je ne vois pas d'où peut venir cela ?
L'utilisateur en question voit donc les fenêtres qui s'ouvrent, etc... comme si la commande de Screenupdating n'étaient pas prise en compte.

Quelqu'un aurait une idée ?
Merci de votre aide,
Elise

[Invité]

Salut,

Sans aucun code, c'est difficile à dire je pense

Si c'est carrément les programmes qui s'ouvrent, il est peut être possible qu'il y ai un changement de plan ? Si le programme passe au premier plan... La mise à jour de l'affichage par ScreenUpdating ne concernant que Excel...

[Lilou51]

Il s'agit d'ouverture de fichier Excel depuis l'instance Excel existante.

[issoram]

Bonjour,

Par hasard dans les fichiers que tu ouvres, n 'y aurait-il pas un

Code :

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

Application.ScreenUpdating= True

dans la procédure Open? Lances-tu des macros appartenant à ces classeurs?

Trace l'état de la valeur ScreenUpdating après chaque ouverture de classeur, pour avoir une idée desquels posent problème.

[Lilou51]

Il y a effectivement une procédure au démarrage du fichier, mais elle ne spécifie pas "screen... = true".
J'ai effectivement une modification de la valeur lorsque le fichier s'ouvre lorsque je suis sur le poste de l'utilisateur en question, mais pas depuis mon poste.

Du coup, je ne vois pas pourquoi ça passe à true... surtout lorsque sur les autres ordinateurs ça ne le fait pas (??!!)

[vinc_bilb]

C'est lié aux paramètres application, mais je n'ai pas trouvé où dans les options avancées d'excel
Donc .... le mieux, forcer un screenupdating à false et .... le remettre à la fin

[Lilou51]

Il me semble que j'avais déjà testé cela sans résultat...

Je n'ai pas accès pour le moment à l'ordinateur en question, je vous reviens dès que j'aurai pu faire des tests...

Merci de vos idées...

[Marc-L]

Bonjour,

désactiver les évènements avant d'ouvrir les fichiers, voir l'aide de la propriété EnableEvents …

[Lilou51]

Erreur de ma part... je pensais que c'était l'ouverture du fichier qui posait pbl, et non, c'était juste avt ds mon code

Code :

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

Application.Workbooks(CeFichier).Worksheets("Table").Range("MaListe").ClearContents

L'utilisateur ne semble pas avoir d'évenement particulier sur le nettoyage de données... pourtant, en modifiant la caractéristique EnableEvents, la caractéristique screenupdating se maintient à false... Curieux autant qu'étrange... !

Code :

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

1
2
3
Application.EnableEvents = False
Application.Workbooks(CeFichier).Worksheets("Table").Range("MaListe").ClearContents
Application.EnableEvents = True

Si qq un à de l'inspiration pour me dire ce qui pourrait induire cela... je suis preneuse...

Merci à chacun !

[Marc-L]

Curieux autant qu'étrange... !

Non si la cause provient bien d'un évènement d'un classeur ouvert en modifiant des cellules par exemple …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé

[Lilou51]

Justement... il n'y a pas de macro événementiel sur les classeurs ouverts sur le poste en question.

Bon, reprenons... Parce que ce n'est tjs pas résolu, en fait !

La variable Screenupdating passait à true au moment de Clearcontents
J'ai donc mis le code enableEvent à false.
Ca semblait fonctionner, mais finalement, à l'ouverture du fichier appelé ça passait à true aussi.
Donc j'ai encadré les 2 phrases :

Code :

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

1
2
3
4
5
Application.EnableEvents = False
Application.Workbooks(CeFichier).Worksheets("Table").Range("MaListe").ClearContents
 
Call OuvreBDDLectSeule
Application.EnableEvents = True

Là, je suis contente... ça fonctionne... C'est une macro qui a lieu à l'ouverture.

MAIS l'utilisateur a parfois besoin d'accéder de nouveau aux info du fichier BDD (le même que celui utilisé à l'ouverture).

Ces informations sont chargées ds un userform.
La procédure de chargement du userform appelle donc à nouveau la procédure "Call OuvreBDDLectSeule"

Ladite procédure vérifie si le fichier est ouvert et l'ouvre si besoin.

Et, à ce moment là, pas moyen que je bloque l'apparition du fichier. L'appel de procédure est précédé d'un Screenupdating = false... et au cas où j'en ai remis ds le code, mais le fichier apparaît toujours :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each W In Workbooks
    If W.Name = FichierBDD Then
        a = 1
    End If
Next W
 
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
If a <> 1 Then Application.Workbooks.Open (Chemin & "\" & FichierBDD), ReadOnly:=True, UpdateLinks:=True
Application.DisplayAlerts = True
Application.EnableEvents = True

J'ai lancé une réparation du pack office sur le poste de l'utilisateur... Mais rien y fait...
L'utilisateur se sert de fichier .dll ... peut-être y a-t-il ds l'un des compléments un bout de code qui vient m'embêter... Si oui, que puis-je faire ?!