Discussion :

[Miistik]

Bonjour,

J'ai honte de poser cette question mais je galère .

Je cherche à créer un message de rapport.

J'ai une variable fichier qui boucle.
Ex : toto , titi, tata , paul , robert

Je souhaite un message du style :

Rapport :
toto
titi
tata
paul
robert

Et j'arrive pas à mettre cela dans une variable string.

Code :

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

Message = "Rapport : " & vbCrlf

Après je sais pas comment ajouter Fichier pour chacune de ses valeurs.

Un coup de main ?

Merci.

Miistik

[kiksora_01]

essaye
Code :
msgbox toto

[Miistik]

Bonjour,

Merci à toi mais c'est plus compliqué que cela.

Je souhaite ré-utiliser la variable et la faire boucler.

Par exemple : Message = Message + Fichier
qui donne :

Rapport :
toto

[papyxy]

Bonjour
Comment sont affectées les valeurs dans la variable?

[Miistik]

Bonjour,

C'est une boucle qui lit ligne par ligne un fichier.
Donc au premier passage Fichier vaut toto
au deuxième tata
et ainsi de suite.

J'aimerai que toutes ces valeurs soit affiché dans une variable avec le formalisme de mon message initial.

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fso,Fichier,Fichier_Line
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt",1,True)
 
Do Until Fichier.AtEndOfStream
    Fichier_Line = Fichier.ReadLine
    tab = Split(Fichier_Line,",")
    Message = "Rapport :"
    For i=LBound(tab) To UBound(tab)
        Message = Message & vbcr & tab(i)
    Next
Loop
MsgBox Message,64,"Message"

[papyxy]

Peut-être plus simple encore :

Code :

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

1
2
3
4
5
6
7
8
9
Set fso = CreateObject("Scripting.FileSystemObject" ) 
Set Fichier = fso.OpenTextFile("NomFichier.txt")
    Message = "Rapport :" 
 Do Until Fichier.AtEndOfStream
    Line = Fichier.ReadLine
        Message = Message & vbcr & line
Loop
fichier.close
MsgBox Message

[hackoofr]

Ou bien plus compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim fso,Fichier,CheminFichier,Fichier_Line
Set fso = CreateObject("Scripting.FileSystemObject") 
CheminFichier = "c:\NomFichier.txt"
If Not fso.FileExists(CheminFichier) Then
	MsgBox "Le fichier " & CheminFichier & " n'existe pas",48,"Le fichier " & CheminFichier & n'existe pas"
	wscript.quit
Else
	Set Fichier = fso.OpenTextFile(CheminFichier,1,True)
	Do Until Fichier.AtEndOfStream
		Fichier_Line = Fichier.ReadLine
		tab = Split(Fichier_Line,",")
		Message = "Rapport :"
		For i=LBound(tab) To UBound(tab)
			Message = Message & vbcr & tab(i)
		Next
	Loop
	Fichier.Close
	Set Fichier = Nothing
	Set Fso = Nothing
End If
MsgBox Message,64,"Message"