mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011
-
8 juin 2007 à 15:54
mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011
-
8 juin 2007 à 16:06
bonjour voila jai un probleme avec mon code, lorsque je lance excel il bloque sur Donnees = Now()
probleme de langue mais je sais pas par quoi remplaver le Now()
merci
Private Sub Workbook_Open()
Dim LogFile As String
LogFile = "activite.log"
ChDir ThisWorkbook.Path
Open LogFile For Append Shared As #1
Print #1, "Ouverture d'Excel a " & Donnees
Close #1
accueil.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LogFile As String
LogFile = "activite.log"
ChDir ThisWorkbook.Path
Donnees = Now()
Open LogFile For Append Shared As #1
Print #1, "Fermeture d'Excel a " & Donnees
Print #1, "----------------------------------"
Close #1
End Sub
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 8 juin 2007 à 16:01
Salut,
tu n'as pas déclaré Donnees ^^
De toute façon, cette variable est inutile :
Private Const LogFile As String = "activite.log"
Private Sub Workbook_Open()
<strike>Dim LogFile As String</strike>
<strike>LogFile = "activite.log"</strike>
ChDir ThisWorkbook.Path
Open LogFile For Append Shared As #1
Print #1, "Ouverture d'Excel a " & Now 'Now directement
Close #1
accueil.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As
Boolean)
<strike>Dim LogFile As String</strike>
<strike>LogFile = "activite.log"</strike>
ChDir ThisWorkbook.Path
Open LogFile For Append Shared As #1
Print #1, "Fermeture d'Excel a " & Now 'Now directement
Print #1, "----------------------------------"
Close #1
End Sub
~
<small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>