Aide sur tableau excel récupération de donnée

Version imprimable

31/01/2011, 14h32
mattdogg97

Aide sur tableau excel récupération de donnée

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,

Code:

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

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:

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.

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

Code:

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

01/02/2011, 08h35
setepenre

Erreur

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.
01/02/2011, 08h44
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:

1 2 Windows("d:\user\MonFichierSource.xls").Activate Range("A1:B10").Select
ci-dessous, voir l'utilisation du crochet isolé
Code:

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
01/02/2011, 09h29
mattdogg97
Citation:

Envoyé par 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.

C'était bien ça cela fonctionne mon fichier nétait pas ouvert.
Citation:
Envoyé par 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:

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

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

Code:

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
Merçi pr ton aide