Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

iliess

XLDnaute Occasionnel
bonjour
Je souhaite Exécuter une macro en fonction de la valeur d'une cellule d'un classeur sans l'ouvrir
Exemple
Voici le chemin de mon classeur C:\Users\meziani.ilies\Downloads\Grandlivre.xlsx.
Si la cellule B3 dans ce classeur est égale à Grand Livre, la macro s'exécute.
Salutations.
 
Trier par date Trier par votes
Bonjour Ilies,
Est-ce que tu veux dire qu’une macro va lire la valeur de cette cellule dans ce fichier pour effectuer une suite d’opérations qui dépend de la valeur de cette cellule ?
Ce n’est pas la valeur de cette cellule qui va déclencher l’exécution d’une macro puisque ton fichier est fermé !
 
Vote positif 0 Vote négatif
Bonjour Iliesss,
Un essai en PJ avec :
VB: 
Dim Dossier$, Fichier$, Feuille$, Valeur
'Déclaration chemins, à mettre en dur si figé
Dossier = Range("B2")
Fichier = Range("B3")
Feuille = Range("B4")
'Récupération de la valeur ( cellule en notation R1C1 )
Valeur = ExecuteExcel4Macro("'" & Dossier & "[" & Fichier & "]" & Feuille & "'!R3C2")
'Affichage valeur trouvée pour test
Range("B6") = Valeur
'Analyse valeur trouvée
If Valeur = "Grand Livre" Then
    MsgBox "Execution de la macro désirée car la valeur est bien Grand Livre."
Else
    MsgBox "La valeur de B3 n'est pas Grand Livre."
End If
End Sub
Pour l'exemple en PJ il faut mettre les chemin du fichier en B2 B3 B4, la valeur est remontée en B6.
Evidemment à bidouiller suivant votre contexte. Le chemin peut être intégrée au code, et la valeur non affichée.
Par exemple pour votre fichier cela pourrait ressembler à :
VB: 
Sub Importer()
Dim Valeur
'Lire valeur dans fichier fermé
Valeur = ExecuteExcel4Macro("'C:\Users\meziani.ilies\Downloads\[Grandlivre.xlsx]Feuil1'!R3C2")
'Analyse valeur trouvée
If Valeur = "Grand Livre" Then Call NomMacro    ' Lancer la macro désirée
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour M. Sylvanu
merci pour votre code
j'ai testé votre code et j'obtiens un message d'erreur erreur d'exécution 13
Ensuite, j'ai modifié le code de telle sorte que le chemin soit sauvegardé automatiquement dans VBA.
Voici le code:
VB: 
Sub Importer()
Dim Chemin As String
ChDrive "C"
ChDir "C:\users\meziani.ilies\downloads"
Chemin = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
Range("B6").Formula2R1C1 = "=' Chemin & JournalReport'!R3C2:R3C2"
'Analyse valeur trouvée
If Range("B6").Value = "Grand Livre" Then
    MsgBox "Execution de la macro désirée car la valeur est bien Grand Livre."
Else
    MsgBox "La valeur de B3 n'est pas Grand Livre."
End If
End Sub

Svp j'ai deux question
Pourquoi la fenêtre de choisir le chemin s'ouvre deux fois ?
2-est ce que je peux remplacer Range("B6").Formula2R1C1 par une variable Var sans l'enregistrer dans le classeur
 

Pièces jointes

Vote positif 0 Vote négatif
iliess à dit:
Pourquoi la fenêtre de choisir le chemin s'ouvre deux fois ?
Cliquez pour agrandir...
Sur mon PC elle ne s'ouvre qu'une fois ( avec ma PJ )
iliess à dit:
est ce que je peux remplacer Range("B6").Formula2R1C1 par une variable Var sans l'enregistrer dans le classeur
Cliquez pour agrandir...
Non pas avec votre méthode. Pour une variable il faut passer par Excel4Macro.
En PJ un essai avec :
VB: 
Sub Importer()
Dim Dossier$, Chemin$, Valeur, T
Dossier = "C:\Users\PC_PAPA\Desktop\XLD\"  ' A MODIFIER
ChDir Dossier
Chemin = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
'Récupération du nom de fichier
T = Split(Chemin, "\")
Fichier = T(UBound(T))
'Lecture valeur
Valeur = ExecuteExcel4Macro("'" & Dossier & "[" & Fichier & "]JournalReport'!R3C2")
'Analyse valeur trouvée, si ok lancer la macro désirée
If Valeur = "Grand Livre" Then MacroIliess
End Sub
Sub MacroIliess()
    MsgBox "Execution de la macro désirée car la valeur est bien Grand Livre."
End Sub
Pensez à modifier le nom de Dossier.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour le fil et le Forum, voici ma proposition (à vérifier les noms du chemin, du fichier, de la feuille et de la cellule dans le code):
VB: 
Sub test2()
'https://excel-downloads.com/threads/executer-une-macro-en-fonction-de-la-valeur-dune-cellule.20084489/

Dim p As String, f As String, s As String, c As String, VL As Variant

p = "C:\Users\meziani.ilies\Downloads\" 'Chemin
f = "Grandlivre.xlsx" 'Fichier
s = "Feuil1" 'Feuille
c = "B3" '---> cellule

    VL = "'" & p & "[" & f & "]" & _
          s & "'!" & Range(c).Address(True, True, -4150)
          
          If ExecuteExcel4Macro(VL) = "Grand Livre" Then
          
          MsgBox ExecuteExcel4Macro(VL)
         ' macro a lancer
         End If
          
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Sur mon PC elle ne s'ouvre qu'une fois ( avec ma PJ )

Non pas avec votre méthode. Pour une variable il faut passer par Excel4Macro.
En PJ un essai avec :
VB: 
Sub Importer()
Dim Dossier$, Chemin$, Valeur, T
Dossier = "C:\Users\PC_PAPA\Desktop\XLD\"  ' A MODIFIER
ChDir Dossier
Chemin = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Chemin = "Faux" Then Exit Sub
'Récupération du nom de fichier
T = Split(Chemin, "\")
Fichier = T(UBound(T))
'Lecture valeur
Valeur = ExecuteExcel4Macro("'" & Dossier & "[" & Fichier & "]JournalReport'!R3C2")
'Analyse valeur trouvée, si ok lancer la macro désirée
If Valeur = "Grand Livre" Then MacroIliess
End Sub
Sub MacroIliess()
    MsgBox "Execution de la macro désirée car la valeur est bien Grand Livre."
End Sub
Pensez à modifier le nom de Dossier.
Cliquez pour agrandir...
merci
mais j'ai bloquer par ce débogage
 

Pièces jointes

  • debogage.png
    debogage.png
    38.7 KB · Affichages: 21
Vote positif 0 Vote négatif
Sequoyah à dit:
Bonjour le fil et le Forum, voici ma proposition (à vérifier les noms du chemin, du fichier, de la feuille et de la cellule dans le code):
VB: 
Sub test2()
'https://excel-downloads.com/threads/executer-une-macro-en-fonction-de-la-valeur-dune-cellule.20084489/

Dim p As String, f As String, s As String, c As String, VL As Variant

p = "C:\Users\meziani.ilies\Downloads\" 'Chemin
f = "Grandlivre.xlsx" 'Fichier
s = "Feuil1" 'Feuille
c = "B3" '---> cellule

    VL = "'" & p & "[" & f & "]" & _
          s & "'!" & Range(c).Address(True, True, -4150)
         
          If ExecuteExcel4Macro(VL) = "Grand Livre" Then
         
          MsgBox ExecuteExcel4Macro(VL)
         ' macro a lancer
         End If
         
End Sub
Cliquez pour agrandir...
ca marche très bien
mais pour quoi la fenêtre de choisir le fichier ouvre deux fois
première fois
premiere fois.png


deuxième fois

deuxieme fois.png


merci
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir Ilies,
Je vois que tu travailles avec Excel en version MS 365. Es-tu dans un environnement professionnel avec un site Sharepoint où tu peux déposer ton fichier source ?
Sinon, tu peux mettre ton fichier source sur ton OneDrive et aller chercher cette valeur spécifique en nommant la cellule en question et en la récupérant via Power Query. C’est beaucoup plus simple qu’avec des macros (j’en ai fait pendant 30 ans !).
Il faudra évidemment adapter le chemin du fichier Granlivre.xlsx dans Power Query pour que ça fonctionne chez toi.
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
patricktoulon
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
227
Diane272727
D
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
580
wDog66
wDog66
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
1 K
Alamyr
A
A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
287
Alamyr
A
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
295
ascal44
A
D
  • Question Question
Microsoft 365 Récupérer une valeur présente dans un autre fichier dont le chemin et le nom est présent dans une cellule
Réponses
6
Affichages
245
wDog66
wDog66
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
397
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2019 Additionner des cellules espacées d'une valeur constante
2
Réponses
17
Affichages
479
Astyanax
A
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
126
Cousinhub
Cousinhub
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
fanfan38
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
156
Dudu2
Dudu2
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
287
Payne
P
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
215
mapomme
mapomme
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
173
Ckyara31
C
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
182
Emeline20
E
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
1 K
jojo4738
J
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
1 K
Toubabou
T
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
81
TooFatBoy
TooFatBoy
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
452
TooFatBoy
TooFatBoy
Retour