vicctoria
Nouveau membre
Bonjour, qq pourrait il m'aider à programmer sous vba excel svp.
Je souhaite copier un de ma feuille 1 de mon fichier essai1 dans la première cellule vide de ma colonne A de mon classeur1 de mon fichier essai2.
A savoir que mon fichier essai 1 est un fichier que je remplirai puis effacerai après collage dans mon fichier essai 2 et que je vais pratiquer cette manipulation très souvent.
Le but étant de garder le tableau de mon fichier essai 1 toujours neutre et de remplir à la suite mes infos provenant de celui ci dans une colonne.
Merci de me dire la programmation.
Voici ce que j'ai fait pour le moment mais qui comporte des erreurs.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/02/2009 par auberta
'
Windows("essai1.xls").Activate
Sheets("Feuil1").Activate
Range("A1").Select
Selection.Copy
Windows("essai2.xls").Activate
Sheets("Feuil2").Activate
End Sub
Sub ChercheLigneVide()
Dim Ligne As Long
Ligne = (Range("A1").End(xlDown).Row + 1)
Range Ligne("A:a").Paste
End Sub
Merci
Vicctoria
Je souhaite copier un de ma feuille 1 de mon fichier essai1 dans la première cellule vide de ma colonne A de mon classeur1 de mon fichier essai2.
A savoir que mon fichier essai 1 est un fichier que je remplirai puis effacerai après collage dans mon fichier essai 2 et que je vais pratiquer cette manipulation très souvent.
Le but étant de garder le tableau de mon fichier essai 1 toujours neutre et de remplir à la suite mes infos provenant de celui ci dans une colonne.
Merci de me dire la programmation.
Voici ce que j'ai fait pour le moment mais qui comporte des erreurs.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/02/2009 par auberta
'
Windows("essai1.xls").Activate
Sheets("Feuil1").Activate
Range("A1").Select
Selection.Copy
Windows("essai2.xls").Activate
Sheets("Feuil2").Activate
End Sub
Sub ChercheLigneVide()
Dim Ligne As Long
Ligne = (Range("A1").End(xlDown).Row + 1)
Range Ligne("A:a").Paste
End Sub
Merci
Vicctoria