Transfert entre 2 fichiers excel.

Résolu
jolestanpi Messages postés 12 Statut Membre -  
jolestanpi Messages postés 12 Statut Membre -
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
Configuration: Windows 2000
Internet Explorer 6.0

4 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. jolestanpi Messages postés 12 Statut Membre
     
    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
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  4. jolestanpi Messages postés 12 Statut Membre
     
    Merci beaucoup,

    mon probleme est résolu maintenant.
    0