bonjour
j ai un petit soucis avec cette requete
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
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