Utilisation de fonctions en VBA sur access Fermé

Question

Bonjour,  
J'ai  besoin pour le travail d'utiliser des macro sur access, je suis naturellement amené à utiliser VBA pour ça e crée des fonctions dessus et je veux ensuite m'en servir en passant par la commande ExecuterCode. Le soucis est que je n'arrive pas à utiliser les fonctions dans ce cas. J'ai une table à mettre en argument de ma fonction et ça ne fonctionne pas. Voici mon code, il est plutôt simple et inspiré d'internet mais c'est pour comprendre comment ça fonctionne: 

Function macro_test(h As Object) 

    Dim nom1 As String, prenom1 As String, age1 As Integer 
     
   nom1 = h.range("B1") 
   prenom1 = h.range("C1") 
   age1 = h.range("D1") 

    'Exemple 1 : on affiche le nom : 
    boite_de_dialogue nom1 
     
    'Exemple 2 : on affiche le nom et le prénom : 
    boite_de_dialogue nom1, prenom1 
     
    'Exemple 3 : on affiche le nom et l'âge : 
    boite_de_dialogue nom1, , age1 
     
    'Exemple 4 : on affiche le nom, le prénom et l'âge : 
    boite_de_dialogue nom1, prenom1, age1 

End Function 

Sub boite_de_dialogue(nom As String, Optional prenom, Optional age) 
     
    If IsMissing(age) Then 'Si la variable age est absente ... 
        
        If IsMissing(prenom) Then 'Si la variable prenom est absente, on n'affiche que le nom 
           MsgBox nom 
        Else 'Sinon, on affiche le nom et le prénom 
           MsgBox nom & " " & prenom 
        End If 
         
    Else 'Si la variable age est présente ... 

        If IsMissing(prenom) Then 'Si la variable prenom est absente, on affiche le nom et l'âge 
           MsgBox nom & ", " & age & " ans" 
        Else 'Sinon on affiche le nom, le prénom et l'âge 
           MsgBox nom & " " & prenom & ", " & age & " ans" 
        End If 
     
    End If 
        
End Sub 


Et ensuite j'utilise, comme dit précédemment, la fonction macro: ExecuterCode avec l'argument suivant: 

macro_test («test1»)  

sachant que test1 correspond à la table suivante: 

       N°          B           C            D 
       3        michel      renan        21 


J'obtiens le message d'erreur suivant: 

Impossible pour Microsoft Office Access de trouver le nom "test1" entré dans l'expression 

Si quelqu'un pouvait m'aider là-dessus je lui serai très reconnaissant. 
  

Configuration: Windows XP / Internet Explorer 6.0

blux · Answer

Salut,

j'ai pas tout compris, mais je crains que tu ne confondes access avec excel...
Ton vba ne me semble pas familier du tout.

Ce qui serait bien, c'est que tu exposes précisément ce que tu veux obtenir, avec ce dont tu disposes pour ce faire...

renan.michel · Answer

Salut blux,

Tout d'abord merci de t'y intéresser, je vais essayer d'être plus clair:

Je veux bien me servir d'access mais il est possible que j'ai récupéré un code vba qui ne fonctionne qu'avec excel, je pensais que le code serait le même pour les deux logiciels, n'est ce pas le cas?
En fait j'ai besoin d'access pour simplifier une macro sur des tableaux 50000*300, d'après ce que j'en sais access peut me faire gagner du temps de calcul qui pour le moment se compte en heures. J'essaye donc de me familiariser avec l'utilisation de macro sur access.
Pour ça je veux faire tourner le programme suivant qui prend en compte un tableau, possède une fonction (macro_test) permettant d'étudier dans différents cas boite_de_dialogue. 

La boite_de_dialogue permet de renvoyer une MsgBox donnant le nom le prénom et:ou l'age en fonction de ce qui se trouve dans le tableau.
Et la fonction la teste dans des cas comme: il n'y a que le nom, on y ajoute l'age dans un autre...
Mon but est de pouvoir appliquer cette macro directement sur un tableau possédant le 3 colonnes correspondantes.

renan.michel · Answer

Désolé, je parle de table, il est possible dans ce cas que des fonctions comme range ne fonctionne pas dans ce cas, est ce le cas?

tessel75 · Answer

Bonsoir R.M. , Bonsoir à Blux que je salue au passage,
Désolé Renan.Michel d'être un peu raide, mais tu nous fais une salade de tous les diables. Si le code que tu as pêché on ne sait où fonctionnait dans Access, ça relèverait du miracle mais certainement pas de l'informatique. Comme te l'as dit Blux, ça ressemble à du code Excel, certaines expressions paraissent en sortir tout droit (Range("A1")) qui ne sont pas du tout de l'Access; Access "parle" en terme de tables ou de requêtes et de champs, ou bien en terme de formulaires et de contrôles, éventuellement en terme d'états, mais certainement pas en terme de "plages". 
Le code en question peut être intéressant mais de toutes façons il ne peut pas être utilisé tel quel, par un simple Copier/Coller, il faudrait l'adapter très sérieusement.
Maintenant, ton "projet": l'idée n'est pas forcément mauvaise en elle-même, mais à condition de savoir exactement ce que tu comptes en faire à long terme parce que le procédé risque d'être passablement lourd. Il nécessiterait de mettre "à la norme" Access ta feuille Excel, de l'importer dans Access, de "mouliner" la table dans Access via une requête et enfin de faire recracher le résultat sur Excel éventuellement ou sous une autre forme. Cela chaque fois que tu en auras besoin. Rien de vraiment simple.
Si tu y tiens réellement, je suis convaincu que beaucoup de personnes ici sont prêtes à t'aider, encore faut-il savoir si le jeu en vaut la chandelle et si la moulinette Excel n'est pas et suffisante et plus rapide que ces opérations successives. Toi seul peux le dire.
Bonne suite

Utilisation de fonctions en VBA sur access

4 réponses

Discussions similaires