Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

13 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.

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.


Aller à :
Ajouter une réponse