selection d'une partie du chemin d'acces

[Xavier]

Bonjour à tous,

Une petite question comme pause digestive ....

Est il possible de sélectionner la fin d'un chemin d'acces ... je m'explique

j'ai selectionné différents fichiers par leur chemin d'acces et j'aimerais bien les ouvrir et pouvoir y travailler pour faire des copier coller...

donc j'ai pour l'instant
textbox1.value qui correspond au chemin d'acces global du type c:\data\ess\fichier.xls et j'aimerais pouvoir placer dans windows().Activate mon fichier soit ca devrait donner windows(fichier).Activate. Inutile de souligner le coté général du programme vu que je ne connais pas les noms des fichiers ni leur chemin d'acces

Merci bcp et bonne aprem
Xa

 

[Zon]

Salut ,

Colles cette fonction dans un module standard ou dans le module de ton USF:

Function NomFichier$(ByVal Ch$)'Zon
'Retrouver le nom de fichier à partir de son chemin complet
While InStr(Ch, "\") > 0
Ch = Mid(Ch, InStr(Ch, "\") + 1)
Wend
NomFichier = Ch
End Function

Ensuite, pour activer le fichier (qui doit être ouvert) :

On error resume next
windows(nomfichier(textbox1.value)).activate
if err<>0 then msgbox nomfichier & " n'est pas ouvert"

A+++

Lien supprimé

 

[michel]

bonjour Xavier

dans ton message tu parles d'ouvrir un classeur alors que la methode Activate ( si je ne dis pas de betises ) permet seulement d'afficher au premier plan un classeur deja ouvert
donc dans le doute j'ai préparé les deux possibilités .
( dans l'exemple TextBox1="c:\data\ess\fichier.xls " )

pour activer un classeur ouvert :

Sub ActiverClasseur()
Dim Fichier As String
Dim i As Byte, Longueur As Byte

Fichier = TextBox1

Longueur = Len(Fichier)
i = Longueur
While Mid(Fichier, i, 1) <> "\"
i = i - 1
Wend'pour supprimer le chemin et ne garder que le nom du classeur

Workbooks(Mid(Fichier, i + 1, Longueur - i)).Activate
End Sub


Deux methodes pour ouvrir un classeur :

Sub OuvrirClasseur1()
Dim Fichier As String
Fichier = TextBox1
ThisWorkbook.FollowHyperlink Fichier
End Sub

Sub OuvrirClasseur2()
Dim Fichier As String
Fichier = TextBox1
Workbooks.Open Filename:=Fichier
End Sub


j'espere que cela pourra t'aider


bonne soiree
MichelXld

 

[Zon]

Re et salut Michel,

J'oubliais les guillemets,

windows(" & nomfichier(textbox1.value) & ").activate .

Bonne idée Michel si le fichier n'est pas ouvert .

A+++

 

[michel]

bonjour Zon

…ouppss...excuses moi de ne pas t'avoir salué
nos messages se sont croisés...


très bonne soiree à toi
MichelXld

 

[michel]

rebonjour

une petite erreur de ma part : s'il s'agit d'un USF , il ne faut pas utiliser les Sub mais rattacher les macros au UserForm....


bonne soiree
MichelXld

 

[Xavier]

Merci d'avance pour vos réponses ... maintenant je vais essayer de les comprendre ... dur dur ce matin