Selectionner la dernière lettre d'un fichier la plus élevée
Résolu/Fermé
siamens_duj
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
28 janv. 2016 à 16:21
siamens_duj - 29 janv. 2016 à 12:35
siamens_duj - 29 janv. 2016 à 12:35
A voir également:
- Selectionner la dernière lettre d'un fichier la plus élevée
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier host - Guide
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Forcer la suppression d'un fichier - Guide
2 réponses
sipherion
Messages postés
1798
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
19 décembre 2016
291
Modifié par sipherion le 28/01/2016 à 16:31
Modifié par sipherion le 28/01/2016 à 16:31
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."
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 28/01/2016 à 16:55
Modifié par pijaku le 28/01/2016 à 16:55
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 !
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
siamens_duj
29 janv. 2016 à 10:57
29 janv. 2016 à 10:57
Avez-vous adapté le chemin et l'extension dans mon code?
28 janv. 2016 à 17:53
NomDuFichier = fichier & ".xls"
NomFichier = NomDuFichier
C est pour ça que j'ai mis le commentaire ^^
29 janv. 2016 à 08:19
Avez-vous testé ma méthode ci-dessous?
29 janv. 2016 à 09:46
Merci pour votre réponse.