insérer une feuille ADO dans une feuille ouverte

[arvin]

bonjour à tous ,

je cherche un moyen pour récupérer une feuille de façon ADO , dans un endroit bien précis sur une autre feuille

je vous joins le fichier : j'ai essayé qq chose avec une image mais c'est dur !!!!

merci à tous


[file name=insererunefeuille.zip size=14998]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/insererunefeuille.zip[/file]

 

[arvin]

oui je l'avais vu avec tes conseils mais le retour de plages spécifiques bug...;je vais essayer de l'adapter avec le fichier que tu m'as crée

merci

 

[arvin]

bonjour !


ç'a y est j'ai enfin avancé grâce à toi -> par contre, j'aurais souhaité que tu me guides un peu si tu as un peu de temps à me consacrer :

voici le bout de code qui fonctionne (pour rappel je souhaite copier les données de B2-> G30 d'un classeur fermé) :

Sub test()
GetValuesFromAClosedWorkbook 'C:', 'essai.xls', 'grille', 'B2:G30'
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.Formula = '='' & fPath & '\\[' & fName & ']' _
& sName & ''!' & cellRange
.Value = .Value
End With
End Sub


cela fonctionne , mais ce que je voudrais c'est qu'il me colle les données en k2 -> p30 et qu'il ne me mette pas des 0 quand il ne trouve rien !

vois tu une possiblité ? (la macro de thierry est décidément trop dure pour moi à comprendre , c'est pour cela que je reviens à qqchose de + simple pour moi à piger et à faire , presque tout seul !)

merci

 

[arvin]

ok c'est du too good -> j'ai finalement réussi : en fait je copie les données sur une feuille , et après il me copie les valeurs que je souhaite

merci beaucoup

à bientôt