IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

intégrer le contenu de cellules dans une requête dans microsoft query et tout ça dans une macro en VBA [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut intégrer le contenu de cellules dans une requête dans microsoft query et tout ça dans une macro en VBA
    Bonjour,
    Dans une macro, je veux automatiser l'appliquation d'une requête pour des valeurs qui existent dans la colonne B, c'est à dire de B2 à Bx avec x la dernière ligne d'un tableau donné et qui diffère selon le tableau biensur. En précisant que B2 correspond à S2 dans la requête et B3 à S42 etc...
    Avec S2 et S42 les noms dont on veut appliquer la requête.
    Comme vous le voyez ci-dessous:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
            "ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=user;PASSWORD=****;SERVER=host;DATABASE=db1;PORT=3306;" _
            , Destination:=Range("$S$14")).QueryTable
            .CommandText = Array( _
            "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (  'S2','S42','P15','E41','ER01" _
            , _
            "41','M98','SE31','SE31','SE59','S02','SR76','S995','SP95','S32');" _
            )
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .ListObject.DisplayName = "Tableau_Requête_n°2"
            .Refresh BackgroundQuery:=False
        End With
    Merçi d'avance d'une réponse
    cdt,
    SKIP

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Peut être
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim TABL As String
     
    For i = 2 To 100
        If Range("B" & i).Value <> "" Then TABL = TABL & ",'" & Range("B" & i).Value & "'"
    Next i
    TABL = Mid(TABL, 2)
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=user;PASSWORD=****;SERVER=host;DATABASE=db1;PORT=3306;", Destination:=Range("$S$14")).QueryTable
        .CommandText = _
        Array("SELECT h.name,a.tag, h.userid FROM accountinfo a INNER JOIN hardware h ON a.hardware_id = h.id WHERE h.NAME IN (" & TABL & ");")
    '...

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut
    salut,

    J'ai eu un message d'erreur dans le code que tu m'a donné. et quand je clique sur débogage il m'entoure ce code en jaune:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    .CommandText = Array( _
            "select h.name,ifnull(a.tag,'NULL'), ifnull(h.userid,'NULL'), ifnull(u.nom,'NULL'), ifnull(u.prenom,'NULL') from accountinfo a  inner join hardware h  on a.hardware_id = h.id  inner join utilisateur u " _
            , "on u.compte = h.userid WHERE h.NAME IN (" & TABL & ");")
    Le message qui m'affiche l'erreur est ci-joint.

    cdt,
    sKIP
    Images attachées Images attachées  

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Refais le test avec la variable cText dans le premier cas et dans le second cas. Tu mets en commentaire à tour de rôle les 2 lignes
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Sub test()
     
    Dim TABL As String, cText As String
     
    For i = 2 To 17
        If Range("B" & i).Value <> "" Then TABL = TABL & ",'" & Range("B" & i).Value & "'"
    Next i
    TABL = Mid(TABL, 2)
     
    '1er CAS:
    cText = "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (  'S2','S42','P15','E41','ER01','41','M98','SE31','SE31','SE59','S02','SR76','S995','SP95','S32');"
    '2eme CAS:
    'cText = "select h.name,a.tag, h.userid from accountinfo a  inner join hardware h  on a.hardware_id = h.id  where h.NAME in  (" & TABL & ");"
     
    MsgBox cText
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=user;PASSWORD=****;SERVER=host;DATABASE=db1;PORT=3306;", Destination:=Range("$S$14")).QueryTable
        .CommandText = Array(cText)
        '....suite code
    End Sub

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2010
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 128
    Par défaut
    salut,

    Pour chaque cas il m'affiche le message où il y'a la requête qui est écrite correctement mais quand je clique sur OK il y'a une erreur d'exécution:"incompatibilité de type" tu peux la voir ci-joint.
    Sinon quand je clique sur débogage il y'a cette ligne de code qui est en jaune:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .CommandText = Array(cText)
    Voilà. si tu sais d'où vient le problème.
    Merçi bien
    Cdt,
    SKip
    Images attachées Images attachées  

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Je n'ai aucune idée si ta macro initiale de ton premier post fonctionnait.
    Mais au moins maintenant tu affirme que tu as erreur.
    mets ton code qui fonctionnait proprement, on pourrait l'adapter

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Impossible de modifier une requête sous microsoft query
    Par trankill076 dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 30/06/2011, 22h52
  2. Réponses: 3
    Dernier message: 20/10/2010, 12h27
  3. Réponses: 1
    Dernier message: 07/04/2010, 08h56
  4. Réponses: 4
    Dernier message: 17/11/2009, 14h52
  5. [MySQL] Pb d'une requête insert quand il y a un ' dans un champs de texte
    Par Lolie11 dans le forum PHP & Base de données
    Réponses: 6
    Dernier message: 11/06/2007, 10h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo