Comparaison de nom de fichier

[boudboul]

Bonjour à tous! et merci de m'avoir ouvert les portes de votre forum.

Après une après midi complète je n'ai pas trouvé,
Je cherche a faire une chose simple dans ma macro : Vérifier lors l'ouverture d'un fichier texte (méthode avec GetOpenfilename) que le nom de fichier soit bien : PS??????.C??
L'extension de mes fichiers s'incremente...
j'ai déja mes variables as string : chemin & nomfichier
Mais je n'arrive pas à comparer avec un if, PS*.* ne fonctionne pas plus que PS??????.C??
Quelqu'un parmi vous maîtrise? 😕

 

[job75]

Re : Comparaison de nom de fichier

Bonjour boudboul, bienvenue sur XLD,

Si chemin est bien le chemin d'accès du dossier contenant le fichier recherché, essayez :

ChDir chemin
Fichier = Application.GetOpenFilename("Tous les fichiers, *")
If Fichier Like chemin & "\PS??????.C??" Then
NomFich = Dir(Fichier) 'nom sans chemin d'accès
'-----------
Else
'-----------
End If

Edition : apparemment vous recherchez les fichiers avec l'extension .C?? je suppose que c'est .CSV non ?
A+

 

[boudboul]

Re : Comparaison de nom de fichier

Merci de votre réponse Job75, en fait j'ai modifié votre code car j'ai déjà le nom mais ça ne marche pas, peut être serait ce plus parlant avec le code.
Pour répondre a ta question :
Le nom de fichier est la date du jour précèdé de PS, l'extension par en C00 puis s'incrémente dans la même journée jusqu'a C99
Par exemple PS081205.C00 pour le premier d'aujourd'hui.
Ce sont des fichiers texte (acquisition de données)
mais je ne veux pas que les utilisateurs ouvrent des fichier AT??????.C00, etc

Sub import()
Start:
filetoopen = Application _
    .GetOpenFilename("PS DATA (*.C*), *.C*")

Dim nom As String
nom = Mid(filetoopen, InStrRev(filetoopen, "\") + 1)

If nom Like "\PS??????.C??" Then
GoTo suite
Else
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "vous n'importez pas le bon type de fichier"
    Style = vbRetryCancel + vbCritical + vbDefaultButton1
    Title = "Incorrect file "
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbRetry Then
    MyString = "retry"
    GoTo Start
    Else
    MyString = "cancel"
    GoTo exitdoor
    End If
End If
suite:
'____________
exitdoor:
'____________

End Sub

 

[job75]

Re : Comparaison de nom de fichier

Bonsoir boudboul,

Avec votre code, la variable nom ne contient plus de \ donc il faut écrire ;

If nom Like "PS??????.C??" Then

A+