[VB] Help demander d'urgence pour stage

Salut,

d'abord keep cool, respire un grand coup,
et dit moi plus de détails, je suis aussi en stage mais je fait du VBA.
Je pense que je peux quand même te donnerun coup de main.

Ta ligne, c'est un string c'est bien ça ?
si oui, regarde dans l'aide si tu trouve la methode Mid()

@+

en fait g le debit et le credit qui sont sur deux colonne et ils fo qe je regroup ds uneseule colonne.
C quoi eja un string?

voila c qe g fait ms cela ne concerne pas la partie modification du fichier

voila c qe g fait ms cela ne concerne pas la partie modification du fichier
Option Explicit

Dim SelectedFile As String
Dim ligne As String
Dim vari As Integer
Dim contenu As String
Dim chemin As String

Private Sub avantconvertion_Click()

On Error GoTo gesterr1
'ouverture du fichier
Open SelectedFile For Input As #1
'affichage de son contenu

While Not EOF(1)
Line Input #1, ligne
visualisation.Text = visualisation.Text & ligne & vbCrLf

Wend

'fermeture du fichier
Close #1
Exit Sub
'gestion de l'oubli de selection de fichier
gesterr1:
MsgBox ("vous n'avez pas selectionner de fichier")
End Sub

Private Sub Drive1_Change()
On Error GoTo gesterr2
'Séléction du lecteur
Dir1.Path = Drive1.Drive
Exit Sub
'gestion d'un periphérique indisponible
gesterr2:
MsgBox ("Le periphérique selectionné est indisponible, veuillez recommencer votre choix")
End Sub

Private Sub Dir1_Change()
'Séléction du dossier
File1.Path = Dir1.Path
End Sub

Private Sub erase_Click()
'demande de confirmation pour effacer le contenu du textbox visualisation
If MsgBox("voulez-vous effacer le texte affiché? ", vbYesNo) = vbYes Then
'mise a 0 du textbox visualisation
visualisation.Text = ""
Else
'textbox visualisation laissé telquel
End If
End Sub

Private Sub File1_Click()
'Séléction du fichier
SelectedFile = File1.Path & "\" & File1.FileName

End Sub

Private Sub convertion_Click()

MsgBox ("La convertion est achevée")

End Sub

Private Sub info_Click()
MsgBox ("Logiciel de modification de fichier texte pour avoir les débits/crédits dans une même colonne")
End Sub

Private Sub print_Click()

End Sub

Private Sub imprimer_Click()

Dim stA As String
Dim FF As Long
FF = FreeFile
'ouvrir le fichier a imprimer
Open SelectedFile For Input As #FF
Printer.Print " "
Do Until EOF(FF)
Line Input #FF, stA
Printer.Print stA
Loop
'Refermer le fichier et passer la main à l'imprimante
Close #FF
Printer.EndDoc

End Sub

Private Sub quitter_Click()

'Demande de confirmation pour quitter l'application
If MsgBox("Vous allez quitter l'application êtes-vous d'accord?", vbYesNo, "confirmation de sortie") = vbYes Then
'quitter l'application
End

Else
'rester dans l'application
End If
End Sub

Private Sub save_Click()
vari = FreeFile
contenu = Form1.visualisation.Text
' adresse du fichier a enregistrer
chemin = SelectedFile
'ouverture du fichier
Open chemin For Output As #vari
' enregistrement du texte
Print #vari, contenu
'Fermeture du fichier
Close vari

End Sub

Private Sub visualisation_Change()

End Sub

Il faut que j'arrive a dire que si 1er nombe different de 0 alors s 1er nombre avaec un "d" accolle et si c le 2eme alors c deuxieme nombre avec "c" accole ca doit ce faire otomatiquement

g essayer ms g du me planter qqe part alors g tout effacer.
:'(
en + je c pas utiliser la fonction mid()
suis perdu
et les developeur de lentreprise ne st pas la lol les feneants

;*)

le pb c que je ne peu pas connaitre le nombre de caracter quil fo pour utiliser la fonction mid().
Je ne sait plus quoi faire.

jav ejecter le code .
Fo que je le refasse
ce qe g poster av c le code qe g fait pour le programme

j'avais viré le code car je m'etais trompé.
l faut que je recommence tout.
et desolé pour l'ecriture du precedent message.

Yep,

désolé mais je ne vois pas dans ton code la partie qui concérne
le traitemen des chaines de caractères en question ^^

Je t'ai dit que je lai viré. mais bon faut que je recommence mais je sait pas comment faire.
Peut-etre qu'en demandant aux developpeir de l'entreprise.
Sinon je suis toute ouïe pour vos suggestions