Discussion :

[yrondi]

Bonjour à tous,

J'ai crée une macro excel qui permet d'enregistrer chaque impression sur un fichier txt (historique).
Mais ça marche aléatoirement...

L'extrait du code :

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
Open "Historique.txt" For Append Shared As #f 
 
If FileLen("Historique.txt") = 0 Then 
Print #f, "Affaire :", Cells(6, 6), "N°", Cells(8, 6) 
End If 
 
Print #f, "" 
Print #f, "Rapport de diffusion du : ", Format(Now(), "dd/MM/yyyy"), " à ", Format(Now(), "hh:mm:ss") 
For j = 1 To 15 
If Cells(17 + j, 2).Value <> "" Then 
Print #f, "Plan N°", Cells(17 + j, 2).Value, Cells(17 + j, 3).Value, Cells(17 + j, 5).Value, "Indice", Cells(17 + j, 7).Value, "du", Format(Cells(17 + j, 8).Value, "dd/MM/yyyy") 
End If 
For k = 1 To 12 
If Cells(17 + j, 8 + k).Value <> "" Then 
Cells(6, 23).Value = k 
Print #f, " Diffusé à ", Cells(8, 10), "en", Cells(17 + j, 8 + k).Value, "exemplaires" 
End If 
Next 
Cells(6, 23).Value = "" 
Next 
Close #f

Ya quelques conditions pour écrire dessus mais normalement, cette partie :

Code :

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

1
2
Print #f, "" 
Print #f, "Rapport de diffusion du : ", Format(Now(), "dd/MM/yyyy"), " à ", Format(Now(), "hh:mm:ss")

il devrait me l'écrire systématiquement.

Du coup, je me demande pas s'il y a une erreur de syntaxe.
Le fichier est enregistré sur un disque réseau si des fois ça viendrait de là.

Merci pour vos éclaircissements,

Daniel

[pgz]

Bonjour.

Tu peux essayer

Code :

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

Print #f, "Rapport de diffusion du : " & Format(Now(), "dd/MM/yyyy") & " à " & Format(Now(), "hh:mm:ss")

ou plus simplement

Code :

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

Print #f, "Rapport de diffusion du : " & Format(Now(), "dd/mm/yyyy"" à ""hh:nn:ss")

Bon courage,

PGZ

[JackOuYA]

bonsoir,

c'est un oubli où il te manque la ligne ou tu renseigne ta variable f ?

Code :

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

1
2
 
f =freefile

[yrondi]

Bonjour,

pgz => ça ne change rien
JackOuYA => la ligne figure plus haut dans le code (j'ai pas tout mis dans l'extrait)

ce qui est bizarre, c'est que parfois ça marche et puis parfois non