connection Excel / As400 avec une variable
Bonjour,
Voici le code que j'utilise pour accéder depuis excel à un query As400 qui se nomme NVTEST :
Code:
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 |
Je voudrais utiliser une variable à la place de NVTEST sous la forme suivante : NV+(variable entrée par l'utilisateur dans une Inputbox), soit :
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
