Exécuter une macro à l'ouverture de fichiers Excel spécifiques

Version imprimable

Bonjour,
je souhaiterais pouvoir exécuter une macro à l'ouverture d'un fichier excel, seulement j'aimerais cadrer le code, car la macro doit s'exécuter sur des fichiers Excel spécifiques, sachant que les personnes manipulent d'autres fichiers Excel.

J'ai donc tenté ceci sous l'éditeur vba de l'onglet développeur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Workbook_Open() Dim nonfeuille As String dim chemin as string nonfeuille = ActiveWorkbook.Name chemin = ActiveWorkbook.Path & "\" & nonfeuille MsgBox nonfeuille If ActiveWorkbook.Name = "mon fichier.csv" Then 'j'ai pensé à faire une autre verification à savoir 'si chemin = "c:\..\..\mon fichier.csv" alors 'je fais mon traitement ici fin si Else MsgBox "mauvais fichier" End If End Sub
j'aimerais que le code s'execute à l'ouverture d'un fichier excel, mais j'ai à chaque fois une erreur :

Citation:

Erreur d'exécution 91
Variable objet ou variable de bloc with non définie

mais quand je clique sur lecture, dans l'éditeur, le code s'exécute normalement.

je ne sais pas pourquoi le code ou les variables ne sont pas pris en compte à l'ouverture mais que lorsque l'on clique sur lecture, ça marche bien.

Sauriez vous m'expliquer?

Merci pour vos lumières

25/07/2019, 15h39
Trystan441

Bonjour,

Je t'avouerai ne pas comprendre ton problème car je viens de tester de mon côté et tout va bien !

Sur quelle ligne ça bloque ?
25/07/2019, 15h43
Menhir

Citation:

Envoyé par android59

J'ai donc tenté ceci sous l'editeur vba de l'onglet developpeur :

Dans quel module as-tu placé ce code ?
25/07/2019, 15h57
android59

bonjour,
j'ai joint une copie d'écran pour que vous ayez un aperçu.

J'ai placé le code dans :
VBAproject (PersonalXLSB) / Microsoft Excel objects /thisWorkbook, sachant que ma macro se trouve dans VBAproject (PersonalXLSB) /Modules , est ce correct?
Merci
25/07/2019, 15h57
android59

Après quand je clique sur stop puis lecture, là le debogage marche sans erreur
25/07/2019, 18h44
Patrice740

Bonjour,

Peux-tu nous expliquer pourquoi tu utilises ActiveWorkbook plutôt que ThisWorkbook ?
Il est toujours préférable de travailler avec un objet défini plutôt que celui supposé être actif !
Open se produit avant Activate !
25/07/2019, 23h30
clementmarcotte

Bonjour,

Donc, en résumant, tu veux un classeur Excel contenant une/des macro(s) qui doivent s'exécuter sur des fichiers spécifiques qui sont ouverts par une autre personne; laquelle personne peut travailler sur ces fichiers spécifiques, ou d'autres. Ou bien chacun des fichiers en cause doit contenir leurs macros automatiques.

Donc, ta macro dans ton classeur de macros personnelles ne va fonctionner que sur ta machine. Donc, tu dois créer une macro complémentaire, complément, application ou tout autre nom que Microsoft pourrait utiliser ou inventer. (La dernière fois que j'ai regardé c'était application). Ou bien chacun des classeurs en cause, si tu ne fais pas d'application devra contenir toutes les macros. Et ce fichier devra probablement se trouver sur toutes les machines appelées à exécuter ces macros et il devra être installé dans un emplacement approuvé (dans les options de chaque Excel en cause) pour être ouvert automatiquement dès qu'Excel est lancé. Et, ceci étant dit, chaque Excel en cause devra être configuré manuellement pour que l'endroit approuvé contenant ton application soit un endroit sécurisé inaccessible à l'individu. Sinon n'importe quel individu moindrement connaisseur d'Excel pourrait virer cette application et échapper à son contrôle. Et pour conserver un minimum de sécurité, tu ne peux pas configurer les Excels en cause pour qu'ils exécutent toutes les macros. Donc, si ta boîte, ou toi personnellement n,'avez pas de certificat de signature numérique; va falloir en acquérir. Parce que ceux que l'ont peut créer nous-mêmes avec selfcert ou makecert ne sont valables qu'un an. Et puis, tu ne peux pas mettre de macros VBA, dans un fichier texte. À mon avis, tu n'es pas sorti de l'auberge.

P.S. En passant, si les classeurs que ta macro doit traiter sont utilisés par plusieurs personnes, comment pourras-tu être sur que ta macro automatique fera vraiment la bonne chose à faire, à ce moment précis.

Mais bon-là j'arrête, tellement cela me semble irréalisable sans une usine à gaz.
26/07/2019, 00h00
clementmarcotte

Bonjour,

Citation:

Envoyé par Patrice740

Bonjour,

Peux-tu nous expliquer pourquoi tu utilises ActiveWorkbook plutôt que ThisWorkbook ?
Il est toujours préférable de travailler avec un objet défini plutôt que celui supposé être actif !
Open se produit avant Activate !

Même avec ThisWorkbook, il a un problème: ;)

Code:

If ActiveWorkbook.Name = "mon fichier.csv" Then
26/07/2019, 10h33
android59

Citation:

Envoyé par Patrice740

Bonjour,

Peux-tu nous expliquer pourquoi tu utilises ActiveWorkbook plutôt que ThisWorkbook ?
Il est toujours préférable de travailler avec un objet défini plutôt que celui supposé être actif !
Open se produit avant Activate !

Bonjour,
lorsque je fais un msgbox thisworkbook il me dit "Personal.xlsb.

Quand je fais ActiveWorkbook.name il me retourne le nom du fichier : monfichier.csv.

Ce n’est pas vraiment cela clementmarcotte, en fait, je vais résumé le contexte.

j'ai mon fichier excel matrice.csv qui est généré à partir de mon batch, il est enregistré dans un répertoire. Je l'ai ouvert puis j'ai créé une macro qui va lancer un traitement. initialement mon fichier excel possède une feuille de calcul et une fois que j'ai cliqué dans ma macro, il en aura 8, chacune avec des données différentes.

Donc ma macro se lance à partir de l'onglet " mes macros " du ruban, jusque là rien de compliqué.
Ma macro n'est alors disponible que sur mon ordi et pour mes fichiers excel à moi. Pour la rendre disponible à d'autres personne, j'ai suivi une procédure pour créé un répertoire où mes macros seront enregistré : pour cela j'ai fais "enregistrer une macro " et j'ai sélectionné " classeur de macros personnelles".

Le dit fichier précédemment cité va être réceptionné par une autre personne pour l'ouvrir et vérifier les données. Donc quand cette personne va l'ouvrir, le principe est que la macro se lance automatiquement et que les feuilles se généère automatiquement. Donc dès qu'elle ouvre monfichier.csv, ouf et pouf, la macro se lance qu'une fois et les 8 feuilles apparaissent.
Seulement et bien évidemment, elle utilise d'autres fichiers excel pour faire d'autre traitement, et j'aimerais que la mcro se lance seulement pour ce ficier spécifique et qu'une seul fois, est ce que ça vous parait plus clair ?

merci à vous
26/07/2019, 11h31
android59
En fait, quand j'utilise :
Code:

1 2 3 4 5 6 Private Sub Workbook_Open() MsgBox ActiveWorkbook.Name End Sub
lorsque je clique sur mon fichier excel, il s'ouvre en erreur, puis si j'execute le code une fois ouvert là ça marche, c'est là que ça bloque.
Donc j'ai tenté :
Code:

1 2 3 4 Private Sub Workbook_Activate() MsgBox "mauvais fichier" End Sub
mais il ne m'affiche aucune popup, donc en gros je dois tester si c'est le bon fichier pour executer la macro

Citation:

Envoyé par android59

Bonjour,
lorsque je fais un msgbox thisworkbook il me dit "Personal.xlsb.

C'est normal, l'évènement Workbook_Open n'est déclenché que par l'ouverture du classeur (Thisworkbook) qui contient la macro (i.e. Personal.xlsb) !
Pour détecter l'ouverture d'un autre fichier, il faut utiliser un évènement du niveau Application :
Code:

1 2 3 4 5 Option Explicit Private WithEvents XLApp As Excel.Application 'Pour utiliser localement les événements de l'application Private Sub XLApp_WorkbookOpen(ByVal Wb As Workbook) 'Traitement ouverture d'un classeur autre que celui qui contient la macro End Sub

26/07/2019, 21h30
clementmarcotte

Citation:

Envoyé par android59

Bonjour,
l

Le dit fichier précédemment cité va être réceptionné par une autre personne pour l'ouvrir et vérifier les données. Donc quand cette personne va l'ouvrir, le principe est que la macro se lance automatiquement et que les feuilles se généère automatiquement. Donc dès qu'elle ouvre monfichier.csv, ouf et pouf, la macro se lance qu'une fois et les 8 feuilles apparaissent.
Seulement et bien évidemment, elle utilise d'autres fichiers excel pour faire d'autre traitement, et j'aimerais que la mcro se lance seulement pour ce ficier spécifique et qu'une seul fois, est ce que ça vous parait plus clair ?

merci à vous

Justement. Pour que la macro puisse se lancer automatiquement, il faut modifier la configuration d'Excel et une signature électronique de la macro. Parce que si la configuration d'Excel est ai plus restreint la macro ne se lancera jamais.
23/08/2019, 13h20
android59

Bonjour,

j'ai pas compris quand tu dis " il faut modifier la configuration d'Excel et une signature électronique de la macro" en fait.
23/08/2019, 15h32
Patrice740

Citation:

Envoyé par android59

Bonjour,

j'ai pas compris quand tu dis " il faut modifier la configuration d'Excel et une signature électronique de la macro" en fait.

Il faut que la personne qui réceptionne le fichier modifie la configuration d'Excel pour autoriser l'exécution des macros.
Par défaut les macro ne s'exécutent pas.

Quand la personne les autorise, il existe 2 niveaux de sécurité possible :
- n'autoriser que les macros signées numériquement.
- autoriser toutes les macros (non conseillé)

Pour premier cas, il faut disposer d'une signature numérique certifiée, achetée auprès d'un organisme spécialisé.
Le second cas nécessite pas de signature et donc c'est le plus risqué.

Il existe aussi la possibilité d'utiliser une 'Auto-signature' non certifiée, créée sur le PC d'origine.
Mais dans ce cas, c'est pas très simple d’autoriser l'exécution de la macro sur une autre machine que celle où a été créée l'Auto-signature : il faut, d'une part importer cette Auto-signature et la placer dans le magasin de certificat ad hoc, et d'autre part configurer Excel pour 'Approuver tous les documents de cet éditeur'