Discussion :

[huître]

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 :

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

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

merci d'avance

[bellande]

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"

[huître]

quoi non ça ne marche plus du tout
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

[bellande]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuill2").QueryTables.Add

OU

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(2).QueryTables.Add

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

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

[bellande]

Oui en effet, il faudrait écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'espère n'avoir rien raté d'autre ...

[huître]

hourra ca marche