Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Voici une façon de procéder...
Tu appelles par raccourci clavier cette procédure en prenant soin de définir chacune des variables :
'-------------------------------------------------------- Sub test() Dim Chemin As String Dim Fichier As String Dim NomFeuille As String Dim AdrCell As String Dim ValCell As Double
'Chemin où est le fichier à ouvrir Chemin = "c:UsersDMDocuments" 'Nom du fichier à ouvrir Fichier = "Effet de loupe.xlsm" 'Nom de la feuille où tu veux inscrire la donnée NomFeuille = "Feuil1" 'Adresse de la cellule VALIDE AdrCell = "A100" 'Valeur que prendra la cellule ValCell = 25
Dim LaMacro As String, Le nom de la macro est "MichD" 'La macro MichD doit être dans un module STANDARD
End Sub '--------------------------------------------------------
Et dans un module standard du classeur que tu veux ouvrir, la déclaration de la procédure se lit comme suit : '----------------------------------------------------------- Sub MichD(Feuille As String, Adr As String, V As Double) ThisWorkbook.Worksheets(Feuille).Range(Adr).Value = V 'Le reste du code que tu veux exécuter End Sub '-----------------------------------------------------------
MichD ------------------------------------------
Bonjour,
Voici une façon de procéder...
Tu appelles par raccourci clavier cette procédure en prenant soin de définir chacune des variables :
'--------------------------------------------------------
Sub test()
Dim Chemin As String
Dim Fichier As String
Dim NomFeuille As String
Dim AdrCell As String
Dim ValCell As Double
'Chemin où est le fichier à ouvrir
Chemin = "c:UsersDMDocuments"
'Nom du fichier à ouvrir
Fichier = "Effet de loupe.xlsm"
'Nom de la feuille où tu veux inscrire la donnée
NomFeuille = "Feuil1"
'Adresse de la cellule VALIDE
AdrCell = "A100"
'Valeur que prendra la cellule
ValCell = 25
Dim LaMacro As String, Le nom de la macro est "MichD"
'La macro MichD doit être dans un module STANDARD
End Sub
'--------------------------------------------------------
Et dans un module standard du classeur que tu veux ouvrir, la déclaration de
la procédure se lit comme suit :
'-----------------------------------------------------------
Sub MichD(Feuille As String, Adr As String, V As Double)
ThisWorkbook.Worksheets(Feuille).Range(Adr).Value = V
'Le reste du code que tu veux exécuter
End Sub
'-----------------------------------------------------------
Tu appelles par raccourci clavier cette procédure en prenant soin de définir chacune des variables :
'-------------------------------------------------------- Sub test() Dim Chemin As String Dim Fichier As String Dim NomFeuille As String Dim AdrCell As String Dim ValCell As Double
'Chemin où est le fichier à ouvrir Chemin = "c:UsersDMDocuments" 'Nom du fichier à ouvrir Fichier = "Effet de loupe.xlsm" 'Nom de la feuille où tu veux inscrire la donnée NomFeuille = "Feuil1" 'Adresse de la cellule VALIDE AdrCell = "A100" 'Valeur que prendra la cellule ValCell = 25
Dim LaMacro As String, Le nom de la macro est "MichD" 'La macro MichD doit être dans un module STANDARD
End Sub '--------------------------------------------------------
Et dans un module standard du classeur que tu veux ouvrir, la déclaration de la procédure se lit comme suit : '----------------------------------------------------------- Sub MichD(Feuille As String, Adr As String, V As Double) ThisWorkbook.Worksheets(Feuille).Range(Adr).Value = V 'Le reste du code que tu veux exécuter End Sub '-----------------------------------------------------------