Comment copier des données entre deux fichiers ExcelRésolu

Question

Bonjour,
J'ai deux fichiers Excel, un "source" et un "destination". Je souhaite copier les données du fichier source vers le fichier destination avec un appui sur une "commandbutton" dans le fichier destination.  Le fichier source  étant fermé.
J'arrive à ouvrir, à sélectionner, à copier mais rien ne se colle. 
Merci de votre aide.

cs_MPi · Answer

Bonjour,

Qu'as-tu écris comme code pour la copie?

ucfoutu · Answer

Bonjour,
Et qu'as-tu au moins tenté d'écrire dans ce but ?
Une piste pour que tu commences à t'y mettre :
- utilisation de l'instruction Set pour affecter à) deux variables tes deux classeurs
- soit T une variable définie par Set T = ...(un classeur) ...
 T.worskheets("la_feuille").Range("B3").Value
se réfère au contenu (accessible en lecture et écriture) de la cellule B3 de la feuille la_feuille du classeur affecté à la variable T
A toi de jouer.
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

VincMalin · Answer

Bonjour, 

Ci-dessous le code :
ChDir "D:\Users\Documents\- Vinc -"    Workbooks.Open Filename:="D:\Users\Documents\- Vinc -\source.xls"    Selection.Copy    Windows("destination.xls").Activate    ActiveSheet.Paste    Windows("source.xls").Activate    ActiveWindow.Close.
Merci.
Balises code ajoutées

ucfoutu · Answer

- ton chdir ne sert à rien
- tu utilises l'objet selection  qui ne correspond à rien de précis
Applique ce que je 'ai recommandé dans mon message précédent, s'il te plait (affectation - par utilisation de Set - des classeurs traités à des variables, puis utilisation des variables ainsi créées et des objets Excel, comme je te l'ai dit plus haut).

ucfoutu · Answer

Si cela fonctionne et te satisfait, n'en parlons plus.
Chacun décide de transformer son classeur en arbre de Noël ou de travailler avec les objets Excel. C'est son affaire, somme toute. 
Si tu es satisfait : libère donc cette discussion (Marque-la comme résolue).

cs_MPi · Answer

Ce que ucfoutu (salut) te dit, c'est d'utiliser des objets un peu comme ceci
    Dim Wb As Workbook        Set Wb = Workbooks.Open(Filename:="D:\Users\Documents\- Vinc -\source.xls")    Wb.Sheets("Feuil1").Range("A1:B1").Copy ThisWorkbook.Sheets("feuil1").Range("A1:B1")    Wb.Close    Set Wb = Nothing

 J'ai mis ThisWorkbook en pensant que c'était le classeur Destination.xls... à modifier donc si ce n'est pas le bon...

Comment copier des données entre deux fichiers Excel

6 réponses

Votre réponse

Discussions similaires