Discussion :

[android59]

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 :

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
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 :

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

[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 ?

[Menhir]

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

Dans quel module as-tu placé ce code ?

[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

[android59]

Après quand je clique sur stop puis lecture, là le debogage marche sans erreur

[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 !

[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.

[clementmarcotte]

Bonjour,

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 :

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

 If ActiveWorkbook.Name = "mon fichier.csv" Then

[android59]

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

[android59]

En fait, quand j'utilise :

Code :

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

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 :

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

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

[Patrice740]

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 :

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

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

[clementmarcotte]

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.