Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/07/2008, 16h29   #1
Invité de passage
 
Inscription : juillet 2008
Messages : 4
Détails du profil
Informations forums :
Inscription : juillet 2008
Messages : 4
Points : 1
Points : 1
Par défaut Appeler une macro composée d'une variable.

Bonjour,

nul en programmation j'ai besoin d'aide.
J'ai recherché une solution sur le forum mais n'ai pas trouvé

je voudrais en entrant un incrément appeler une macro spécifique

exemple :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
Sub CallLaCoreMacroNum()
 
Dim Num As Long
Dim LaCoreMacro As String
 
Num = InputBox("Donner l'incrément")
 If Num<> "" Then
              Call LaCoreMacro & Num
 
 End If
 
End Sub
Peut-être faut il nommer sa macro avec une variable : Call LaCoreMacroNum(LaCoreMacro,Num)
Mais sub LaCoreMacroNum(LaCoreMacro,Num) n'a aucune action.
Merci pour vos futures réponses Jacques

[VBA][Call][&][concaténer][procédure]
Jacdan est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/07/2008, 22h58   #2
Rédacteur

 
Avatar de Maxence HUBICHE
 
Homme Maxence HUBICHE
Formateur et Développeur - Conseil en Informatique
Inscription : juin 2002
Messages : 3 687
Détails du profil
Informations personnelles :
Nom : Homme Maxence HUBICHE
Âge : 42
Localisation : France, Val d'Oise (Île de France)

Informations professionnelles :
Activité : Formateur et Développeur - Conseil en Informatique

Informations forums :
Inscription : juin 2002
Messages : 3 687
Points : 6 516
Points : 6 516
Envoyer un message via MSN à Maxence HUBICHE Envoyer un message via Skype™ à Maxence HUBICHE
Code :
1
2
 
application.run "LaCoreMacro" & num
__________________
1formaxion, une formation de qualité, des formateurs compétents
Mes tutoriels et vidéos :
Tableaux croisés dynamiques, Access les Bases, et les autres !
Maxence HUBICHE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/07/2008, 01h09   #3
Invité de passage
 
Inscription : juillet 2008
Messages : 4
Détails du profil
Informations forums :
Inscription : juillet 2008
Messages : 4
Points : 1
Points : 1
Merci pour votre réponse, cela m'a mis sur la voie.
J'ai une erreur : Type incompatible (erreur 13)
En fait il faut que l'incrément soit du même type ! Soit = string même si c'est un chiffre.
Voilà la correction :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CallLaCoreMacroNum()
 
Dim Num As String 'Long
Dim LaCoreMacro As String
 
Num = InputBox("Donner l'incrément")
 If Num <> "" Then
              Application.Run "LaCoreMacro" & Num                       
 End If
                      
End Sub

Sub LaCoreMacro1()
MsgBox ("ok!")
End Sub
Jacdan est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h30.


 
 
 
 
Partenaires

Hébergement Web