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
4 K

Statistiques des forums

Discussions
314 630
Messages
2 111 381
Membres
111 118
dernier inscrit
gmc