Probleme de langue je pense

Résolu
Signaler
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011
-
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011
-
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

3 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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>

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011

ok merci je teste
Messages postés
303
Date d'inscription
mercredi 11 octobre 2006
Statut
Membre
Dernière intervention
29 juillet 2011

cest bon
merci