Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion stan6201
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stan6201

XLDnaute Nouveau
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? 🙂
 
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
 
Re : Import CSV vers feuille du classeur actif et non vers nouveau classeur

Bonjour stan6201, eddy 51,

Essaye avec ça :

VB:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Import CSV
Réponses
9
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…