je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichier xls

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Burk91
  • 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 !

S'inscrire
B

Burk91

XLDnaute Nouveau
Bonjour à tous et merci pour votre aide.

Je pense que ce que je veux faire n'est pas sorcier, mais je ne suis malheureusement pas un expert en Excel, donc j'ai un peu de mal.

Je souhaite que a partir d'un fichier xls, un utilisateur puisse remplire des champs, présent dans 2 feuilles de ce fichier xls, et qu'une foi la saisie terminé, il clique sur un bouton qui va lui crée un fichier CSV avec JUSTE les infos qu'il a saisie.


Donc un utilisateur remplirait le fichier XLS suivant.

Code: 
Exemple :
Prénom : [B]Bernard[/B]
Nom : [B]Tartempion[/B]
adresse : [B]3 rue de l'église[/B]

Regarde la pièce jointe 159005

puis une foi terminé, cet utilisateur cliquerait sur le bouton [CREAT CSV]
et le fichier cvs suivant ce créerait (enregistrer sous : fichier.csv):


Bernard;Tartempion; 3 rue de l'église
Polo; 1,8L; 130 chv; Noir
Clim; Auto Radio; jantes; GPS
Cliquez pour agrandir...


Je vous remercie de votre aide, car la j'ai besoin d'une piste 😉
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonsoir,
Dans le module standard et le fichier de l'exemple précédent
Code: 
Sub CreerCSV()
Dim Fichier As String, PrintTxt As String, nB As Byte

nB = FreeFile
Fichier = ActiveWorkbook.Path & "\" & Format(Date, "dd-mm-yyyy") & ".csv"
Open Fichier For Output As nB

PrintTxt = Txt("Clients", 3, nB) 'nom de la feuille, nb de colonne, n° fichier
PrintTxt = Txt("Véhicules", 4, nB)
PrintTxt = Txt("Options", 4, nB)
Close nB

End Sub

Function Txt(ws As String, C As Byte, nB)
Dim i As Long, j As Byte, dl As Long
With Sheets(ws)
    dl = .Range("A65000").End(xlUp).Row
    For i = 2 To dl
        For j = 1 To C
            If .Cells(i, j) <> "" Then Txt = Txt & .Cells(i, j) & ";"
        Next
        If Txt <> "" Then Print #nB, Left(Txt, Len(Txt) - 1)
        Txt = ""
    Next
End With

End Function
A+
kjin
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour Kjin

C’est Génial , tout fonctionne comme sur des roulettes !
Maintenant juste 2 ou 3 petites questions afin que je puisse comprendre ton algorithme 😛😕

Dans :
Code: 
nB = FreeFile 
PrintTxt = Txt("DEFINITION SOURCE 12-38-39", 16, nB) 'nom de la feuille, nb de colonne, n° fichier
Je ne comprends pas ce que le « nB » fait ? tu le commente en « n° de fichier », mais c’est encore flou pour moi quand a son utilité dans l’algo :s

- Et dans la fonction
Code: 
Function Txt(ws As String, C As Byte, nB)
Dim i As Long, j As Byte, dl As Long
With Sheets(ws)
    dl = .Range("A65000").End(xlUp).Row
    For i = 5 To dl
        For j = 1 To C
            If .Cells(i, j) <> "" Then Txt = Txt & .Cells(i, j) & ";"
        Next
        If Txt <> "" Then Print #nB, Left(Txt, Len(Txt) - 1)
        Txt = ""
    Next
End With

End Function
Je comprends qu’elle permet de mettre le séparateur avec des « ; »
Mais pareil je ne vois pas le rôle des variable « ws » et « C » et toujours ce « nB » qui me perturbe 😉 (j'aurai juste besoin d'un petit commentaire sur ce code, afin que je puisse le comprendre 😀🙄😀)

- Et enfin, est t’il possible quand on clique sur le bouton « Creat CSV » d’avoir une nouvelle fenêtre qui demande d’enregistrer sous (et l’utilisateur choisirait son emplacement sur le Bureau et le nom du fichier toto.csv 😉

Enfin c’est vraiment génial ce que tu m’as fais et je t’en remercie encore !
 
Dernière édition:
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour à tous

Pour info Burk91:
Dans Excel, tu fais ALT+F11 puis F1
Tu cherches alors ce dont tu as besoin, ici Freefile
et tu trouves ceci:

FreeFile, fonction, exemple

Cet exemple utilise la fonction FreeFile pour renvoyer le prochain numéro de fichier disponible. Cinq fichiers sont ouverts à l'intérieur de la boucle et des données sont écrites dans chacun d'eux.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' La boucle est effectuée cinq fois.
FileNumber = FreeFile ' Lit le numéro de fichier inutilisé.
' Crée le nom du fichier.
Open "TEST" & MyIndex For Output As #FileNumber
Write #FileNumber, "Ceci est un exemple" ' Écrit le texte.
Close #FileNumber ' Ferme le fichier.
Next MyIndex
Cliquez pour agrandir...

La touche F1 est trop souvent ignorée (et cela la rend triste 🙁 ) 😉
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour Tout le monde

@Staple1600 Merci pour ce tips 😉
@kjin si tu pouvais m'expliquer ta fonction, ca serai génial, car la je patauge, après je ne t'embête plus.

Merci d'avance 😉 et bon week end !
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour,
Et bien je ne vois pas ce que tu ne comprends pas
On fait appel à la fonction en lui passant des paramètres différents à chaque fois.J'aurais pu simplifier en bouclant sur les feuilles et les colonnes directement dans la fonction, une forme de récusivité en qq sorte.
Note également, qu'une simple Sub aurait suffit, la fonction n'ayant aucune utilité ici, c'est d'ailleurs ce que j'ai fait dans cet exemple.
Pour le répertoire de sauvegarde, j'ai cru comprendre qu'il fallait obliger l'utilisateur à utiliser le bureau, si c'est pas ça, change le paramètre "bwsInf.pidlRoot" dans la fonction "GetFolderName".
A+
kjin
 

Pièces jointes

Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour a tous,

Kjin, c est parfait 😉 Merci pour ton aide.

maintenant j'ai une question plus simple, au niveau du nom de sauvegarde.

Fichier = ActiveWorkbook.Path & "\" & Range("B5").Value & "-" & Range("E5").Value & "-" & Format(Date, "dd-mm-yyyy") & ".csv"
Cliquez pour agrandir...

ca me donne le résultat que je veux, si je suis sur la Feuille1 de mon fichier XLS.
Foncement vue que c'est "ActiveWorkbook"

Mais mon bouton "Creat CSV" est sur plusieurs Feuilles.
Donc j'aimerai remplacer ce ActiveWorkbook par Feuille1 (pour mettre le chemin en dur) mais je ne trouve pas la bonne syntaxe :s

Quelqu'un connait il la bonne syntaxe ? merci de votre aide 🙂
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Bonjour,
Burk91 à dit:
Mais mon bouton "Creat CSV" est sur plusieurs Feuilles.
Donc j'aimerai remplacer ce ActiveWorkbook par Feuille1 (pour mettre le chemin en dur) mais je ne trouve pas la bonne syntaxe :s
Cliquez pour agrandir...
Pas très clair tout ça...
Code: 
ActiveWorkbook.Path & "\
représente le répertoire d'enregistrement, donc ici le répertoire courant
"Feuil1" serait donc le répertoire ? Soit, mais il n'est pas dans la nature, faut-il le rechercher ou connais tu le chemin pour y acceder ?
Par ailleurs tu dis avoir plusieurs boutons;faut-il utiliser dans tout les cas "Feuil1" pour le répertoire ou le nom de la feuille où se situe le bouton ?
En attendant des compléments d'infos...
A+
kjin
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

kjin à dit:
Par ailleurs tu dis avoir plusieurs boutons;faut-il utiliser dans tout les cas "Feuil1" pour le répertoire ou le nom de la feuille où se situe le bouton ?
kjin
Cliquez pour agrandir...

Voila exactement.

Dans la feuille 1 j ai le Nom (B5) et le Prénom (E5)
Donc si le clique sur le bouton Exporte CVS de la feuille 1, avec cette requête, ca marche impec.
Fichier = ActiveWorkbook.Path & "\" & Range("B5").Value & "-" & Range("E5").Value & "-" & Format(Date, "dd-mm-yyyy") & ".csv"

Mais j ai ce bouton dans d autre page, qui regroupe les voitures, ou les options (au qu elle cas, B5 est Renault, et E5 est CLIO)

Donc moi j aimerai dire :
Fichier = ActiveWorkbook.Path & "\" & Range.FEUILLE1.("B5").Value & "-" & Range.FEUILLE1.("E5").Value & "-" & Format(Date, "dd-mm-yyyy") & ".csv"

Je dois pas être loin mais ma syntaxe n'est pas bonne 😉
 
Vote positif 0 Vote négatif
Re : je souhaite que Excel me retourne un fichier CSV avec certaine colones du fichie

Re,
Je suis sans doute bouché mais j'aime les explications simples et claires !
Code: 
With Sheets("[COLOR="Blue"]Feuille1[/COLOR]")
    Fichier = ActiveWorkbook.Path & "\" & .Range("B5") & "-" & .Range("E5") & "-" & Format(Date, "dd-mm-yyyy") & ".csv"
End With
Si tant est que la feuille se nomme bien "Feuille1"
A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

B
  • Question Question
Je souhaite que Excel lise un fichier CSV et remplisse les colones xls intelligemment
Réponses
6
Affichages
2 K
kjin
K
Retour