Ouvrir un fichier en se positionnant sur la date systhéme

[eduraiss]

Bonjour le forum

Voici un fichier en pièce jointe pour une meilleure compréhension

A l'ouverture d'un fichier je voudrais me trouver sur la date du jour

Merci a vous

Cordialement,

 

[DoubleZero]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Bonjour, eduraiss, le Forum,

Un essai avec ce code, logé dans ThisWorkbook :

Option Explicit
Private Sub Workbook_Open()
On Error Resume Next
    With Worksheets("Feuil1")
        .Activate
        .Rows(4).Find(Date).Select
    End With
End Sub

A bientôt 🙂

 

[eduraiss]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re boujour

Bonjour DoubleZero

Merci cela fonctionne parfaitement

Cordialement,

 

[st007]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Bon çà y est je suis à la bourre
dans le même style que Doublezero
au choix dans un workbook open, sheet activate ou tout seul en module avec pourquoi pas un bouton
et j'avais nommé "plage"

Sub JOUR()
Dim dt As Range

Feuil1.Activate
Feuil1.Range("plage").Find(Date).Select

End Sub

sniffff.....

 

[DoubleZero]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re-bonjour,

Bon çà y est je suis à la bourre... sniffff.....

Mais non, pas "sniffff" ! Quelle importance ?

A bientôt 😀

 

[eduraiss]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Bonjour le forum

Un truc bizarre quand même si d'autres fichiers Excel sont ouvert, et que j'ouvre le fichier avec le code, cela ne fonctionne pas, ouverture tout seul pas de problème

Merci de votre aide

 

[DoubleZero]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Bonjour à toutes et à tous,

... si d'autres fichiers Excel sont ouvert, et que j'ouvre le fichier avec le code, cela ne fonctionne pas, ouverture tout seul pas de problème...

Je rencontre également ce problème, pas de façon systématique 😕, et ne sais le résoudre.

Une autre personne saura certainement quelle "recette" appliquer pour pallier l'inconvénient.

A bientôt 🙂

 

[Guest]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Bonjour,

Dans la macro de doubleZero (que je salue🙂) rajouter ThisWorkBook. :

Private Sub Workbook_Open()
    On Error Resume Next
    With ThisWorkbook
        If .Name <> ActiveWorkbook.Name Then .Activate
        With .Worksheets("Feuil1")
            .Activate
            .Rows(4).Find(Date).Select
        End With
    End With
End Sub

ThisWorkBook = le classeur qui contient la macro.
P.S. attention avec .FIND et les dates, faire une recherche sur le forum
A+

 

[DoubleZero]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re-bonjour,

Bonjour + grand MERCI, Hasco 😀 !

A bientôt 🙂🙂

 

[Guest]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re,

Hello 00 As-tu vu les dernières modifications de mon post précédent (activation du classeur avant activation feuille)?

A+

 

[DoubleZero]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re-bonjour,

... As-tu vu les dernières modifications...

Je n'avions point vu 😱

Re-grand MERCI, Hasco 😀 !

A bientôt 🙂🙂

 

[eduraiss]

Re : Ouvrir un fichier en se positionnant sur la date systhéme

Re
Merci Hasco et a doubleZero? cela fonctionne

Cordialement,