XL 2013 Ouvrir un fichier et recuperer son chemin

[maval]

Bonjour

Je suis à la recherche d'un code pour ouvrir un fichier et récupérer sont chemin.

Je vous remercie d'avance

 

[chris]

Bonjour

De façon générale pour ouvrir un fichier il faut connaître son chemin : si tu réussis à l'ouvrir sans préciser son chemin c'est qu'il dans dans Curdir

 

[maval]

Salut Chris

Oui le chemin et J:\Films\Films\

 

[chris]

Re

Je ne comprends pas ce qui coince :

Workbooks.Open "J:\Films\Films\Nom_du_ficher.xlsx"

 

[maval]

Re

Oui pour ouvrir le dossier OK

Sub ouvrir()
Workbooks.Open "J:\Films\.avi"
End Sub

quand je sélection un film j'aimerai avoir le nom et l'adresse dans une cellule
@+

 

[chris]

Re

Tu ne peux ouvrir un film dans Excel, il faut invoquer un lecteur avi.

Peux-tu clairement expliquer ce que tu veux faire concrètement ?

 

[maval]

Re

A l'aide d'un bouton je ouvrir un dossier ou se trouve mes film soit "J:\Films\Films" de la je sélection un film et je veut que l'adresse du film sélectionner se trouve en "A1"
Voila

 

[JCGL]

Bonjour à tous,
Salut Chris,

Peux-tu essayer avec :

Sub Ouvrir()
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "J:\Films\Films\"
    .Show
End With
End Sub

Bise à Chris
A+ à tous

 

[maval]

Bonjour JC

Je te remercie sa ouvre bien le fichier jusqu'à la pas de problème mais sa me donne pas l'adresse du fichier sélectionner dans la cellule "A1"
@+

 

[chris]

Re
Bise à JCGL 🙂

Si j'ai bien compris

Mondossier = "J:\Films\Films\"
ChDrive "J:"
ChDir Mondossier
Active.sheet.Range("A1").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")

 

[maval]

Re Chris
J'ai un message d'erreur objet requis
@+

 

[chris]

Re

oups !
Remplace Active.sheet par Activesheet

 

[maval]

Re,

Ok nickel je te remercie et te souhaite une bonne soirée

 

[maval]

Bonjour,

Suite au code de Chris que je salut et remercie j'aimerai lui apporter une petite modification
Le code suivant

Mondossier = "J:\Films\Films\"
ChDrive "J:"
ChDir Mondossier
ActiveSheet.Range("H2").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")

Ce code était fait pour la cellule "H2" j'aimerai qu'il aille dans un contrôle ActiveX TextBox14 de ma feuille nommé "Données
Je vous remercie et vous souhaite une bonne journée

 

[chris]

Bonjour

Remplace
ActiveSheet.Range("H2").Value=
par
ActiveSheet.TextBox14.Text=