Classeur

Nom du fichier excel actif dans VB

Résolu

alain5906 -

Bonjour,
Bonjour,
J'ai office 2000 sous Vista.
Je n'arrive pas à réserver une macro à un fichier déterminé, même en précisant lors de sa création "pour ce classeur".
j'ai donc pensé à un complément dans visual basic pour la macro concernée, mais comment préciser le nom du fichier dans lequel on travaille dans VB ?
Merci pour votre aide

Configuration: Windows Vista Internet Explorer 7.0

Afficher la suite

3 réponses

Réponse 1 / 3
Utilisateur anonyme
Bonjour,

Suggestion :
```
Option Explicit

Sub Traitement()

    Dim strNomFichier As String
    
    strNomFichier = "Fichier1.xls"

    If Not (ActiveWorkbook.Name = strNomFichier) Then
        Workbooks(strNomFichier).Activate
    End If
    Call MaRoutine
    
End Sub
'

Sub MaRoutine()
    MsgBox "In progress ..."
End Sub
'
```
Lupin
1
1. alain5906 Auteur
  
  Bonjour L. Arsène....
  
  Tu m'as donné le fil de la solution. Thanks so much.
  J'ai modifié et simplifié un peu ta proposition :
  
  Sub MaRoutine()
  
  If (ActiveWorkbook.Name = "Fichier1.xls") Then
  MaRoutine
  End IF
  
  End Sub
  
  J'ai enregistré finalement les macros concernées dans le "classeur de macros personnelles" et classées dans le "nouveau menu". Résultats ok. Et si elles sont activées dans un autre fichier que le "fichier1.xls", il ne se passe rien : c'était mon objectif.
  La solution était donc dans mon cas avec la parenthèse ci-dessus dans la macro.
  Encore merci de tes bons conseils.
  
  0
Réponse 2 / 3
Polux31
Bonjour,

Je ne comprends bien le problème ...

Une macro appartient au classeur qu'il l'a créé. Elle se trouve (son code) dans un module (VBE) lié au classeur. Si on veut qu'une macro puisse être utilisée par plusieurs classeurs, il faut la sauvegarder dans un fichier .xla (voir ici).

Qu'entends-tu par réserver une macro à un fichier déterminé ?

0
1. alain5906 Auteur
  
  J'avais omis le "then" dans ma réponse à greenthumb. par contre j'avais omis le "end if", mais rien n'y fait.
  Tu as saisi mon pb. Je croyais aussi qu'une macro enregistrée avec l'option "ce classeur" n'affecterait ou ne pourrait être exécutée que dans ledit classeur actif. Comme plusieurs utilisateurs peuvent modifier ce fichier1, j'ai installé un bouton spécifique, ce que je voudrais faire aussi sur les autres postes. Mais en testant un fichier2 excel avec ce bouton donc inapproprié j'ai récupéré un résultat anarchique de la macro sensée ne s'exécuter que sur le fichier1.
  Alors j'ai introduit un nouveau "menu sp" avec les macros concernées pour éviter des erreurs mais c'est un peu lourd.
  Le plus simple ce serait ainsi de trouver pour le "If" la formulation permettant à la macro de ne s'exécuter que si le fichier actif est bien fichier1.xls. VB permet-il de reconnaître le nom du fichier ouvert ? ET de quelle façon ?
  Merci de ton aide
  
  0
Réponse 3 / 3
greenthumb
Bonjour,

avec thisworkbook.path peut-être ? ;)

1
1. alain5906 Auteur
  
  Non j'ai essayé en déclarant après le Sub macro : thisworkbook = activeworkbook
  puis : If thisworkbbok = "nomfichier.xls"
  (exécution macro)
  else
  end sub
  
  résultat erreur syntaxe sur la ligne IF
  
  Je ne suis pas du tout familiarisé avec le langage VB. Je ne sais que modifier les macros dans leur exécution.
  Merci de ton aide
  
  0
2. greenthumb
  
  @alain5906Alors,
  
  Déjà, pour faire un IF, la structure se présente comme ceci :
  
  IF conditions THEN
  (code)
  ELSE 'facultatif
  (autre code)
  END IF
  
  Ensuite, vous ne pouvez pas comparer thisworkbook avec une chaine de caractères :
  
  thisworkbook.path en revanche, peut être comparé avec une chaine de caractères. Cependant attention, thisworkbook.path retourne le chemin entier de votre fichier (ex: "C:/Documents And Settings/Toto/tata.xls"), mais c'est la seul méthode que je connaisse pour connaitre le nom du fichier :S
  
  0

Nom du fichier excel actif dans VB

3 réponses

Discussions similaires

Newsletters