Aide pour VBA sous Excel
Fermé
a.dequidt
Messages postés
42
Date d'inscription
mardi 4 septembre 2007
Statut
Membre
Dernière intervention
23 octobre 2007
-
4 sept. 2007 à 19:00
Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 - 4 sept. 2007 à 20:44
Papou93 Messages postés 146 Date d'inscription mercredi 4 avril 2007 Statut Membre Dernière intervention 5 juin 2012 - 4 sept. 2007 à 20:44
A voir également:
- Aide pour VBA sous Excel
- Liste déroulante excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
1 réponse
Papou93
Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
59
4 sept. 2007 à 20:44
4 sept. 2007 à 20:44
Bonjour a.dequidt
Puisqu'il s"agit d'un bon de commande, je suppose que la date ne doit pas changer à chaque ouverture du fichier. Il est donc inutile de se compliquer l'existence, remplaces ton code par celui-ci :
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "offres.xls" Then
Worksheets("offre").Range("C12,D13,E12").Value = Date
End If
End Sub
Cordialement.
Puisqu'il s"agit d'un bon de commande, je suppose que la date ne doit pas changer à chaque ouverture du fichier. Il est donc inutile de se compliquer l'existence, remplaces ton code par celui-ci :
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "offres.xls" Then
Worksheets("offre").Range("C12,D13,E12").Value = Date
End If
End Sub
Cordialement.