Discussion :

[LentilleLocale]

Bonjour
Malgré des réponses sur le net et sur ce forum à des questions proches de la mienne, je n'arrive pas à mes fins.
Je souhaite obtenir dans un fichier synthèse contenant 3 onglets : un onglet Parmètres et 2 onglets Résultats, la somme des cellules des 2 mêmes onglets des fichiers paramètrés
Je dois mal m'y prendre avec Application.EnableEvents . Non ?

Car dans ces fichiers il y a des macros qui s'exécutent à l'ouverture (Workbook_Open), ce que je ne veux pas.
Je pensais résoudre mon pb avec Application.EnableEvents = False
mais cela n'empêche pas l'exécution du code contenu dans Workbook_Open
Comment faire , en dehors de supprimer ce code dans chaque fichier ?

Merci pour votre aide
Voici une partie du code dans le fichier destinataire (synthèse) --> le coeur du problème en rouge
Bien cordialement

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
    Répertoire = ActiveWorkbook.Path & "\"
    FichierRéception = ActiveWorkbook.Name
    OngletRéception1 = "2.2 Mensu Prod Org"
    OngletRéception2 = "2.5 Mensu Force de Travail"
    
    Ligne = 10
    Chaine = Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 4)            ' Colonne  D
    RepertoirePal = Workbooks(FichierRéception).Worksheets("Paramètres").Cells(8, 3)  ' Colonne C
    RepertoireSource = RepertoirePal & Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 3) & "\" ' Colonne C
    Fichier = Dir(RepertoireSource & Chaine & ".xls")
    
    ' On vide la colonne A qui contient la date d'intégration des données de chaque fichier
    Workbooks(FichierRéception).Worksheets("Paramètres").Unprotect ("1611")
    Workbooks(FichierRéception).Worksheets("Paramètres").Range("A10:A100").Select
    Selection.ClearContents
    
    Workbooks(FichierRéception).Worksheets("Paramètres").Range("A10").Select
    Do Until Fichier = ""
        'Application.EnableEvents = False
        ' Je n'arrive pas à interdir lors de l'ouverture des fichiers Maquette du 
        ' l'exécution du code figurant dans Workbook_Open
        ' Je suis donc contraint de supprimer le code contenu dans chaque fichier dans Workbook_Open ou alors trouver une solution
        
        With CreateObject("Excel.Application").Workbooks.Open(RepertoireSource & Fichier)
        On Error Resume Next
        .Application.EnableEvents = False
        
          ' Etape 1 : Onglet OngletRéception1
          For LigneSource = 6 To 121
            For Colonnesource = 4 To 27
                Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 1) = "Onglet 1, Lig " & LigneSource & " Col " & Colonnesource
                If Ligne = 10 Then
                    Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) = .Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource)
                Else
                    Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) = Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) + .Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource)
                End If
            Next Colonnesource
          Next LigneSource
          
          LigneSource = 128 ' pour Productivité en EUTC (intégration TGA)
          For Colonnesource = 4 To 27
                Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 1) = "Onglet 1, Lig " & LigneSource & " Col " & Colonnesource
                If Ligne = 10 Then
                    Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) = .Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource)
                Else
                    Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) = Workbooks(FichierRéception).Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource) + .Worksheets(OngletRéception1).Cells(LigneSource, Colonnesource)
                End If
          Next Colonnesource
          
          ' Etape 2 : Onglet OngletRéception1
          Dim LigneOnglet2
          LigneOnglet2 = Array(7, 12, 21, 29, 39, 43, 49, 55, 67, 78, 81, 85, 90, 93, 97)
          For Indice = 0 To 13
            LigneSource = LigneOnglet2(Indice)
            For Colonnesource = 3 To 14
                Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 1) = "Onglet 2, Lig " & LigneSource & " Col " & Colonnesource
                If Ligne = 10 Then
                    Workbooks(FichierRéception).Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource) = .Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource)
                Else
                    Workbooks(FichierRéception).Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource) = Workbooks(FichierRéception).Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource) + .Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource)
                End If
            
            Next Colonnesource
          Next Indice
          
          Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 1) = "Intégré le " & Now()
            .Application.EnableEvents = True
            .Close False  ' ferme sans enregistrer les modifications éventuelles apportées au fichier source

        End With
        
FichierSuivant:
        Ligne = Ligne + 1
        Fichier = ""
        Chaine = Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 4) ' Colonne  D
        RepertoireSource = RepertoirePal & Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 3) & "\" ' Colonne C

        Fichier = Dir(RepertoireSource & Chaine & ".xls")
    Loop

[tirex28]

Bonjour,

Je n'ai pas tout lu mais je pense que tu devrais desactiver les évènements AVANT d'ouvrir ton fichier et également prévoir de rétablir cette propropriété en cas d'erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Essai()
    On Error GoTo ErrH
    Application.EnableEvents = False
    Do
        'Ton traitement
    Loop
    Exit Sub
ErrH:
    Application.EnableEvents = True
End Sub

Cordialement,

Tirex28/

[LentilleLocale]

Merci pour ton intérêt à mon pb
J'avais tenté ce que tu dis mais là aussi le code du fichier appelé s'éxécutait

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Do Until Fichier = ""
        'Application.EnableEvents = False
        ' Je n'arrive pas à interdir lors de l'ouverture des fichiers Maquette du Siège
        ' l'exécution du code figurant dans Workbook_Open
        ' Je suis donc contraint de supprimer le code contenu dans chaque fichier dans Workbook_Open
        Application.EnableEvents = False
        With CreateObject("Excel.Application").Workbooks.Open(RepertoireSource & Fichier)
        On Error Resume Next
 
Fais le test
 
Le code dans l'appelé est le suivant :
 
'Option Explicit     'Option obligeant à déclarer les variables
Option Base 0       'Option indiquant que l'indice des tableaux commence à 0
 
 
'=============================================================================
' Application          : ' nom                  : Fichier_Template.xls
' description          : Genere une maquette de saisie ou de restitution
' Auteur               : ' version              : 1_0_0.0
' date de creation     : 
' date de modification :
'=============================================================================
 
'========================================================================================
'S'execute à l'ouverture du fichier.
'Activation de l'Add_in Essbase, lecture du fichier ....
'========================================================================================
 
 
Private Sub Workbook_Open()
  Dim msg, Style, Title, Help, Ctxt, response, MyString
 
  On Error GoTo gesterreur
 
  'Stop
 
 
  ' TODO: afin de désactiver les barres de commandes Visual Basic et Macro
  'Dim CmdB As CommandBar
 'desactivation des touches de raccourcis ...
    'application.OnKey "%{F8}", ""
    'application.OnKey "%{F11}", ""
  'fermeture de l'editeur VBA ...(au cas ou ils soit ouvert lors du lancement du classeur programmé ...
    'application.VBE.MainWindow.Visible = False
  'Desactivation de la barre d'outils VBA et du raccourci dans le menu ....
  'application.CommandBars("Visual Basic").Enabled = False
  'application.CommandBars("Macro").Enabled = False
 
  'application.CommandBars("Visual Basic").Enabled = True
  'application.CommandBars("Macro").Enabled = True
  'FIN  TODO: afin de désactiver les barres de commandes Visual Basic et Macro
 
  'Call MOE_m_traitement.InitTraitement
 
  Call MOE_m_traitement.LanceTraitement
 
  Call MOE_m_traitement.FinirTraitement
 
  'Call CreerBoutonRafraichir
 
  'If GBL_ACTIVATION_POPUP = "non" Then
  'Else: USF_Param.Show
  'End If
  Exit Sub
gesterreur:
   MsgBox ("Workbook_Open " & Err.Number)
   Call MOE_m_traitement.TerminateTraitement
End Sub
 
's'exécute à la fermeture du fichier
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call MOE_m_traitement.desActiveEssbase
 
End Sub

[ouskel'n'or]

Tu as toujours la possibilité de travailler sur tes classeurs fermés. Tu trouveras la syntaxe appropriée dans un e x c e l l e n t tutoriel, ici.
Bon courage

[SilkyRoad]

bonjour

Je n'ai pas compris pourquoi tu utilises un CreateObject si tu es déja dans Excel mais (sans avoir testé) j'écrirais plutot :

Code :

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

1
2
3
Set XlApp = CreateObject("Excel.Application")
XlApp.EnableEvents = False
XlApp.Workbooks.Open(RepertoireSource & Fichier)

bonne soirée
michel

[SilkyRoad]

rebonjour

Michel, ce que tu proposes est identique à ce que j'ai écrit (si ce n'est sur plusieurs lignes) et donc provoque le même pb : l'exécution du code du fichier appelé.

visiblement tu n'as pas testé l'exemple que je t'ai proposé.
Dans la procédure ci dessous le classeur est supposé contenir un evenement Workbook_Open :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
    Dim XlApp As Excel.Application
 
    Set XlApp = CreateObject("Excel.Application")
    XlApp.EnableEvents = False
    XlApp.Workbooks.Open ("C:\ClasseurTest.xls")
    '
    '...
    '
    XlApp.Quit
End Sub

De cette manière l'evenement n'est pas déclenché.

Tu utilises également un CreateObject... comme moi, ce qui était l'objet de ta surprise...

Je ne fais qu'adapter ton code car je n'ai pas compris ce que tu cherches à réaliser



Une syntaxe plus logique sans CreateObject :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Wb As Workbook
 
Application.EnableEvents = False
 
Do Until Fichier = ""
    Set Wb = Workbooks.Open(RepertoireSource & Fichier)
    '
    '...
    '
    Wb.Close
Loop
 
Application.EnableEvents = True

bonne soirée
michel

[LentilleLocale]

Merci pour ce lien mais ce tutoriel montre comment lire et écrire dans les classeurs Excel fermés en utilisant le modèle ADO

La commande que j'utilise CreateObject("Excel.Application").Workbooks.Open(RepertoireSource ) permet également de lire des classeurs Excel fermés
et j'aimerai savoir comment ne pas activer les macros des classeurs Excel fermés lus par cette commande.
Je pensais que l'instruction pplication.EnableEvents = False placée au bon endroit résoudrait mon problème mais non, le code contenu dans Workbook_Open du classeur fermé s'exécute.... Pourquoi ?

Comment faire sans passer par ADO ?

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
Do Until Fichier = ""

        Application.EnableEvents = False
        With CreateObject("Excel.Application").Workbooks.Open(RepertoireSource & Fichier)      

 etc ...  
      Workbooks(FichierRéception).Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource) = Workbooks(FichierRéception).Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource) + .Worksheets(OngletRéception2).Cells(LigneSource, Colonnesource)

          .Close False  ' ferme sans enregistrer les modifications éventuelles apportées au fichier source
          Application.EnableEvents = True

        End With
        
FichierSuivant:
        Ligne = Ligne + 1
        Fichier = ""
        Chaine = Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 4) ' Colonne  D
        RepertoireSource = RepertoirePal & Workbooks(FichierRéception).Worksheets("Paramètres").Cells(Ligne, 3) & "\" ' Colonne C

        Fichier = Dir(RepertoireSource & Chaine & ".xls")
    Loop

bonjour

Je n'ai pas compris pourquoi tu utilises un CreateObject si tu es déja dans Excel mais (sans avoir testé) j'écrirais plutot :

Code :

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

1
2
3
Set XlApp = CreateObject("Excel.Application")
XlApp.EnableEvents = False
XlApp.Workbooks.Open(RepertoireSource & Fichier)

bonne soirée
michel

Michel, ce que tu proposes est identique à ce que j'ai écrit (si ce n'est sur plusieurs lignes) et donc provoque le même pb : l'exécution du code du fichier appelé.
Tu utilises également un CreateObject... comme moi, ce qui était l'objet de ta surprise...
Mais tu as sûrement voulu dire autre chose
A+

[Ragmaxone]

... en utilisant le modèle ADO

La commande que j'utilise CreateObject("Excel.Application").Workbooks.Open ...

je suis entrain de modifier mon projet pour passer par ADO car il me semble que c'est beaucoup plus rapide que CreatObject, et en plus tu ouvres quand même le classeur puisque tu utilises la fonction Open, même si ce n'est pas visible lors de l'execution. Et en plus c'est pas si compliqué que ça par ADO... moi j'y connais absolument rien en bases de données et j'ai compris comment ça marche (grâce au lien de Ouskel). A toi de voire.


+
Rag

[frolland46]

Bonjour,
Si j'ai bien compris le pb, le workbook.open ne doit pas s'exécuter si le fichier est ouvert pr la macro d'un autre fichier.
Donc,
dans tes macros Workbook.open, ajour le code pour vérifier si ledit fichier est ouvert. Si oui, termine la macro Workbook.open

Code :

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

1
2
3
4
5
6
7
For Each WB In Workbooks
  If WB.FullName = "fichierxx" Then
   GoTo suiteducode
   Exit For
  End If
Next WB
suiteducode

bonne soirée

[Ragmaxone]

Code :

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

1
2
3
4
5
6
7
For Each WB In Workbooks
  If WB.FullName = "fichierxx" Then
   GoTo suiteducode
   Exit For '<--- pas besoin
  End If
Next WB
suiteducode '<--- manque les ":" pour signaler que c'est un label, sinon il chechera une procédure

quoi qu'il arrive la suite du code sera exécutée, si il trouve le fichier ouvert il sort du for, si il le trouve pas il sort du for donc c'est pareil.

le code pour faire ce que tu décris c'est :

Code :

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

1
2
3
4
5
6
7
8
For Each WB In Workbooks
  If WB.FullName = "fichierxx" Then
   GoTo suiteducode
   Exit For
  End If
Next WB
exit sub '(ou function au choix)
suiteducode:

perso j'aime pas trop les GoTo...

Code :

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

1
2
3
4
For Each WB In Workbooks
  If WB.FullName = "fichierxx" Then Exit Sub'(ou Function au choix)
Next WB
...'le code normal du Workbook

de plus:

Merci Didier mais les fichiers liés ne sont pas de moi
Je ne peux donc remplacer les Workbook_open par des Auto_open n'en étant pas maître
...

merci pour l'idée