Discussion :

[dany67700]

Bonjour,

Je me permets de vous écrire car je rencontre un blocage avec la programmation vba avec une visualisation userform. En effet, mon objectif final est de pouvoir convertir un fichier txt (extraction d'un célèbre logiciel ERP) et de "coller" les données dans un classeur excel. Voici mon objectif principal.
Pour commencer j'ai décidé de créer une petite interface avec userform qui se décomposera en 3 bouton, un premier intitulé importer qui me permets de sélectionner mon fichier txt en question. Un second, exporter qui devrait me permettre de réaliser la mise en page du fichier txt (séparer les données) puis de "colleré les données sur le classeur excel; c'est sur ce bouton que je recontre actuellement les soucis. Enfin le bouton fermer qui permet d'annuler le userform et de revenir au classeur excel.
Mon problème intervient sur le bouton exporter dont la macro vba me dit qu'il y'a une erreur sur la ligne :
Sheets("import").Cells(ligne_enCours, colonne_enCours).Value = tampon

Je demande humblement votre aide pour débloquer la situation afin que de pouvoir terminer le ficheir en question.
Pourriez-vous me fournir des explications et m'informer des démarches à réalsier afin de ne plus rencontrer de bloquages svp? Je tiens à préciser que je suis d'un niveau faible en codage vba et que pour créer ce ficheir j'ai suivit un tuto par youtube (qui n'indique pas l'erreur en question).

Vous trouverez en pièce jointe le fichier excel

Ps : je ne peux pas vous inclure en pièce jointe le fichier txt car ce fichier dispose de 10k lignes confidentiel. Mais je pense que vous pourrez, pour la bonne démarche du userform, simuler aisément avec l'un de vos fichiers txt (que vosu avez sous la main)

Je tiens à vous remercier par avance de l'aide que vous allez m'apporter

test.xlsm

[ARTURO83]

Bonjour,

Mettez la déclaration des variables tout en haut du module et supprimer "Private Sub CommandButton1_Click()" qui ne sert à rien.

Cdlt

[dany67700]

Je vous remercie Arturo, étant novice en la matière pourriez-vous svp me donner plus de détails svp quand vous dites déclaration de variables tout en haut du module? Me dire telle(s) ligne(s) est/sont à déplacer avant telle ligne ou rajouter ces termes avant ces lignes.

merci par avance

[ARTURO83]

Ce qu'il y avait tout en haut du module du formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
End Sub
Dim ligne_debut As Integer: Dim colonne_debut As Integer
Dim ligne_fin As Integer: Dim colonne_fin As Integer
Dim ligne_enCours As Integer: Dim colonne_enCours As Integer

Et après modification

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim ligne_debut As Integer: Dim colonne_debut As Integer
Dim ligne_fin As Integer: Dim colonne_fin As Integer
Dim ligne_enCours As Integer: Dim colonne_enCours As Integer

les variables n'étaient pas lues par le code, ce qui fait que les variables "ligne_enCours" et "colonne_enCours" ne contenaient aucune valeur, ce qui reviennait à écrire:
Sheets("import").Cells(ligne_enCours, colonne_enCours).Value = Sheets("import").Cells("","").Value , ce qui génère un erreur.

Sur le fichier que j'ai fourni précédemment, faire ALT + F11 pour voir le code.

Cdlt

[dany67700]

je vous remercie pour votre aide, cela m'a dépanné. Je vais terminer ce week-end le userform afin de faire réagir le bouton fermer. Je me permet de revenir vers vous ce week-end ou courant de semaine prochaine car il faudra adapter d'une certaine manière l'interprétation du fichier txt avec la macro vba. Au jour d'aujourd'hui je ne sais pas trop comment faire cette étape car la façon de codifier est différente selon les personnes en charge.