Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Pb avec la fonction InStrRev

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Legelia

XLDnaute Nouveau
Bonjour,

Après plusieurs recherche sur le forum, et sans trouver de réponses, je me lance pour poser ma question.

Donc régulièrement je recupère un fichier "eXport"+la date du jour, au format XLS, j'ai une macro qui me permet d'ouvrir ce fichier, MAIS je n'arrive pas a recupere simplement le nom du fichier (qui est variable à cause de la date).

Voici mon code :
Dim Fichier As String 'nom complet du fichier
Dim Nom As String 'nom du fichier

Fichier = Application.GetOpenFilename("Fichier XLS (*.xls),*.xls")
Nom = Right(Fichier, InStrRev(Fichier, "\"))
'Test le nom du fichier
If Left(Nom, 6) = "eXport" And Right(Nom, 4) = ".xls" Then
instructions....
endif

Malheureusement la commande InStrRev, me renvoie n'importe quoi :
exemple :
pour Fichier = "V:\Demandes\eXport au 20100903.xls"
le Nom renvoyé est "0100903.xls"

Pour info je travail avec Excel 2003.

Merci pour votre aide
 
Trier par date Trier par votes
Re : Pb avec la fonction InStrRev

Bonsoir à tous

Une solution alternative avec Split
(que personnellement , je trouve plus simple
edition : mais moins simple que Dir effectivement (lol) )

Code: 
Sub a()
Dim fichier$, nomfichier
fichier = "V:\Demandes\eXport au 20100903.xls"
nomfichier = Split(fichier, "\")(UBound(Split(fichier, "\")))
MsgBox nomfichier
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Pb avec la fonction InStrRev

bonsoir,

Tu peux également utiliser :

Code: 
Dim Fichier As String
 
'Le fichier doit exister sur le PC ! sinon renvoie une chaine vide
Fichier = "C:\Documents and Settings\mimi\dossier\Fournisseurs.xls"
MsgBox Dir(Fichier)

bonne soirée
michel
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
377
patricktoulon
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
431
PHIL37
P
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
544
JJ69
J
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
350
CDALE
C
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
610
ChTi160
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
483
Phil69970
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
447
sylvanu
Méthodes pour ouvrir et afficher un lien, un fichier, ou un dossier
Réponses
0
Affichages
469
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
575
Lu76Fer
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
412
Phil69970
I
  • Question Question
Microsoft 365 Renommer des fichiers avec des caractères non reconnus
Réponses
10
Affichages
992
ivan27
I
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
445
mapomme
N
  • Question Question
XL 2021 Sauvegarde onglet
Réponses
10
Affichages
749
nano33320
N
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
1 K
jurassic pork
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
648
arnoldbrice19
A
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
521
AtTheOne
E
  • Résolu(e)
Microsoft 365 Enregistrement en PDF avec modification du nom en fonction du contenu de cellules
Réponses
2
Affichages
959
Elwer
E
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
824
oguruma
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…