Bonjour,
Voici le code que j'utilise pour accéder depuis excel à un query As400 qui se nomme NVTEST :
Je voudrais utiliser une variable à la place de NVTEST sous la forme suivante : NV+(variable entrée par l'utilisateur dans une Inputbox), soit :
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.QueryTables.Add(Connection:=Array( _ "OLEDB;Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DRIVER={iSeries Access ODBC Driver};SYSTEM=HEPSTG1;DBQ=CIFH0" _ , _ ";DFTPKGLIB=QGPL;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;"";Initial Catalog=HEPSTG1;Initial Catalog=HEPSTG1" _ ), Destination:=Range("A1")) .CommandType = xlCmdTable .CommandText = Array("""HEPSTG1"".""CIFH0"".""NVTEST""") .Name = "HEPSTG1 NVTEST" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With
si l'utilisateur entre 0940, le code va cherche le fichier de sortie NV0940.
J'ai donc commencé à écrire :
code = inputbox("veuillez saisir votre code")
....
....
mais j'ai beau faire plusieurs essais, je n'arrive pas à remplacer NVTEST par NV et la variable (peut-être un problème de synthaxe).
Quelqu'un peut-il m'aider
Merci d'avance
Partager