Empecher l'exécution des macros sur ouverture auto

Bonjour,

A l'aide d'un formulaire, je remplis automatiquement deux classeurs. Pas de soucis pour le premier, mais lors de l'ouverture du second, les macros de celui-ci ce mettent en route et je suis bon pour attendre un bon moment avant de pouvoir faire qqch.

J'ai essayé d'utiliser:

Code:

---

Application.EnableEvents = False

---

mais je dois m'y prendre mal, car ça ne fait absolument rien.

Mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

With ThisWorkbook.Worksheets("Clients") dateref = .Range("B17") Copie(0) = .Range("B4") For i = 1 To 6 Copie(i) = .Range("A" & i + 15) montant(i) = .Range("C" & i + 15) Next i k = 6 For j = 7 To 33 If (.Range("B" & j + 17)) <> "" Then k = k + 1 Copie(k) = .Range("A" & j + 17) montant(k) = .Range("D" & j + 17) End If Next j End With   Application.EnableEvents = False Workbooks.Open "C:\Users\XXXXX\Desktop\Ent\TABLEAUX AVANCEMENT.xlsm" y = Year(dateref)   .....

---

Dans le code ci-dessus, je récupère des valeurs d'un premier doc, et j'ouvre un second (celui avec les macros) de façon à pouvoir les insérer.

Il faudrait vraiment que les macros ne se lancent pas lorsque le fichier "TABLEAUX AVANCEMENT.xlsm" s'ouvre.

Merci pour votre aide

Bonjour,

Voir ma proposition sur l'autre forum !

En fait, c'est la fonction ci-dessous appliquer à plusieurs endroit sur différents onglets qui ralentis le tout:

Code:

---

1 2 3 4 5 6 7 8 9 10

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Double Application.ScreenUpdating = False Application.Volatile True Dim wCell As Range For Each wCell In Plage If wCell.Interior.ColorIndex = NumeroDeCouleur Then SommeSiCouleur = SommeSiCouleur + wCell.Value End If Next End Function

---

Je ne vois pas comment empêcher l'exécution d'une fonction ...

J'ai essayé:

Code:

---

1 2 3

If MsgBox("Voulez-vous exécuter la macro d'ouverture du classeur 'TABLEAUX AVANCEMENT.xlsm' ?", vbYesNo + vbQuestion, "Lancement macro.") = vbNo Then Exit Function End If

---

Malheureusement, que je clique sur "oui" ou "non", le msgbox se recharge toujours (donc obligé de killer le processus Excel pour pouvoir en sortir).

J'ai tenté une nouvelle chose:

J'ai rajouté dans le Module ThisWorkbook:

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Calculation = xlCalculationManual End Sub

---

Il y a un truc que je ne comprend pas:
Quand j'ouvre le fichier directement, tous se passe bien: les macros ne fonctionne que manuellement. Par contre, lorsque le fichier s'ouvre automatiquement (par appel d'un autre fichier), on repart sur un système de calcul automatique ...

Help :(

le module ThisWorkbook n'est pas pris en compte en cas d'ouverture automatique ... (testé avec un msgbox...)

Savez vous pourquoi et comment y remédier?

Citation:

---

Envoyé par ogichi

le module ThisWorkbook n'est pas pris en compte en cas d'ouverture automatique ... (testé avec un msgbox...)

---

Faux, tout dépend du ThisWorkbook.

ThisWorkbook, c'est le classeur qui contient la macro. C'est bien clair qu'une macro dans le ThisWorkook du classeur A n'est pas utilisée automatiquement à l'ouverture du classeur B

Le ThisWorkbook en question est bien dans le classeur B qui s'ouvre ...

C'est bon, j'ai compris mon erreur (pour ceux que ça intéresse ...).

Le code suivant fonctionne bien:

Code:

---

1 2 3

Private Sub Workbook_Open() Application.Calculation = xlCalculationManual End Sub

---

Mon problème venait de mon autre classeur qui appelait le second. A force d'essayer des trucs, j'avais oublié d'enlever:

Code:

---

Application.EnableEvents = False

---

Une fois l'erreur corrigée, tout fonctionne comme voulu.

Merci à tous pour l'aide apportée