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

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
Valky68

Valky68

XLDnaute Nouveau
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
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Iliesss.xlsm
    14.9 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
I

iliess

XLDnaute Occasionnel
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

  • Iliesss_1.xlsm
    15.9 KB · Affichages: 1
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Iliesss_1 (V2).xlsm
    15.4 KB · Affichages: 1
Vote positif 0 Vote négatif
Sequoyah

Sequoyah

XLDnaute Nouveau
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
I

iliess

XLDnaute Occasionnel
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: 2
Vote positif 0 Vote négatif
I

iliess

XLDnaute Occasionnel
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

  • Iliesss_1 (V3).xlsm
    15.8 KB · Affichages: 1
Vote positif 0 Vote négatif
Valky68

Valky68

XLDnaute Nouveau
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

  • Grandlivre.xlsx
    8.8 KB · Affichages: 2
  • cible.xlsx
    16.1 KB · Affichages: 2
Vote positif 0 Vote négatif

Discussions similaires

J
  • Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
10
Affichages
507
jojo4738
J
N
  • Question
XL 2013 Fixer la valeur d'une cellule saisie en fonction d'un nombre de décimal défini
Réponses
6
Affichages
247
mapomme
mapomme
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
315
sylvanu
sylvanu
J
  • Question
XL 2019 Comment attendre la fin d'exécution de la macro pour passer à la ligne de VBA suivante ?
Réponses
8
Affichages
736
job75
job75
C
  • Question
XL 2021 Valeurs en fonction de l'âge (jours)
Réponses
4
Affichages
179
Dranreb
Dranreb
J
  • Question
Microsoft 365 Mini macro en VBA
Réponses
1
Affichages
114
jderoque
J
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
276
MarineU
M
G
  • Question
XL 2021 Alimenter X fois d'une base de données en fonction de la valeur d'un TextBox
Réponses
7
Affichages
334
GG Delcroix
G
B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
298
JHA
J
D
  • Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
374
JHA
J

Membres actuellement en ligne

20 membres et 368 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 700
Messages
2 112 026
Membres
111 406
dernier inscrit
RICKO97