Copie d'une feuille

Bonjour à tous.

Alors voilà j'ai un petit problème. Je cherche à copier une feuille d'un fichier csv pour m'en servir comme source.

J'ai essayer ce code trouvé adapté (première fois que j'arrive à le faire marcher)

Workbooks.Open "chemin\nomfichier.csv", Local:=True
ActiveWorkbook.Sheets("nomfeuil").Copy
WorkBooks("Classeur1.xls").Sheets(1).Paste
Workbooks("nomfichier.csv").Close

Le problème c'est qu'avec ce code y a de l'idée, mais il manque de la justesse.

Il ouvre mon fichier

le copie

le colle dans un nouveau classeur qu'il a decidé (alors que je veut le copier dans Classeur1.xls je ne l'ai pas encore nommer il est enregistrer sous Classeur1.xls).

Copie "nomfichier.csv" dans la cellule que j'ai selectionné du "Classeur1.xls"

Et ne feme pas le classeur "nomfichier.csv"

Merci d'avance pour votre aide.

Bonjour

Essaie avec le code suivant

Sub Copie_csv()

'Ouvre le fichier .csv

Workbooks.Open "fichier1.csv", Local:=True

'Copie toutes les cellules

ActiveSheet.Cells.Copy

'Active le fichier de destination (qui doit être ouvert)

Workbooks("Fichier1.xls").Sheets(1).Activate

'colle les données copiées à partir de la première cellules de la feuille

ActiveSheet.Paste Destination:=ActiveSheet.Cells(1, 1)

'supprime le message d'alerte

Application.DisplayAlerts = False

'ferme le fichier csv

Workbooks("fichier1.csv").Close

End Sub

Cordialement

Merci beaucoup ca fonctionne.

Aprés test mon code ne copier pas. il faisait par contre le coller de mon presse papier (et j'avais le nom du fichier que j'avais copier pour ne pas faire de faute en l'utilisant dans le programme)