Insertion automatique de la date

Marina01 · 5 Juillet 2010

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 · 5 Juillet 2010

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 · 5 Juillet 2010

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

Code:

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

Marina01 · 5 Juillet 2010

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.

Insertion automatique de la date

Marina01

XLDnaute Occasionnel

Marina01

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Marina01

XLDnaute Occasionnel

Discussions similaires

Insertion automatique de la date

Marina01

XLDnaute Occasionnel

Marina01

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Marina01

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency