Modifier un code pour afficher la date du jour

duduleray -  
 duduleray -
Bonjour a tous et toutes, forum bonjour.
<config>Windows 10/ Edge </Excel 2007>

J'ai un fichier avec 30 onglets identiques SAUF les noms que j'ai renommer différemment.

-Dans "THISWORKBOOK j'ai coller le code ci dessous qui me permet de copier manuellement
et sur un double clic la date du jour dans chaque onglet et ce dès l'ouverture de mon fichier.

-Ce que je souhaiterai svp, c'est automatiser cette opération automatiquement dès l'ouverture du fichier.

-Je résume, Quand j'ouvre mon fichier je souhaiterai que la date du jour s'écrive automatiquement dans la cellule D9 colonne 4 dans ce format (CHANGER LE : 22/04/2020)
dans tous les onglets ici pour 30 onglets pour l'instant et qui n'ont pas le même nom.

Je vous remercie pour votre aide, bonne journée a vous.

Cdlt Duduleray 

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
           With Target
              If .Column = 4 Then Range("D9").Value = "CHANGER LE :  " & Date
           End With
                  Cancel = True
End Sub
A voir également:

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

a mettre dans ThisWorkbook 

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("D9").Value = "CHANGER LE :  " & Date
End Sub

1
Réponse 2 / 3
duduleray
 
Salut cs_Le Pivert.

Merci beaucoup pour le code, ça fonctionne mais par contre j'ai omis de dire SAUF le premier onglet, car il contient les coordonnées de ma boite avec logo siret tel etc etc

Donc tous les onglets sauf le premier, désoler pour cet oubli, merci.

Tu peux me faire svp la modification adéquat, merci bonne journée a toi

Cdlt Duduray
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
c'est tout simple 

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Feuil1" Then 'adapter nom de la feuille
Range("D9").Value = "CHANGER LE :  " & Date
End If
End Sub


Voilà

@+ Le Pivert
0
Réponse 3 / 3
duduleray
 
Re

Merci pour la modification cela fonctionne bien, merci également pour la rapidité, du coup mis tous mon fichier a jour.

Et merci pour ton aide et ton savoir partagé.

Bonnes vacances a toi et on prends soin de soi.

Bien cdlt Duduleray
0