Bonjour,

Voici le code que j'utilise pour accéder depuis excel à un query As400 qui se nomme NVTEST :

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