Discussion :

[mattdogg97]

Bonjour,

Je souhaiterai récupérer une sélection de cellule à partir d'un autre fichier excel.

Exemple :
Dans la Colone Feuille 1 je veux récupérer toutes les valeurs de nom et prénom de la cellule 1 à la cellule 10 du fichier c:MonFichierSource.xls.

Merci pour votre aide. Une méthode sera la bienvenue.

Cordialement,

[setepenre]

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
    Windows("FichierSource").Activate
    Range("A1:B10").Select
    Selection.Copy
    Windows("Fichier Destination").Activate
    Range("A1").Select
    ActiveSheet.Paste
End Sub

[mattdogg97]

Merci ^pour ton aide mais en testant j'ai une erreur. Je penses que je dois mal faire la partie fichier source ou destination...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 
    Windows("d:\user\MonFichierSource.xls").Activate
    Range("A1:B10").Select
    Selection.Copy
    Windows("d:\userdata\MonFichierDestination.xls]Feuil1").Activate
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Qu'ai je fais de mal?
Dans tous les cas je te remercie pour ton aide. Je débute dans le vba.

[mercatog]

Si tes 2 fichiers sont ouverts dans la même instance Excel, essaies ceci

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim WbS As Workbook, wbD As Workbook
 
Set WbS = Workbooks("MonFichierSource.xls")
Set wbD = Workbooks("MonFichierDestination.xls") 'ou mettre set wbD=ThisWorkbook si le classeur de destionation est celui contenant la macro
WbS.Sheets("Feuil1").Range("A1:B10").Copy wbD.Sheets("Feuil1").Range("A1")
Set WbS = Nothing
Set wbD = Nothing
End Sub

[setepenre]

Il aurait été intéressant que tu nous donnes l'erreur.
En fait, je suppose que cela se plante parce que tes fichiers n'étaient pas ouverts. La méthode "Activate" n'ouvre pas un fichier mais le rend actif.

[casefayere]

Bonjour à tou(te)s,

2 erreurs dans le code
ci-dessous la feuille n'est pas précisée donc risque de ne pas avoir la bonne feuille à copier

Code :

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

1
2
 Windows("d:\user\MonFichierSource.xls").Activate
    Range("A1:B10").Select

ci-dessous, voir l'utilisation du crochet isolé

Code :

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

1
2
Windows("d:\userdata\MonFichierDestination.xls]Feuil1").Activate
    Range("A1").Select

utilises la méthode de mercatog que je salue au passage.
Bonne journée