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

A voir également:

Probleme de langue je pense
Code langue arabe - Conseils pratiques -Visual Basic / VB.NET
Changer langue visual studio - Forum VB.NET
Changer la langue ✓ - Forum C# / .NET
Changer de language dans form1 ✓ - Forum VB.NET
Changer la langue de clavier avec un code vb.net - Forum VB.NET

3 réponses

Réponse 1 / 3

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

Réponse 2 / 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

Réponse 3 / 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:06

cest bon
merci

Discussions similaires

changement de langue

Changer la langue

Choisir la langue de l'application

probleme avec la saisie en arabe

Votre réponse

Discussions similaires