Macro excel copier données d'un fichier à la suite des données [Résolu/Fermé]

Signaler
-
Messages postés
1
Date d'inscription
mardi 22 avril 2014
Statut
Membre
Dernière intervention
22 avril 2014
-
Bonjour,
Je suis actuellement à la recherche d'un code qui me permettrait de copier les données d'un fichier excel ( une feuille, colonnes) dans un autre fichier excel et à la suite des données de celui-ci. J'ai réussi à créer ma macro qui e permet d'ouvrir le fichier mais je n'arrive pas à copier les données à la suite des données contenues dans l'autre fichier
MErci de votre aide

5 réponses

Messages postés
17380
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
22 juin 2021
4 648
Re,

remplace cette ligne
Range("A2:A" & Range("A2").End(xlDown).Row).Select

par cette dernière qui recherchera la première cellule non vide en partant du bas et non du haut
Range("D2:A" & Range("A65000").End(xlUp).Row).Select
et si tu écris la ligne comme cela

Range("D2:A" & Range("A65000").End(xlUp).Row).Copy

tu peux supprimer cette dernière
Selection.Copy
23
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
5
Date d'inscription
lundi 29 avril 2013
Statut
Membre
Dernière intervention
29 avril 2013

Parfait ça marche!!! Merci Mike!!!
A bientôt!
Messages postés
17380
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
22 juin 2021
4 648
Salut,

dans ton code, après avoir ouvert ton fichier il faut rechercher la première cellule vide exemple colonne a avec ce code et coller

Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide
ActiveSheet.Paste 'copie les données
Messages postés
5
Date d'inscription
lundi 29 avril 2013
Statut
Membre
Dernière intervention
29 avril 2013

Merci Mike, en fait je suis un débutant en VBA..
je te'xplique mieux mon problème. j'ai quatre colonnes dans mon fichier source et je veux les copier et les coller à la suite de quatre autres colonnes dans le fichier de destination Lorsque je prends la colonne A de mon fichier qyel pourrait être le code pour le copier à la suite des données de la colonne A de mon fichier de destination.
Messages postés
5
Date d'inscription
lundi 29 avril 2013
Statut
Membre
Dernière intervention
29 avril 2013

Voilà mon code et là ou je suis bloqué....

Sub Importer()
Dim AgendaIncidents As Workbook
Dim Fichier As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

ChDrive Chemin
ChDir Chemin

'Set une variable qui va contenir le nom et le chemin du fichier à ouvrir.
Fichier = Application.GetOpenFilename(", *xlWindows", 0, "Importer votre fichier") 'On ouvre la fenêtre et conserve le nom du fichier choisi dans une variable
'définir le classeur destination
Set AgendaIncidents = ThisWorkbook

'Test si un fichier a été sélectionné
If Fichier = "Faux" Then
Msg = "Aucun fichier sélectionné.Veuillez recommencer SVP!" ' Définit le message.
Style = vbOKOnly ' Définit les boutons.
Title = "ALERTE" ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Exit Sub 'Sort de la macro puisqu'aucun fichier n'a été sélectionné
Else 'Sinon, on ouvre le fichier sélectionné
Set wb = Workbooks.Open(Fichier)
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
wb.Sheets(1).Range(...........)
Messages postés
17380
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
22 juin 2021
4 648
Re,

Sub Importer()
Dim AgendaIncidents As Workbook
Dim Fichier As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

ChDrive Chemin
ChDir Chemin

'Set une variable qui va contenir le nom et le chemin du fichier à ouvrir.
Fichier = Application.GetOpenFilename(", *xlWindows", 0, "Importer votre fichier") 'On ouvre la fenêtre et conserve le nom du fichier choisi dans une variable
'définir le classeur destination
Set AgendaIncidents = ThisWorkbook

'Test si un fichier a été sélectionné
If Fichier = "Faux" Then
Msg = "Aucun fichier sélectionné.Veuillez recommencer SVP!" ' Définit le message.
Style = vbOKOnly ' Définit les boutons.
Title = "ALERTE" ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
Exit Sub 'Sort de la macro puisqu'aucun fichier n'a été sélectionné
Else 'Sinon, on ouvre le fichier sélectionné

'ici il faut selectionner la plage à copier et copier


Set wb = Workbooks.Open(Fichier)
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination

'ici rechercher la première cellule vide su on prends référence sur la colonne A avec ce code et on colle

Range("A65000").End(xlUp).Offset(1).Select 'recherche la première cellule vide
ActiveSheet.Paste 'copie les données
Messages postés
5
Date d'inscription
lundi 29 avril 2013
Statut
Membre
Dernière intervention
29 avril 2013

Parfait..ça marche!! j'ai un autre soucis J'ai juste essayé de copier et de coller la première colonne. Comment doisje procéder pour copier et coller les colonnes ensemble.
Voilà le code pour la colonne A
Wb.Sheets(1).Select
Range("A2:A" & Range("A2").End(xlDown).Row).Select
Selection.Copy
AgendaIncidents.Sheets("Planificateur d'incidents").Activate
Range("E1048576").End(xlUp).Offset(1).Select
ActiveSheet.Paste

Merci pour ton aide
Messages postés
17380
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
22 juin 2021
4 648
Re,

tu veux copier quelles colonnes et de quelle ligne à quelle ligne

exemple de la dernière cellule non vide colonne A à la cellule ex. G2
Messages postés
5
Date d'inscription
lundi 29 avril 2013
Statut
Membre
Dernière intervention
29 avril 2013

Je veux copier les cellules (jusqu'à la dernière cellule non vide) des colonnes A ,B,C,D à la suites des données des colonnes E,F,G,H de la feuille "Planificateur d'incidents" de on classeur de destination AgendaIncidents.
Messages postés
1
Date d'inscription
mardi 22 avril 2014
Statut
Membre
Dernière intervention
22 avril 2014

Bonjour,
j'ai besoin de l'aide a propos de mon projet concernant le sujet d'importer des données d'un fichier excel en utilisant un bouton qu'elle permet de transfert ces donnés sur un autre fichier ?
merci