Afficher le nom du fichier ouvert dans une macro sous Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Afficher le nom du fichier ouvert dans une macro sous Excel

biere sans alcool

Bonjour à tous.
Je me résigne à demander de l'aide sur le forum car je crois avoir atteint les limites de ma compétence.

J'ai créé sur Excel une macro qui agit comme suit lorsque je clique sur un bouton.
- Ouverture de l'explorateur de Windows
- Je sélectionne le fichier que je désire
- Le lien du fichier est mis en lien hypertexte dans la cellule que j'ai préalablement sélectionnée

Tout va bien si ce n'est que je n'arrive absolument pas à enlever le chemin du lien affiché dans la cellule.
Je voudrais avoir le nom du fichier uniquement du style "truc.txt" au lieu d'avoir un "C:\répertoire\sous répetoire\truc.txt"

Merci à ceux qui pourront m'assister

PS : La macro que j'utilise ci-dessous

Citation :

Sub Ouverture()
fichier = Application.GetOpenFilename()
If fichier <> False Then
MsgBox "Insertion du fichier " & fichier, vbOKOnly, "Confirmation"
Else: MsgBox "Opération annulée ", vbOKOnly, "Confirmation": End
End If
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="file://" & fichier
End Sub

Message édité par biere sans alcool le 06-03-2010 à 01:46:18

Publicité

biere sans alcool

C'est bon j'ai trouvé tout seul.
Il suffisait de continuer la macro avec un remplacer.
Ca donne ça à la suite pour ceux qui seraient interessés

Citation :

Range("A1:AP411" ).Select
Selection.Replace What:=".txt", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="C:\répertoire\sous répetoire\", Replacement:="" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.SmallScroll ToRight:=28
Range("A1" ).Select

Merci quand même

SuppotDeSaTante

Aka dje69r

Hello, le souci c'est que si tu changes de dossier, ton code ne fonctionne plus...

Une petite routine qui pourrait te servir. Je pars du principe que le chemin complet du fichier est dans la variable fichier

Code :

Dim NomFichierLong As String, x As Integer
'pour avoir fichier comme variable de référence en fin de traitement
NomFichierLong = fichier
'On passe chaque caractere un par un en partant de la fin
For x = Len(NomFichierLong) To 1 Step -1
'Si le caractere sur lequel on est, est = à \
If Mid(NomFichierLong, x, 1) = "\" Then
'On prend les derniers caracteres jusqu'au \
fichier = Right(NomFichierLong, Len(NomFichierLong) - x)
'on sort de la boucle
Exit For
End If
Next x

---------------
Soyez malin, louez entre voisins !

biere sans alcool

Merci pour la précision

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Afficher le nom du fichier ouvert dans une macro sous Excel

Sujets relatifs
lecture de fichier binaire .odb du logiciel ABAQUS	Générer un PDF à partir d'une interface excel en ligne
Probleme variable fichier [ langage C ]	macro pour excel : application d'une augmentation annuelle en %
Formulaire et macro sous Word 2007	Macro Sauvegarde avec mot de passe
[RESOLU]Afficher le plus grand ID de plusieurs sous_id	Access - lire les propriétés du fichier .mdb (auteur, sujet....)
batch date de création de fichier
Plus de sujets relatifs à : Afficher le nom du fichier ouvert dans une macro sous Excel

Page générée en 0.059 secondes