Insertion automatique de la date

[Marina01]

Bonjour forum,

Je cherche un moyen d'insérer une date automatiquement car la formule dispo est modifiable. En effet âprès avoir créer en feuil1 un certain de macro, je souhaite qu'à l ouverture du fichier la date s'insère automatiquement. Quel est la meilleure solution pour vous ? Je souhaiterais qu'il soit marqué en petit.

Je peux vous passer un fichier test si vous voulez voir a quel endroit je veux l inserer (Taille police etc...)


Merci d avance.

 

[Marina01]

Re : Insertion automatique de la date

Private Sub Workbook_Open()

Sheets(Feuil1).Range(G4) = Date

Application.DisplayFullScreen = True
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End With
Sheets(2).Select
UserForm1.Show





End Sub

Cela ne marche pas....

 

[tototiti2008]

Re : Insertion automatique de la date

Bonjour Marina, Bonjour le squale ,

Il faut des guillemets autour des noms de feuilles et des adresses de cellules

[B]Sheets("Feuil1").Range("G4").value = Date[/B]

 

[Marina01]

Re : Insertion automatique de la date

Je suis désolée, fais autre chose qui me pose problème, vais devoir créer une discussion car c'est assez compliqué et j'ai meme pas calculé ce que je faisais à propos de la date. Désolée.