probleme requete sql dans macro excel

djdmd14

XLDnaute Junior
bonjour
j ai un petit soucis avec cette requete
Code:
Sub odbc()
'
' odbc Macro
'

'
    
    
    Dim indicateursvba As String
    indicateursvba = Range("indicateurs").Text
    
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DRIVER={MySQL ODBC 5.1 Driver};UID=pil_gener;SERVER=localhost;DATABASE=" & Range("base").Text & ";PORT=3306;" _
        , Destination:=ActiveCell).QueryTable
        .CommandText = Array( _
        "SELECT " & indicateursvba & Chr(13) & "" & Chr(10) & "FROM " & Range("base").Text & Range("table_filtree").Text _
        )
        .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_Lancer_la_requête_à_partir_de_pilote_macro" & Range("base").Value
        
        .Refresh BackgroundQuery:=False
    End With
End Sub

en fait l utilisateur choisi dan sun classeur les colonnes qu il veut faire ramener
ces colonnes sont stockées dans cette variable "indicateursvba " en format texte
la valeur de cette variable contient les noms des colonnes concatener dans une cellule de mon classeur
mon soucis est que cela ne fonctionne qu avec un certain nombre de colonne

lorsque je selectionne 10 ça& fonctionne au dela j ai une erreur compatibilite de type que je ne comprends pas
merci d avance de regarder mon code
 

Discussions similaires

Réponses
4
Affichages
2 K
Réponses
22
Affichages
3 K

Membres actuellement en ligne

Statistiques des forums

Discussions
312 107
Messages
2 085 354
Membres
102 872
dernier inscrit
YvanCB