Transfert entre 2 fichiers excel.

Résolu/Fermé
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009 - 3 déc. 2008 à 10:52
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009 - 4 déc. 2008 à 17:36
Bonjour,

mon problème sera très simple à résoudre pour vous.

Je veux simplement copier les données d´un tableau d´un fichier excel A dans un tableau d´un fichier excel B à l´aide d´un bouton de validation.
Je sais que l´on peut faire cette manip avec un simple copier coller mais j´ai besoin d´un macro.

Merci de votre aide
A voir également:

4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
3 déc. 2008 à 12:06
bonjour,

1°: Va dans ton 1° message et indique'il est annulé en renvoyant sur celui-ci

2 fichiers: Source et Cible tous les 2 ouverts
tableau celules "A1: D8" feuille1

transfert dans feuil2 de cible début tableau en C4

XL<2007

dans fichier source
sub copier
sheets(1).range("A1:D8").copy workbooks("cible.xls").sheets(2).range("C4")
end sub
0
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009
3 déc. 2008 à 14:36
Je t´envoie mon code.

Nom_fichier va me permettre de récupérer le nom de mon fichier à copier.

Le bouton se trouve dans mon fichier cible.
L´ouverture de mon fichier à copier marche sans problème.

Par contre la copie ne se fait pas dans mon fichier cible.


Dim Nom_fichier As String

Nom_fichier = ThisWorkbook.Sheets("Tabelle1").Cells(7, 2).Value + ThisWorkbook.Sheets("Tabelle1").Cells(7, 3).Value

Workbooks.Open (Nom_fichier)

Workbooks(Nom_fichier).Sheets("Platts_Barges FOB R'dam").Range("A7:A37").Copy ThisWorkbook.Sheets("Daten_Medeco").Range("A39")

Merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
3 déc. 2008 à 16:39
PAs trop compris ton code...

ci joint une démo à adapter à ton appli

et voici le code (pas fait les déclarations)

Sub copier_source()
chemin = ThisWorkbook.Path 'si source est dans un autre dossier écrire son chemin
cl_source = "source.xls"
fichier = chemin & "\" & cl_source


Workbooks.Open fichier

Sheets("part").Range("C13:F30").Copy ThisWorkbook.Sheets("arrive").Range("D4")
Sheets("part").Range("D8").Copy ThisWorkbook.Sheets("autre").Range("B2")

ActiveWorkbook.Close


End Sub


Pour éviter le scintillement de l'écran, rajoute au dessus de la ligne" Workbooks.Open fichier" cette instruction
Application.screenupdating=false
0
jolestanpi Messages postés 11 Date d'inscription jeudi 6 novembre 2008 Statut Membre Dernière intervention 19 janvier 2009
4 déc. 2008 à 17:36
Merci beaucoup,

mon probleme est résolu maintenant.
0