Sujet Précédent Sujet Suivant

Exporter des données d'un fichier excel

Fermé
nath86 - 26 janv. 2009 à 15:41
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 26 janv. 2009 à 16:35
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 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 5 110
26 janv. 2009 à 16:35
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