Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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

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: 2
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

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

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
merci
mais j'ai bloquer par ce débogage
 

Pièces jointes

  • debogage.png
    38.7 KB · Affichages: 2
Vote positif 0 Vote négatif
I

iliess

XLDnaute Occasionnel
ca marche très bien
mais pour quoi la fenêtre de choisir le fichier ouvre deux fois
première fois


deuxième fois



merci
 

Pièces jointes

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

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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

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
217
mapomme
C
  • Question
XL 2021 Valeurs en fonction de l'âge (jours)
Réponses
4
Affichages
124
Dranreb
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
620
job75
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
132
MarineU
M
C
  • Question
XL pour MAC Remplir une case en fonction d'une autre
Réponses
3
Affichages
100
sylvanu
B
  • Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
138
JHA
J
G
  • Question
XL 2016 définir un fichier source en fonction d'une cellule
Réponses
3
Affichages
235
scraper
S
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
98
Leo98
L
D
  • Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
310
JHA
J
V
  • Question
XL pour MAC exécuter une macro après 1 minute d'inactivité
Réponses
3
Affichages
276
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…