Selectionner la dernière lettre d'un fichier la plus élevée
Résolu
siamens_duj
Messages postés
192
Date d'inscription
Statut
Membre
Dernière intervention
-
siamens_duj -
siamens_duj -
A voir également:
- Trouvez le nom du fichier de cette image. les 6 dernières lettres vous donnent le nom de cette loutre. comment s'appelle-t-elle ?
- Fichier bin - Guide
- Fichier epub - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment changer le nom de son iphone - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
2 réponses
Salut,
Un commentaire : dans ton exemple, Ofile est toujours égal à Pfile
"Il vaut mieux savoir tout chercher que chercher à tout savoir."
Un commentaire : dans ton exemple, Ofile est toujours égal à Pfile
NomFichier = 'Classeur1.xlsx'
Ofile = right(NomFichier, 1)
' Ofile = 'x'
Pfile = left (Ofile, 1) 'sélectionne le dernier caractère sans l'extension
' Pfile = 'x'
"Il vaut mieux savoir tout chercher que chercher à tout savoir."
Bonjour,
Tu fais une boucle sur les codes Asc des lettres A à Z et à chaque fois tu vérifies si le fichier existe.
A tester :
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
Tu fais une boucle sur les codes Asc des lettres A à Z et à chaque fois tu vérifies si le fichier existe.
A tester :
Sub test()
Dim i As Integer, NomFic As String, Chemin As String, Extens As String, Carac As String
Chemin = "C:/Répertoire/blabla/" 'A ADAPTER
Extens = ".xlsx"
For i = 65 To 90
NomFic = Chemin & "UP-C-100089-1" & Chr(i) & Extens
If FichierExiste(NomFic) = False Then
If i = 65 Then
MsgBox "aucun fichier ne débute par UP-C-100089-1"
Exit For
Else
Carac = Chr(i - 1)
MsgBox Carac
Exit For
End If
Next i
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je
- Rectification de mon commentaire*
Bonjour et merci pour votre réponse.
Cependant cela ne fonctionne pas.
J'ai donc repris mon code avec A et B en dernière lettre.
J'ai remarqué que quoi que je fasse il sélectionne toujours que le B et quand je change mon code et que je met Z ou A et bien il n'en n'ouvre aucun !
NomDuFichier = fichier & ".xls"
NomFichier = NomDuFichier
C est pour ça que j'ai mis le commentaire ^^
Avez-vous testé ma méthode ci-dessous?
Merci pour votre réponse.