Activer des macros automatiquement

**Gogia** · 18/12/2013, 15h16

Bonjour,

J’ai une macro ci-dessous et ce n'est pas moi qui l'a écrite. Elle doit ouvrir plusieurs fichiers. Elle a fonctionné très bien jusqu’au le moment quand j’ai rajouté des macros dans chaque fichier.
Maintenant, pendant son exécution, la macro m’informe que le fichier contient des macros et me demande « Activer les macros ? » Ma réponse est toujours positive. Je sais qu’il y a des macros et je veux les activer.
Est-ce que quelqu’un peut m’aider et dire quel code VBA faut-il rajouter afin de pouvoir automatiser entièrement cette exécution ?
Merci d’avance !
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
Sub startupdate()
Dim Rep As String
Dim REPER As String
Dim tv
Dim lg As Byte
lg = 44
If IsEmpty(Range("E" & lg)) Then Range("E" & lg) = 0
If IsEmpty(Range("F" & lg)) Then Range("F" & lg) = 0
If IsEmpty(Range("G" & lg)) Then Range("G" & lg) = 0
tv = Range("E" & lg) & ":" & Range("F" & lg) & ":" & Range("G" & lg)
Rep = "Gestion:contrats de recherche:Base Contrats:"
REPER = "Gestion:Echanges_et_comptes_a_suivre:"
Workbooks.Open Rep & "AERES.xls"
Windows(1).WindowState = xlMinimized
Workbooks.Open REPER & "Gregory_Echanges_entre_equipes.xlsm"
Windows(1).WindowState = xlMinimized
Application.OnTime Now + TimeValue(tv), "som"
End Sub
Sub som()
Dim depart, fin
depart = Now
'....code lines of macro som
Dim MasterWbk As Workbook
    Dim i As Long, cel As Range
    Dim passwords
    Application.ScreenUpdating = False
    Set MasterWbk = ThisWorkbook
    passwords = Array("aaa", "bbb", "ccc", "ddd", "eee", "fff", "ggg", "hhh", "iii", "jjj", "kkk", "lll", "mmm", "nnn", "ooo", "ppp", "qqq", "rrr", "sss", "ttt")
    MasterWbk.ActiveSheet.[C4:G7,C10:G18,C20:G21,C23:G26,C29:G32,C34:G37,L4:P7,L10:P18,L20:P21,L23:P26,L29:P32,L34:P37].ClearContents
    For i = 1 To 20
        Workbooks.Open "Gestion:web:telechargement:BD_equipe_" & i & ".xlsm", UpdateLinks:=3, Password:=passwords(i - 1)
             For Each cel In Sheets("Recap1").[C4:G7,C10:G18,C20:G21,C23:G26,C29:G32,C34:G37,L4:P7,L10:P18,L20:P21,L23:P26,L29:P32,L34:P37]
            MasterWbk.ActiveSheet.Range(cel.Address) = MasterWbk.ActiveSheet.Range(cel.Address) + cel.Value
        Next cel
        ActiveWorkbook.Close False
         Next i
    Workbooks("AERES.xls").Close SaveChanges:=False
    Workbooks("Gregory_Echanges_entre_equipes.xlsm").Close SaveChanges:=True
fin = Now
MsgBox Format(fin - depart, "hh:mm:ss")
End Sub

**Allentwitwi** · 18/12/2013, 15h19

Bonjour,

Ton problème c'est juste quel n'ouvre plus les macros automatiquement ?

**illight** · 18/12/2013, 15h22

Tu as essayé en mettant le simple :

Code :

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

1
2
3
Application.DisplayAlerts=False
'ton code
Application.displayAlerts=True

**Gogia** · 18/12/2013, 15h29

Bonsoir,

mon problème est plus simple:
la macro doit ouvrir 22 fichier. 21 contiennent des macros.
je suis démandé 21 fois confirmer ma volonter activer toutes ces macro.
Je voudrais automatiser mes réponses

, c'est à dire appuyer sur le boutton "exécuter la macro" et ne plus toucher jusqu'au le moment quand tout sera fini.

Envoyé par Allentwitwi

Bonjour,

Ton problème c'est juste quel n'ouvre plus les macros automatiquement ?

**Allentwitwi** · 18/12/2013, 15h32

Dans ce cas si je ne me trompe pas

Bouton office ---- >Option excel ---->centre de gestion de confidentialité ------> paramètres du centre ----> activer toutes les macros en tout cas c'est sa sur excel 2007 , quel est ta version ?

**Gogia** · 18/12/2013, 15h38

Envoyé par illight

Tu as essayé en mettant le simple :

Code :

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

1
2
3
Application.DisplayAlerts=False
'ton code
Application.displayAlerts=True

Bonsoir,
Je ne maitrise pas le VBA et c'est pourquoi j'ai essayé mais "partiellement" le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Workbooks.Open Rep & "AERES.xls"
Application.DisplayAlerts = False
Windows(1).WindowState = xlMinimized
Workbooks.Open REPER & "Gregory_Echanges_entre_equipes.xlsm"
Application.DisplayAlerts = False
Windows(1).WindowState = xlMinimized
...
 Workbooks.Open "Gestion:web:telechargement:BD_equipe_" & i & ".xlsm", UpdateLinks:=3, Password:=passwords(i - 1)
   Application.DisplayAlerts = False

Mais sans avoir des bons résultats.
Pourras-tu préciser OU exactement il faut rajouter tes commandes?
Merci!!!

Envoyé par Allentwitwi

Dans ce cas si je ne me trompe pas

Bouton office ---- >Option excel ---->centre de gestion de confidentialité ------> paramètres du centre ----> activer toutes les macros en tout cas c'est sa sur excel 2007 , quel est ta version ?

Je travaille sur MAC Excel for MAC 2011

**illight** · 18/12/2013, 15h41

Pour t'expliquer un peu, la ligne Application.DisplayAlerts te permet d'activer/désactiver les messages d'alertes (normalement).

De ce fait, il faut que tu le mette à False avant d'ouvrir tes classeurs, et le remettre à True par la suite.

Par exemple, et pour reprendre ton code (raccourci), tu peux faire comme ça :

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
 
Sub startupdate()
Dim Rep As String
Dim REPER As String
Dim tv
Dim lg As Byte
lg = 44
Application.displayAlerts=False
...
Application.OnTime Now + TimeValue(tv), "som"
Application.displayAlerts=True
End Sub
 
 
Sub som()
Dim depart, fin
depart = Now
Application.displayAlerts=False
'....code lines of macro som
...
Application.displayAlerts=True
MsgBox Format(fin - depart, "hh:mm:ss")
End Sub

(pour pas tout réécrire, j'ai remplacé ton code par les ...

)

Il suffit juste de le mettre à False après ton début de fonction, et le remettre à True juste avant ton End Sub

**parmi** · 18/12/2013, 15h46

Lorsque tu ouvres ces 22 fichiers, est-ce que tu as besoin des macros de ces fichiers ?

Si non, tu peux ouvrir en mode ReadOnly

Code :

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

Workbooks.Open Rep & "AERES.xls", ReadOnly:=True

**Allentwitwi** · 18/12/2013, 15h48

Si tu arrive a comprendre Illight c'est une solution bien meilleur de toutes façons ^^ Moi je laisse libre cours à toutes les macros débarquant de n'importe quel fichiers (moins sécuriser)

**parmi** · 18/12/2013, 15h49

En fait, je pense que ça pourrait suffire.
Autrement, la méthode de Allentwitwi devrait faire l'affaire... dépendant du niveau de sécurité dans ton cas...

**Gogia** · 18/12/2013, 16h51

@ illight
Merci beaucoup! Je vais vérifier la macro demain matin...
Merci et bonne soirée!!!

@ parmi
Non, je n'ai pas besoin d'utiliser les macros. MAIS je dois mettre à jour les données de 20, c'est pourquoi READONLY peu problèmatique. Je devrai sauvegarder les fichiers avec les nouvelles données.

**Gogia** · 19/12/2013, 09h14

Bonjour,

j'ai fait maintenant le test. Ça ne fonctionne toujours pas. J'ai reçois la fenêtre proposant 3 choix:
1. Activer les macros
2. Ne pas ouvrir
3. Désactiver les macros

Envoyé par Allentwitwi

Si tu arrive a comprendre Illight c'est une solution bien meilleur de toutes façons ^^ Moi je laisse libre cours à toutes les macros débarquant de n'importe quel fichiers (moins sécuriser)

À cause de problème de la sécurité je préfère de ne pas aller vers cette solution :-)

**illight** · 19/12/2013, 09h21

Le problème est que je connais pas la version Excel MAC 2011, donc c'est peut-être une spécificité de cette version

Chez moi, la désactivation des message fonctionne, et j'ai Excel 2010 sous Windaube.

**parmi** · 19/12/2013, 11h39

Pour la sécurité, je ne pense pas que tu puisses activer des macros si tes paramètres ne le permettent ou affiche une demande avant de les activer.

Sur mes machines, je les active par défaut.
S'il était possible d'activer les macros malgré la protection, à quoi servirait bien cette protection...(?)

**Allentwitwi** · 19/12/2013, 11h53

Bonjour,

Pour préciser le problème de sécurité, lorsque tu ouvrira n'importe quel fichier excel les macros s'activerons automatiquement ! si tu ne télécharge que les fichiers d'ou tu connais la source il n'y a aucun problème

**parmi** · 19/12/2013, 14h49

Si tu tiens à conserver ton degré de sécurité élevé, il te faudrait éventuellement signer tes fichiers avec un certificat numérique.

Voir ce lien et, particulièrement, la partie ci-bas et ce qui suit dans l'article qui explique plus en détail la façon de faire...

Quand utiliser la sécurité des macros Élevée

Élevée est le paramètre de sécurité des macros recommandé pour tous les utilisateurs. Vous devez utiliser ce niveau de sécurité des macros si vous travaillez dans un environnement dans lequel vous n'avez pas besoin de créer vos propres macros et où les seules macros complémentaires à ajouter sont incluses dans Excel (par exemple, l'Utilitaire d'analyse) ou sont des macros complémentaires que vous avez écrites vous-même et signées avec un certificat numérique.

Ce paramètre exige qu'une macro complémentaire ou une macro soit signée numériquement par un éditeur approuvé ou soit installée dans un emplacement fiable, avant que la macro ne soit autorisée à être exécutée. Un éditeur approuvé (appelé source fiable dans les versions antérieures d'Excel) est une entité qui :
obtient un certificat numérique auprès d'une Autorité de certification ;
signe la macro avec ce certificat numérique ;
obtient ainsi votre confiance.

**Gogia** · 20/12/2013, 16h30

Envoyé par parmi

Si tu tiens à conserver ton degré de sécurité élevé, il te faudrait éventuellement signer tes fichiers avec un certificat numérique.

Voir ce lien et, particulièrement, la partie ci-bas et ce qui suit dans l'article qui explique plus en détail la façon de faire...

Bonjour,

Merci pour ton information!

Cordialement,
Baton

Activer des macros automatiquement [XL-MAC 2011]

Macros et VBA Excel

Discussions similaires

Partager

Partager