importation SAP - Excel

Version imprimable

bonjour j'ai une importation à réaliser à partir d'une base SAP

j'ai executé une macro et lorsque je la convertie en vba j'obtient le résultat suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 18/04/2011 par ghammmouni
'
 
'
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;LANGUAGEID=ENU;DFTPKGLIB=QGPL;DBQ=CIFH0;SYSTEM=HE" _
        ), Array("PSTG;")), Destination:=Range("A1"))
        .CommandText = Array("SELECT * FROM ""CIFH0"".""BDEVECOLI""")
        .Name = "ERM"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Program Files\Fichiers communs\ODBC\Data Sources\ERM.dsn"
        .refresh BackgroundQuery:=False
    End With
End Sub

donc la macro marche correctement sauf qu' elle importe que sur les pages actives. Je ne comprend rien au code non plus :calim2:

j'aimerais en effet savoir comment l'importer dans des feuilles selectionnées

merci d'avance
:mrgreen:

19/04/2011, 11h07
bellande

ODBC

bonjour,
Voici quelques éléments :
la ligne ODBC;DRIVER indique la méthode d'accès à votre base de données

La destination actuelle est en effet la feuille active à partir de la cellule A1
Destination:=Range("A1")

La requête SQL qui sélectionne les données prend tous les champs (*) dans une table(?) CIFH0.BDEVECOLI

ActiveSheet peut être remplacé par Worksheet(index ou nom). Tout dépend se que vous entendez par "feuilles sélectionnées"
19/04/2011, 11h50
huître

quoi non ça ne marche plus du tout :cry:
j'ai repris la première ligne du programme et j'ai remplacer activesheet par worksheet("feuil1")

j'ai juste envie de mettre fin à mes jours:piou:

msdn

bizarre, la doc msdn donne pourtant des exemples dans ce sens :
dommage que l'on ne puisse pas tester sans ta connexion personnelle
Code:

1 2 3 4 5 6 7 8 9 10 11 Set shFirstQtr = Workbooks(1).Worksheets(1) Set qtQtrResults = shFirstQtr.QueryTables.Add( _ Connection := "TEXT;C:\My Documents\19980331.txt", Destination := shFirstQtr.Cells(1,1)) With qtQtrResults .TextFileParsingType = xlFixedWidth .TextFileFixedColumnWidths := Array(5,4) .TextFileColumnDataTypes := _ Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) .Refresh End With
OU

Code:

Worksheets("Feuill2").QueryTables.Add

OU

Code:

Worksheets(2).QueryTables.Add

19/04/2011, 14h12
huître

merci pour ta réponse ben je dois dire que j'avais oublier un S à worksheets

mais je dois dire que ça ne fonctionne tjr pas parcontre j'ai message d'erreur complet qui affiche l'origine du dysfonctionnement:

Citation:

erreur d'execution '-2147024809(80070057)
la plage de destination n'est pas dans la meme feuille de calcul que celle dans laquelle la table de requete est crée

donc je ne sais pas si ça peut debloquer quelque chose en tout cas moi j'ai rien compris
et puis lorsque j'active n'importe quelle feuille de calcul visiblement ça ne pose pas de probleme
19/04/2011, 14h29
bellande

précision

Oui en effet, il faudrait écrire :

Code:

Destination:= Worksheets("Feuill2").Range("A1")

J'espère n'avoir rien raté d'autre ...
19/04/2011, 14h48
huître

hourra ca marche:ccool: