FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

  Comment copier coller les donnés d'un autre fichier Excel?

 

63 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment copier coller les donnés d'un autre fichier Excel?

n°17556
man_coef
Profil : Jeune recrue
Posté le 23-09-2006 à 14:06:46  profilanswer
 

Bonjour à tous!
 
Présentation :
Je suis un jeune ingénieur Méthodes, je sais programmer en C et Java et je viens de me mettre au VB sur Excel dans le cadre de mon travail pour le traitement de donné. Je connais donc assez bien les bases de la programmation mais je bloque encore sur certains points.
 
Description du problème :
J'ai deux fichiers xls A et B. Dans le fichier A, j'ai une macro qui permet d'ouvrir le fichier B. Je ne trouve pas comment l'on peut faire pour copier des données du fichier B pour les coller dans le fichier A.
 
Exemple de fonction :
Voici ce que j'ai tenté de faire ;
Private Sub CommandButton1_Click()
    Sheets("Feuille du fichier A" ).Select
    Cells.Select
    Selection.ClearContents
    Range("A1" ).Select
    ChDir "E:\"
    Workbooks.Open Filename:="\Travail\NomDuFichierB.xls"
    Range("G9" ).Select
    Cells.Select
    Selection.Copy
    Windows("Feuille du fichier A" ).Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1" ).Select
    Application.CutCopyMode = False
    ActiveWindow.Close
End Sub
 
 
Merci pour votre aide!
 
Emmanuel.

mood
Pub
Posté le 23-09-2006 à 14:06:46  profilanswer
 

n°17558
galopin01
Profil : Membre
Posté le 23-09-2006 à 14:59:17  profilanswer
 

Bonjour,
Les select n'ont aucun intéret
Les windows non plus (à éviter)
La syntaxe suivante n'active rien et ne fait que le collage demandé :

Code :
  1. Sub test()
  2. Workbooks("FichierA.xls" ).Worksheets("cible" ).Cells.ClearContents
  3. Workbooks.Open Filename:="\Travail\FichierB.xls"
  4. Workbooks("FichierB.xls" ).Worksheets("source" ).Cells.Copy _
  5.     Workbooks("FichierA.xls" ).Worksheets("cible" ).Range("A1" )
  6. Workbooks("FichierB.xls" ).Close False
  7. End Sub


A+

n°17563
man_coef
Profil : Jeune recrue
Posté le 23-09-2006 à 15:38:45  profilanswer
 

Merci

n°17591
reflexes
Profil : Jeune recrue
Posté le 27-09-2006 à 14:27:28  profilanswer
 

galopin01 a écrit :

Bonjour,
Les select n'ont aucun intéret
Les windows non plus (à éviter)
La syntaxe suivante n'active rien et ne fait que le collage demandé :

Code :
  1. Sub test()
  2. Workbooks("FichierA.xls" ).Worksheets("cible" ).Cells.ClearContents
  3. Workbooks.Open Filename:="\Travail\FichierB.xls"
  4. Workbooks("FichierB.xls" ).Worksheets("source" ).Cells.Copy _
  5.     Workbooks("FichierA.xls" ).Worksheets("cible" ).Range("A1" )
  6. Workbooks("FichierB.xls" ).Close False
  7. End Sub


A+


 
Bonjour,
J'ai essayé ta solution ça marche impécable :) . tu peux me dire s'il te plais dans le cas de plusieurs fichiers comment il faut faire pour les importés? :??:  
Merci par avance.

n°20292
gabgab49
en apprentissage
Profil : Jeune recrue
Posté le 22-07-2013 à 16:06:27  profilanswer
 

Salut les programmeurs :)
 
Bon ok ça fait un peu déterrage mais je suis coincé...
j'ai exactement la meme problematique que man_coef, le code donné marche super, à la différence près que je voudrais faire la meme chose avec collage avec liaison, pour que les données une fois importées se mettent à jour puisqu'elles évoluent souvent.
 
est-ce que c'est possible ?
j'ai besoin d'aide, je débute en VBA, et je rame pas mal, meme si j'avoue que je m'amuse.
 
Merci pour votre aide
gabriel


Aller à :
Ajouter une réponse
  FORUM Rue-Montgallet.com
  Programmation
  VB - VBA

  Comment copier coller les donnés d'un autre fichier Excel?

 

Comparhaut
Conditions d'utilisation
© 2000-2014 SARL ComparHaut - Tous droits réservés