date non reconnue suivant version windows

[Evelynetfrancois]

bonjour ltoutes et tous
j'ai un petit soucis par rapport a cette macro
elle fonctionne parfaitement bien
mais sur une version plus ancienne (98)
les dates ne sont plus trouvees(reconnues)
auriez vous une solution a me proposer

merci d'avance et bonne soiree
EetF

Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
With Rows(1)
Set c = .Find(Date, LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Column
z = c.Address
Range(z).Activate
End If
End With
On Error GoTo Out:
ActiveWindow.ScrollColumn = i
Exit Sub
Out:
MsgBox 'Date ' & Format(Date, 'DD/MM/YYYY') & ' Non Trouvée'
End Sub

 

[Evelynet francois]

bonjour le forum
merci aux personnes qui se sont deja penchées sur mon probleme
manquerait il une info ?
je reste biensur a dispo pour plus d'explication
bonne journee a tous
E et F

 

[PascalXLD]

Bonjour

tu peux déjà essayer de mettre la date du jour dans une variable

perso je ferais ceci et en mode pas à pas je verrais déjà s'il reconnait ma date comme ceci ou si c'est le find qui débloque


Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
Dim MaDate as Date
MaDate=Date
With Rows(1)
Set c = .Find(MaDate, LookIn:=xlValues)

 

[PascalXLD]

OUPs je pense à autre chose

Est-ce que les propriétés de date de tes paramètres régionaux sont les mêmes sur les 2 PC ???

 

[Evelynetfrancois]

bonjour Pascal et merci
les parametres regionnaux sont identiques
j'ai bien sur essaye avec
les variables .....................rien !
mon programm fonctionne partout sauf sur 98
(j'ai plus de 95)
je vais faire d'autres essaye
merci pour tout meme si ca ne solutionne pas
le coeur y est !!!!
a plus
EetF

 

[PascalXLD]

Re

Tu dis tu as essayé avec les variables

Mais que te prend-il dans MaDate quand tu fais MaDate=Date ?? quel est le format ???

 

[evelynetfrancois]

bonsoir pascal


desole je ne comprend pas ta Question
je ne suis pas assez calle !!


E et F