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

Question

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

Mike-31 · Accepted Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

medbakati · Answer

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

Macro excel copier données d'un fichier à la suite des données

5 réponses

Discussions similaires