1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
'code de bouton dans un formulaire
Private Sub Commande22_Click()
Dim CheminBdAccess As String
Dim NomBdAccess As String
Dim Bd As String
Dim CheminProgAccess As String
Dim NomProgAccess As String
Dim ExtBd As String
Dim NomCommande As String
Dim NmCommnde As String
Dim NomMacro As String
Dim NmMcro As String
Dim CommandMacro As String
Dim Commande As String
CheminProgAccess = "C:\Program Files\Microsoft Office97\Office\MSACCESS.EXE "
CheminBdAccess = "P:\niveau1\niveau2\niveau3\niveau4\"
Bd = "CheminBdAccess "
NomBdAccess = "MA_BASE" 'attention : remplir l'espace avec un "sous-tiret"
ExtBd = ".mdb"
NomCommande = " //x " 'un clin d'oeil à l'article sur les lignes de commande : http://loufab.developpez.com/tutorie...lignecommande/ (doubler les caractères / et ;)
NmCommnde = "NomCommande"
NomMacro = "Ma_Macro" 'attention : remplir l'espace avec un "sous-tiret"
NmMcro = "NomMacro"
Commande = CheminProgAccess & " " & CheminBdAccess & NomBdAccess & ExtBd & NomCommande & NomMacro
Shell (Commande) |