Exporter des données d'un fichier excel

nath86 -  
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Besoin d'aide svp
je souhaite créer une macro exportant des données d'un fichier excel vers un autre sans toutefois crasher les données précédentes.
merci de votre aide
Nath86
A voir également:

1 réponse

Réponse 1 / 1
Mike-31 Messages postés 19571 Date d'inscription   Statut Contributeur Dernière intervention   5 139
 
Salut,

Cette macro copie les données de la Feuil1 à partir de la colonne A à la suite dans la Feuil2


Sub Macro1()
Dim Lig As Long
Dim LigFinA As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Sheets("Feuil2").Activate
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With Sheets("Feuil1")
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy

NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
ActiveSheet.Paste
End If
Next
End With
ActiveCell.Select
Sheets("Feuil1").Activate
Application.CutCopyMode = False
MsgBox ("ARCHIVAGE EFFECTUE")
End Sub

Il est possible éventuellement supprimer les données de la feuille1, d'enregistrer automatiquement après le transfert etc ...

A+
0