Copier/coller les valeurs d'1 fichier CSV vers un autre classeur
Fermé
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
-
8 juin 2017 à 11:19
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 10 juin 2017 à 17:18
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 10 juin 2017 à 17:18
A voir également:
- Copier/coller les valeurs d'1 fichier CSV vers un autre classeur
- Fichier rar - Guide
- Fichier host - Guide
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier iso - Guide
4 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 juin 2017 à 13:13
8 juin 2017 à 13:13
Bonjour,
Comprends pas tout ce que vous voulez!!!!!
Mais pour: pour déplacer la feuille du fichier CSV
dans ce code il y a le choix du fichier. Regardez, adaptez et dites nous si ok ou modif a faire
Comprends pas tout ce que vous voulez!!!!!
Mais pour: pour déplacer la feuille du fichier CSV
dans ce code il y a le choix du fichier. Regardez, adaptez et dites nous si ok ou modif a faire
Sub test()
'on recherche le fichier texte
Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
If Fichier <> False Then
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
.Rows("2:" & derlig).Clear
.QueryTables.Add("TEXT;" & Fichier, [A2]).Refresh 'à adapter le cellule de reception
.Rows(2).Delete
derlig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:A" & derlig).TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False
End With
End If
End Sub
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
8 juin 2017 à 16:35
8 juin 2017 à 16:35
Le voici ... dans une forme un peu épurée (j'ai laissé des champs avec des données avec retour chariot.
https://www.cjoint.com/c/GFiovaWNgtM
Et en bonus mon fichier Excel de destination pour voir l'onglet avec les entêtes à conserver :
https://www.cjoint.com/c/GFioHJALBHM
Vos codes sont dans le Module 2.
Les miens sont dans le Module 1 (je ne les ai pas retouchés après nos échanges).
"Sub CustomRQP" est la macro qui marchait comme souhaité mais qui m'obligeait à copier/coller moi-même dans une feuille export (du fichier de destination)
Je ne l'ai pas dit mais pourtant je le pense, un grand merci pour votre aide !
J'avais espoir d'y arriver seule mais avais franchement des doutes ... et grâce à votre aide je me sens remotivée. ;-)
https://www.cjoint.com/c/GFiovaWNgtM
Et en bonus mon fichier Excel de destination pour voir l'onglet avec les entêtes à conserver :
https://www.cjoint.com/c/GFioHJALBHM
Vos codes sont dans le Module 2.
Les miens sont dans le Module 1 (je ne les ai pas retouchés après nos échanges).
"Sub CustomRQP" est la macro qui marchait comme souhaité mais qui m'obligeait à copier/coller moi-même dans une feuille export (du fichier de destination)
Je ne l'ai pas dit mais pourtant je le pense, un grand merci pour votre aide !
J'avais espoir d'y arriver seule mais avais franchement des doutes ... et grâce à votre aide je me sens remotivée. ;-)
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 juin 2017 à 16:48
8 juin 2017 à 16:48
Re,
Je recupere tout ca et vous tiens au courant
A+
Je recupere tout ca et vous tiens au courant
A+
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 juin 2017 à 17:33
8 juin 2017 à 17:33
Re,
En epurant, vou n'auriez pas semer la zizanie, il y a une chiee de lignes vide entre deux zones avec des donnees?
Le fichier complet, pas possible ????????????????????????
En epurant, vou n'auriez pas semer la zizanie, il y a une chiee de lignes vide entre deux zones avec des donnees?
Le fichier complet, pas possible ????????????????????????
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
8 juin 2017 à 19:54
8 juin 2017 à 19:54
Re,
J'ai une solution à l'ancienne, mais j'attends demain si j'ai le fichier csv complet je pourrais confirmer
J'ai une solution à l'ancienne, mais j'attends demain si j'ai le fichier csv complet je pourrais confirmer
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
9 juin 2017 à 08:51
9 juin 2017 à 08:51
Bonjour,
Désolée je n'ai pas pu vous répondre hier.
Voici le fichier complet.
http://www.cjoint.com/c/GFjgR26k8YM
Merci d'avance pour votre aide.
Désolée je n'ai pas pu vous répondre hier.
Voici le fichier complet.
http://www.cjoint.com/c/GFjgR26k8YM
Merci d'avance pour votre aide.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
Modifié le 9 juin 2017 à 10:09
Modifié le 9 juin 2017 à 10:09
Bonjour,
Désolée je n'ai pas pu vous répondre hier
Y a pas d'lezard, mais le format du fichier n'est pas du tout celui d'hier et par contre correspond au code que je vous ai donnes.
Je regarde la chose. Changez pas de format suivant votre humeur.......Hien!!!!!
Désolée je n'ai pas pu vous répondre hier
Y a pas d'lezard, mais le format du fichier n'est pas du tout celui d'hier et par contre correspond au code que je vous ai donnes.
Je regarde la chose. Changez pas de format suivant votre humeur.......Hien!!!!!
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
9 juin 2017 à 10:10
9 juin 2017 à 10:10
Merci beaucoup !
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Sof2Lyon
Messages postés
26
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
12 octobre 2018
Modifié le 9 juin 2017 à 10:38
Modifié le 9 juin 2017 à 10:38
Re,
Va pas etre simple a decouper ce format, mais je cherche
Je pense avoir trouver
Ad t'alheur
Va pas etre simple a decouper ce format, mais je cherche
Je pense avoir trouver
Ad t'alheur
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
10 juin 2017 à 17:18
10 juin 2017 à 17:18
Bonjour,
J'ai reussi a lire et decouper votre fichier CSV par enregistrement, pour le moment brut de decoffrage.
https://mon-partage.fr/f/o4oejqTS/
Vous verrez les enregistrements en rouge ne sont pas normaux, probleme a la creation ou/et anomalie d'encodage sur le fichier source
A+
J'ai reussi a lire et decouper votre fichier CSV par enregistrement, pour le moment brut de decoffrage.
https://mon-partage.fr/f/o4oejqTS/
Vous verrez les enregistrements en rouge ne sont pas normaux, probleme a la creation ou/et anomalie d'encodage sur le fichier source
A+
8 juin 2017 à 13:51
J'adapte et teste de suite et reviens vers vous pour donner le résultat.
8 juin 2017 à 14:14
Mais je n'étais pas sûre à 100% de l'adaptation à faire et cela doit être l’origine de mon message d'erreur.
Sur la ligne With Worksheets("export"), j'obtiens ce message : "Erreur d'exécution '9': L'indice n'appartient pas à la sélection."
Ci-dessous votre code adapté à ma façon :
Sub a_tester() 'on recherche le fichier texte Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv") If Fichier <> False Then With Worksheets("export") derlig = .Range("A" & Rows.Count).End(xlUp).Row .Rows("2:" & derlig).Clear .QueryTables.Add("export" & custom.xlsm, [A2]).Refresh 'à adapter le cellule de reception .Rows(2).Delete derlig = .Range("A" & Rows.Count).End(xlUp).Row .Range("A2:A" & derlig).TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False End With End If End SubPour essayer d'être plus claire, mon objectif est le suivant : récupérer les données du fichier "export.csv" dans la feuille "custom" d'un autre classeur "custom.xlsm" MAIS en ne collant qu'à partir de la 2ème ligne et seulement les valeurs.
Merci d'avance pour votre aide.
Modifié le 8 juin 2017 à 14:21
Et pourquoi pas recuperer les donnees directement du fichier csv au lieu de passer par une feuille excel? Le code fournit fait cela tres bien
8 juin 2017 à 14:37
Désolée j'ai dû mal m'exprimer.
Mon objectif est bien d'avoir sur la feuille de destination "Custom" (de mon classeur final "Custom") les données (uniquement les valeurs) du fichier source "export.csv" mais sans la 1ère ligne puisque dans ma feuille "Custom" cette 1ère ligne est déjà remplie avec texte et format définitifs.
Dans l'idéal j'aurais voulu faire ce que vous décrivez mais n'y arrivais pas.
Le chemin pour y arriver m'importe peu, seul le résultat compte à mes yeux, pourvu qu'il soit utilisable via un seul clic sur un bouton de macro.
Si vous avez possibilité de m'aider à adapter votre code, cela devrait être parfait. :-)
Modifié le 8 juin 2017 à 14:42
Ok, ce code sera a mettre dans votre fichier custom.xlsm. Vous y etiez presque.
Le fichier csv a toujours le meme nom et chemin ou vous voulez choisir?