FileImport du VBE Fermé

Question

Bonjour, 

Je viens de commencer à programmer sur le VBE, et j'ai (déjà) un petit problème concernant la méthode FileImport indiquée dans l'aide du VBE.

Je veux faire exactement exactement ce que la fonction est censée faire, c'est-à-dire importer une certaine plage de cellules le plus efficacement possible (sans avoir à ouvrir le document par exemple), dans un nouveau document Excel.

Voici ce que j'ai écrit, en basant le code sur celui proposé par l'aide :

Sub Import()
    With ActiveWorkbook.Application
            .FileImport Filename:="test.xlsx", _
                ImportRange:="A2:D5", WorksheetName:="onglet2"
    End With
End Sub

Je souhaite prendre les cellules de A2 à D5 de l'onglet2 du fichier test.xlsx, et les importer dans le classeur actif sur lequel je travaille.

A terme, l'idée est de faire ceci avec une dizaine de fichiers Excel, et de tout importer dans un onzième fichier.

Le message que j'obtiens pour le moment est le suivant :
"Propriété ou méthode non gérée par cet objet", en surlignant les 3ème et 4ème lignes.

Malgré maintes recherches, je n'ai pas trouvé la coquille.
Quelqu'un peut-il me venir en aide en m'indiquant mon erreur (le plus important) et éventuellement en proposant une version qui marche ?

Merci d'avance à vous,

Bonne soirée,

Code Jack

Configuration: Windows 7 / Firefox 5.0

Patrice33740 · Answer

FileImport s'applique à un objet Chart (pas au classeur)

Code Jack · Answer

Très bien merci !

Mais alors dans ce cas existe-t-il une méthode qui fait la même chose, pour un classeur ?

Il paraît étrange qu'une méthode aussi pratique pour importer des données ne soit applicable que pour un objet Chart non ?

Sinon ça ne fait rien je rajouterai des étapes dans le code...

Merci en tout cas,

Code Jack

Code Jack · Answer

J'ai changé d'objet, et je travaille désormais sur un objet Chart, mais il me renvoie toujours le même message d'erreur...

Sub Import()
   'select the destination chart    
    Charts(1).Activate
        With ActiveChart
        'import data from test.xlsx, A2:D5, KPI worksheet
        .FileImport Filename:="C:\Users\User\Desktop	est.xlsx", _
            ImportRange:="A1:D1", WorksheetName:="KPI", _
            OverwriteCells:=True
    End With
End Sub

Une idée ?

Merci d'avance,

Code Jack

Patrice33740 · Answer

Tu pourrais utiliser la formule dite de John Walkenbach. 

Exemple : 
Sub LireFichierFermé() 
Dim NomFichier As String 
Dim Chemin As String 
Dim Formule As String 

  ActiveSheet.Range("A1").ClearContents 
   
  Chemin = "D:\Temp\" 
  NomFichier = "Classeur_à_lire.xls" 
  Formule = "='" & Chemin & "[" & NomFichier & "]Feuil1" & "'!" & "A1" 
  ActiveSheet.Range("A1").Formula = Formule 
  ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value 

End Sub

Cordialement 
Patrice

Code Jack · Answer

En effet, ça m'aide beaucoup dans ma tâche,

Merci beaucoup et très bonne continuation, je vois le bout du tunnel de mon côté... Conflict resolved !

Code Jack