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

Récupération de données

Adeus33

XLDnaute Occasionnel
Bonjour,

Alors, j'ai plusieurs petits problèmes :

Tout d'abord, j'aimerais récupérer le nom du fichier en cours par macro.

Ensuite, dans la case F10 par exemple est inscrit le chemin d'accès suivant :
D:\Disque dur\Documents\Test\Essai adeus33.xls

J'aimerais encore sous forme de macro récupéer
Essai adeus33.xls dans F11
Essai adeus33 dans F12

Voila le chemin d'accès est variable donc peut etre composé de plus ou moins de slash mais par contre il s'agira toujours de fichier excel.

J'y arrive avec des formules mais malheureusement j'ai besoin de le faire par macro.

J'espère que vous allez pouvoir m'aider.

Merci d'avance

Adeus33
 

Pierrot93

XLDnaute Barbatruc
Re : Récupération de données

Re

pour le nom de ton classeur en F11 :

Code:
Dim monclasseur() As String
monclasseur = Split(Range("F11").Value, "\")
monclasseur2 = monclasseur(UBound(monclasseur))

on doit pouvoir faire mieux.

@+
 

Pyrof

XLDnaute Occasionnel
Re : Récupération de données

Bonjour,

Voici une solution
 

Pièces jointes

  • Classeur1.xls
    21.5 KB · Affichages: 60
  • Classeur1.xls
    21.5 KB · Affichages: 61
  • Classeur1.xls
    21.5 KB · Affichages: 60

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…