Bonjour le forum,
Voilà j'ai créé un complément .xla qui fonctionne très bien. J'aimerais cependant qu'il m'éxécute une macro à l'ouverture du fichier lorsque ce fichier à une certain nom.
Voici mon code dans this worbook du complément :
Le problème est que la fonction thisWorkbook.name prend le nom du compléement et pas le nom du classeur excel que j'ouvre.
Est ce que quelqu'un a une idée pour prendre le nom du classeur ??
Merci d'avance pour vos réponses
Voilà j'ai créé un complément .xla qui fonctionne très bien. J'aimerais cependant qu'il m'éxécute une macro à l'ouverture du fichier lorsque ce fichier à une certain nom.
Voici mon code dans this worbook du complément :
Code:
Private Sub Workbook_Open()
Run "aMenus"
Dim fso As Variant
Dim Nomfichier As String
'
'Importation de la librairie des libellé et ses mnémoniques dans le fichier de saisie des signaux des automates M1
Nomfichier = ThisWorkbook.Name
If Nomfichier Like "*Saisie*" Then
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("P:\DEP_TEC_ELECTRICITE\SPCC\02_Etudes_et_Projets\02_Etudes\05_StreamX\StreamTools\Librairies\Libellé_ObjectText.csv") = True Then
Call Importe_Libellé
Call Importe_Champ
Call Importe_Ouvrage
Call Importe_Comportement
MsgBox "Ordinateur connecté au serveur, les différentes librairies ont été mises à jour"
Else
MsgBox "Ordinateur non connecté au serveur, les différentes librairies n'ont pas été mises à jour"
End If
End If
End Sub
Le problème est que la fonction thisWorkbook.name prend le nom du compléement et pas le nom du classeur excel que j'ouvre.
Est ce que quelqu'un a une idée pour prendre le nom du classeur ??
Merci d'avance pour vos réponses