Macro excel copier
mout94
Messages postés
17
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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
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
A voir également:
- Macro excel copier
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment copier une vidéo youtube - Guide
- Si ou excel - Guide
4 réponses
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)
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)
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]
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]
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
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
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
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
