Probleme de langue je pense

Résolu
mirmoleboss Messages postés 303 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 29 juillet 2011 - 8 juin 2007 à 15:54
mirmoleboss Messages postés 303 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 29 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

3 réponses

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

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
3
mirmoleboss Messages postés 303 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 29 juillet 2011
8 juin 2007 à 16:02
ok merci je teste
0
mirmoleboss Messages postés 303 Date d'inscription mercredi 11 octobre 2006 Statut Membre Dernière intervention 29 juillet 2011
8 juin 2007 à 16:06
cest bon
merci

 
0