[Résolu]Copie d'une cellule d'un fichier à l'autre

Copie d'une cellule d'un fichier à l'autre [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2012 à 17:38:24    

Bonjour  :hello:  
 
J'ai fait pas mal de recherche, j'ai trouvé plein d'explication sur la marche à suivre pour cette simple opération, mais toujours pas moyen de trouver la solution (Je suis même passer par le "enregistrer macro" ).
 
J'essaye tout simplement de copier une cellule d'un fichier excel vers un autre.
 

Code :
  1. Dim Chemin, FichierS, FichierC
  2.  
  3.     Chemin = "C:\Blabla"
  4.     FileCopy (Chemin & "\Template.xls" ), (Chemin & "\FichierCible.xls" )
  5.     FichierC = Chemin & "\FichierCible.xls"
  6.     FichierS = Chemin & "\Données.xls"
  7.  
  8.     Workbooks.Open FichierC
  9.     Workbooks.Open FichierS
  10.  
  11.     Workbooks(FichierS).Range("A3" ).Select
  12.     Selection.Copy
  13.     Workbooks(FichierC).Range("C5" ).Select
  14.     ActiveSheet.Paste
  16.     'J'ai essayé ça aussi mais ça marche po non plus
  17.     'Workbooks(FichierC).Sheets(1).Range("C5" ).Value = Workbooks(FichierS).Sheets(1).Range("A3" ).Value
  18.     'Workbooks(FichierC).Sheets(1).Cells(5, 2).Value = Workbooks(FichierS).Sheets(1).Cells(3, 1).Value


 
Mon fichier est créé correctement, les fichiers excels sont bien ouverts, mais le copie de cellule ne se fait pas.
Si quelqu'un a une idée, merci d'avance.


Message édité par StefaNouF le 09-03-2012 à 17:01:46
Reply

Marsh Posté le 08-03-2012 à 17:38:24   

Reply

Marsh Posté le 09-03-2012 à 10:57:59    

De mémoire Workbooks utilise le nom court, donc pas avec le chemin d'acces.
 
De plus, dans ton code, ligne 8 et 9 tu ouvres deux fois le meme fichier, difficile donc d'atteindre le second fichier.


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 09-03-2012 à 17:01:31    

La ligne 8 et 9 était une erreur de recopie, je ne l'avais pas dans le code original.

 

Effectivement j'utilise dorénavant le nom court pour Workbooks ça marche mieux merci.

 

Mon problème venait du fait que la Sheet 1 était masqué  dans mon FichierC, je n'écrivais donc pas au bon endroit et je ne voyais pas ce que j'écrivais ^^


Message édité par StefaNouF le 09-03-2012 à 17:02:09
Reply

Marsh Posté le 09-03-2012 à 20:18:50    

Merci du retour.
:jap:


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed