Macro excel copier

mout94 -  
Bonjour,

J'ai une appli qui me génére des fichiers nommés Report_date_heure.xls. je souhaite avoir une macro me permettant de récupérè la valeur d'une case (A17 de la feuille1) du fichier ouvert (Report) vers un autre classeur (Recup) dans la feuille_AA colonne C et ceci à la suite des données déjà excistants (sans ecrassé la liste des données existant.

Merci pour votre aide
Configuration: Windows Vista Internet Explorer 7.0

4 réponses

  1.  pijaku Modérateur
    Salut,
    Ou plus simplement, si les 2 classeurs sont ouverts (à adapter bien sur nom des classeurs, des feuilles...) :

    Workbooks("Classeur1").Sheets("AA").Range("A17").Copy Workbooks("Classeur2").Sheets("Feuil1").Range("C65536").End(xlUp)
    1. pou pouille
      bonjours , un code vba dans ce genre devrait fonctionner ,vérifier le nom des feuilles et fichier.

      dim ligne,ma_variable as variant
      Windows("recup").Activate
      Sheets("feuille1").Select
      lignes = Application.WorksheetFunction.CountA(Range("C1:C65536"))
      lignes=lignes+1
      windows("report").activate
      Sheets("feuille_AA").select
      ma_variable=range("A17").value
      Windows("recup").Activate
      Sheets(feuil).Select
      range("C:" & lignes).value=ma_variable
      1. mout94
        Bonjour Ponpon,

        Mon souci c'est que la colonne d'arrivée du fichier Recup n'est pas fixe en taille, càd, elle est mise à jour tous les jours et je doit identifier la dernière case de cette colonne NON vide.

        Dans le fichier Recup, les résultats sont introduits dans un tableau (colonne "C") et à la suite de la liste déjà existante, mon souci est de déterminer la dernière case de la colonne "C" NON vide pour ne pas écraser les valeur précédantes.

        Merci
        1. ponpon
          Bonjour,
          Comme il s’agit de la cellule [A7] du classeur [Report], il vous suffit de placer une liaison de ce type =’[Report_date_heure.xls]Feuille1’ !$A$7] dans la cellule concernée du classeur [Recup]