Forum des développeurs  

Le forum de référence en programmation et développement. Articles, cours et tutoriels du débutant au chef de projet et DBA confirmé.
Précédent   Forum des développeurs > Hardware, Systèmes et 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.

Réponse
 
Outils de la discussion
Vieux 12/07/2008, 16h29   #1 (permalink)
Invité de passage
 
Date d'inscription: juillet 2008
Messages: 4
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 :
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]

Dernière modification par Caro-Line ; 12/07/2008 à 19h40 Motif: Ajout balises code (#) ce n'est pas facultatif
Jacdan est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 12/07/2008, 22h58   #2 (permalink)
Responsable MSOffice

 
Avatar de Maxence HUBICHE
 
Date d'inscription: juin 2002
Localisation: Argenteuil (95)
Messages: 3 486
Par défaut

Code :
 
application.run "LaCoreMacro" & num
 
__________________
MVP Office Systems - Access
Je ne réponds pas aux questions techniques par MP

surtout ne cliquez pas >>là<< je vous aurai prévenu !
Profil LinkedIn <=> Viadeo
Pour une formation de qualité : 1formaxion
Maxence HUBICHE est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 13/07/2008, 01h09   #3 (permalink)
Invité de passage
 
Date d'inscription: juillet 2008
Messages: 4
Par défaut

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 :
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
Réponse

Précédent   Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Général VBA

 
Offres d' emploi informatique sur Lesjeudis.com


Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non
Navigation rapide


Fuseau horaire GMT +1. Il est actuellement 15h22.


Publiez vos articles, tutoriels et cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter
Copyright 2000-2008 www.developpez.com - Legal informations