Depannage sur fichier proposé sur ce site

[flyonets44]

Bonsoir à tous
Petit souci avec ce fichier récupéré sur le site
cette fonction plante et je ne sais pas pourquoi
Function FileExists(sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function
Merci d'avance
Cordialement
Flyonets

 

[Gelinotte]

Re : Depannage sur fichier proposé sur ce site

Bonjour!

Private Sub Lancer_la_Partie_Click()
'Créer un nouveau Classeur
Application.Workbooks.Add

'Vérifier s'il existe et agir en fonction
If FileExists("Tarot du " & Format(Date, "dddd d mmm yyyy") & ".xls"........

Sur ma machine, il fonctionne correctement (sans erreur). Je soupçonne le format de la date sur ta machine.

Vérifie au Panneau de configuration > Paramètres régionnaux (peux être écrit : Région et langue)

Si le format est différent de "dddd d mmm yyyy", configure le ainsi le temps de tester.


G