Transfert de données entre 2 fichiers excel

[Hatice]

Salut,

J'aimerai créer une macro qui me permette de tranférer les données d'un fichier excel à un autre. quelqu'un aurait le code ? Merci d'avance.

a+

 

[milena]

ce qui marche bien, ce sont les liaisons : le transfert se fait à chaque liaison ; il suffit de faire depuis la cellule du fichier X '=' la cellule du fichier Y

 

[Canardo]

Bonsoir

Il faudrait que tu précises si tu veux transférer des feuilles entières, ou des données sur des feuilles déja existantes, toute la feuille, ou seulement une partie, des données adjacentes, ou des données éparses, toujours les mêmes ou pas,...

A partir de là, on peut te fournir le code sur mesure.

Bye

B)

 

[Sylvie]

Bonjour Canardo, le Forum,

je reprends au vol la question de Hatice et pour ma part un tel code m'interesserait pour la copie d'une feuille entière, la feuille 1 d'un classeur par exemple.

Merci par avance
Sylvie

 

[Hatice]

Salut,

Déjà merci pour vos réponses rapides.

Voila ce que je veux. J'ai 2 fichiers excel. J'aimerai importer du fichier 2 les données dont l'identifiant correspond aux identifiants du fichier 1. Je sais pas si j'ai été assez clair ?

 

[Hatice]

Please aidez - moi !!!!

 

[Béa]

en espérant que cela pourra t'aider


Sub Macro4()

' tu commences par ouvrir le fichier dans lequel tu veux récupérer les données
Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Mes documents\\toto.xls'

' tu sélectionne la feuille qui t'intéresse et tu fais la sélection de ce que tu veux copier, par exemple les colonnes C, F et I
Sheets(1).Select
Range('C:C,F:F,I:I').Select

' tu met en mémoire ta sélection
Selection.Copy

' tu ouvres le classeur sur lequel tu veux copier puis la feuille
Windows('toto2.xls').Activate
Sheets(1).Select

' tu choisis l'endroit par exemple à partir de la colonne L
Columns('L:L').Select

' tu colles
ActiveSheet.Paste

' tu réouvre le fichier dans lequel tu as récupérer les données
' et tu le fermes
Windows('toto.xls').Activate
ActiveWorkbook.Close

End Sub



pour copier tout une feuille:

Sub Macro1()

Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Mes documents\\toto.xls'
Sheets(1).Select
Cells.Select
Selection.Copy
Windows('Classeur1').Activate
ActiveSheet.Paste
End Sub

 

[ChTi160]

Salut Hatice
bonjour le Fil
coucou Sylvie
je pense qu'il est souvent très interressant de faire une ou des recherche sur le forum: rubrique Rechercher Là Haut
voici un lien qui peut vous être utile question récente
Lien supprimé
New Edition

dans la fenêtre Rechercher
tu tapes par exemple' Fichiers'

Message édité par: ChTi160, à: 18/05/2005 15:42