Nom du fichier excel actif dans VB

Résolu/Fermé

Classeur

alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014 - 7 mai 2009 à 14:44
alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014 - 8 mai 2009 à 12:22

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

A voir également:

Vba nom du fichier
Fichier rar - Guide
Téléchargez cette image pour trouver le nom du fichier. il correspond au nom de cette loutre. comment s'appelle-t-elle ? - Forum Windows
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Ouvrir fichier .bin - Guide

3 réponses

Réponse 1 / 3

greenthumb
7 mai 2009 à 14:47

Bonjour,

avec thisworkbook.path peut-être ? ;)

alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014 6
7 mai 2009 à 15:00

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

greenthumb > alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014
7 mai 2009 à 15:07

Alors,

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

Réponse 2 / 3

Utilisateur anonyme
7 mai 2009 à 19:23

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

alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014 6
8 mai 2009 à 12:22

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.

Réponse 3 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
7 mai 2009 à 15:08

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

alain5906 Messages postés 64 Date d'inscription mardi 30 janvier 2007 Statut Membre Dernière intervention 9 juillet 2014 6
7 mai 2009 à 16:52

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

Discussions similaires

Problème d'ouverture de fichiers excel

[Excel] Msg d'erreur ouverture document xls

Renommer des onglets automatiquement

Excel : faire un fichier par onglet

supprimer mot de passe fichier excel

RECHERCHEV dans un autre classeur EXCEL