Import CSV vers feuille du classeur actif et non vers nouveau classeur

[stan6201]

Bonjour à tous!

Nouveau sur le forum cela fait quelques jours que je navigue sur ce forum!
Dans le cadre de mon apprentissage, je dois réaliser une macro me permettant de trier les données d'un fichier CSV pour en resortir un graphique.

Mon problème est le suivant: J'utilise un code déniché sur internet qui marche à merveille, mais lors de l'ouverture du fichier CSV, la macro transfert ces données dans un nouveau classeur. Mais j'aimerais que les données soient ouverte dans une nouvelle feuille du classeur actif ou dans une feuille existante du classeur.

Mes connaissances en VBA s'arrete à la création de userforms et au fonction de base, la je suis perdu!

Voici mon code:

Sub OuvertureCVS()
NomFic = Application.GetOpenFilename(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, comma:=True, local:=False
End If
End Sub

Qui as une idée?

 

[eddy51]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

faut que tu lui dise ou l'ouvrir

La par exemple

Copy Destination:=Sheets("Feuil2").Range("A1")

elle te copie une plage que tu as définie avant et l'envoi dans la feuil2 en A1

 

[stan6201]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

Merci Eddy pour ta réponse mais euuu je dois la mettre ou et comment dans la formule ?!

 

[eddy51]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

met le avant end if et test , dit moi ce que sa fait

 

[WUTED]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

Bonjour stan6201, eddy 51,

Essaye avec ça :

Sub OuvertureCVS()
    NomFic = Application.GetOpenFilename(, , "programmes Presses")
    If NomFic <> False Then
    Workbooks.OpenText Filename:=NomFic, DataType:=1, comma:=True, local:=False
    ActiveWorkbook.ActiveSheet.Cells.Select
    Selection.Copy Destination:=ThisWorkbook.Sheets("Feuil1").Range("A1")
    ActiveWorkbook.Close False
    End If
End Sub

En remplaçant "Feuil1" par le nom de la feuille où tu souhaites placer tes données.

 

[eddy51]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

oui sa suit ce que je disait , test le vba de WUTED sa doit le faire

 

[stan6201]

Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

Merci pour vos réponse! ça marche nikel!!