Discussion :

[CeluiQuiCherche]

Bonjour,

J'utilise Excel 2016 sous windows 7. J'ai depuis quelque temps un problème avec l'éditeur VBA sous Excel. Dans mes codes, ou manuellement, lorsque j'ouvre un fichier et que je le referme, il reste dans la fenêtre VBAProject et autant de fois je l'ouvre, autant de fois il reste.

Voir image ci-après


Est-ce que cela peut venir de mon code (je ne fermerai pas les fichiers de la bonne façon?) ou il faut chercher ailleurs?

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
 
Sub synchro()
 
    Dim cf As Worksheet, af As Worksheet 'cf = Cette Feuille, af = Autre Feuille
    Dim ac As Workbook 'Autre Classeur
 
    'Application.DisplayAlerts = False  'Bloque les boites de dialogue
    'Application.ScreenUpdating = False   'Bloque le rafraichissement des fenêtres
 
    Workbooks.Open Filename:="C:\Users\Desktop\Formulaire\Fomulaire intervention\test.xlsm"
    Set ac = ActiveWorkbook
    Set af = ac.Worksheets("Liste_intervention")
    ThisWorkbook.Activate
    Set cf = ThisWorkbook.Worksheets("Liste_intervention")
 
 
 
    ac.Close
    Set ac = Nothing
    'Application.DisplayAlerts = True  'Libére les boites de dialogue
    'Application.ScreenUpdating = True   'Libére le rafraichissement des fenêtres
End Sub

[unparia]

Bonjour
Et pourquoi l'ouvres-tu s'il est déjà ouvert ?
Pour ton info : je te rappelle que si un classeur est ouvert, il est dans la collection Workbooks.
Cela te dit comment procéder, non ?

EDIT : et méfie-toi de la propriété ActiveWorkbook (et de la propriété Thisworkbook également, d'ailleurs)
Préfère-leur une attribution sans conflit possible à une variable et utilise cette variable

[Philippe Tulliez]

Bonjour,
J'ai eu le même problème que toi pendant des mois avant de trouver la réponse ici http://www.developpez.net/forums/d14...r/#post7785595
Chez moi, c'était le complément Acrobat PDFMaker Office COM Addin

[Menhir]

Essaye d'ajouter à la fin (on ne sait jamais...) :

Code :

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

    Set af = Nothing

[CeluiQuiCherche]

bonjour,

merci à tous pour vos réponses.

unparia, j'ouvre plusieurs fois ce fichier car quand je développe, je test mon code au fur et à mesure donc comme dans celui-ci il y a l'instruction d'ouvrir un fichier...
Merci pour la mise en garde de la propriété ActiveWorkbook, j'ai effectivement déjà eu des surprises, mais là c'est juste pour commencer après j'affine

Philippe Tulliez, merci pour l'info et le lien, le problème venait bien d'un complément (en l’occurrence "ACT! documents Tab Add-In" d'un logiciel qui s'appelle ACT!).
Je l'ai désactivé sous Excel et ça marche nickel.


je voudrai mettre que le problème est résolu mais je trouve pas comment on fait

[CeluiQuiCherche]

Si c'est bon pour le résolu...