recuperer chemin GetOpenFilename

[dth_2003]

Y a t il moyen de récuperer le chemin du fichier que l'on a ouvert par cette méthode:

ChDir "C:\Documents and Settings\DTH\Desktop"
Chemin = Application.GetOpenFilename("Fichier Texte(*.csv),*.csv")
If Chemin <> False Then Workbooks.Open Chemin

Je dois sauter de mon application excel a ce ficher a divers moment ? Comment faire? Merci d'avance encore.

dth

 

[didier]

Salut,

Simplement avec
Chemin = ActiveWorkbook.Path

si c'est pour récupérer le chemin du fichier ouvert ...

A+
Didier

 

[STéphane]

bonjour


msgbox chemin

ou après l'ouverture :
monclasseur=activeworkbook.name
workbooks(monchemin).activate

 

[dth_2003]

Merci, la première solution marche très bien ainsi que la deuxième mais avec (monclasseur) et non (monchemin).

Merci a tous les deux.

dth

 

[dth_2003]

C'est génial, merci Pascal.

J'ai un peu adapter vu que je ne connais pas au départ le nom du fichier, mais grace a un de mes ancien post sur plus ou moins le même sujet, j'y suis parvenu, voici le résultat au cas où :

ChDir "C:\Documents and Settings\DTH\Desktop"
chemin = Application.GetOpenFilename("Fichier Texte(*.csv),*.csv")
If chemin <> False Then Workbooks.Open chemin
monclasseur = ActiveWorkbook.Name
Workbooks.OpenText Filename:=monclasseur, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False


Enfin merci, tu m'évite plein de complication.

j'y retourne...

dth

 

[dth_2003]

Robot marche

 

[dth_2003]

Oups erreur.

 

[LaurentTBT]

Salut dth_2003

Sympa, ton robot,

Pour insérer directement une image sur un post, voici la syntaxe:

MAIS, l'adresse est forcément une adresse web. C'est impossible d'insérer une image à partir de ton disque dur.

Exemple:


Sinon, quelques explications pour la mise en forme d'un post sont disponibles sur le Wiki FAC forum XLD

Et enfin, il y a Lien supprimé de Vériland à télécharger.

Bonne soirée.
Laurent.

PS: j'espère que tous les liens vont fonctionner, sinon, j'aurai l'air bête!