copier une plage d'un fichier Excel non ouvert vers la feuille en cour

copier une plage d'un fichier Excel non ouvert vers la feuille en cour - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2006 à 11:04:11    

Bonjour
 
Une question toute bete je pense mais je galere depuis hier dessus ...
 
J'ai un classeur Excel B, qui contient une feuille avec une plage de données A1:A6
 
J'aimerai, depuis un classeur A, récupérer cette plage de données (la copier) sans ouvrir le classeur B.
 
J'ai essayé la fonction copy, mais ça n'a pas marché ... j'ai récupéré une fonction getvalue sur internet, qui permet de récupérer une valeur dans un fichier non ouvert, mais je n'arrive pas à la modifier pour prendre en compte une plage de données :
 
 
'** fonction pour récupérer une valeur dans un fichier Excel non ouvert
 
Private Function GetValue(Path, File, Sheet, Ref)
  Dim Arg As String
 
  'Vérie l'existence du fichier, ajoute les séparateurs manquants
  If Right(Path, 1) <> "\" Then Path = Path & "\"
  If Dir(Path & File) = "" Then
    GetValue = "File Not Found"
    Exit Function
  End If
   
  Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
    .Range("A1" ).Address(, , xlR1C1)
  'Exécute la macro XLM
  GetValue = ExecuteExcel4Macro(Arg)
End Function
 
 
 
JE vous remercie par avance pour vos réponse
 
Michael

Reply

Marsh Posté le 23-06-2006 à 11:04:11   

Reply

Marsh Posté le 23-06-2006 à 12:19:28    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed