XL 2013 Ouvrir un fichier et recuperer son chemin

chris

XLDnaute Barbatruc

• 22 Juillet 2016

• #2

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #3

Salut Chris

Oui le chemin et J:\Films\Films\

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juillet 2016

• #4

Re

Je ne comprends pas ce qui coince :

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #5

Re

Oui pour ouvrir le dossier OK

Code:

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
@+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juillet 2016

• #6

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 ?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Juillet 2016

• #8

Bonjour à tous,
Salut Chris,

Peux-tu essayer avec :

Code:

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

Bise à Chris
A+ à tous

 

Dernière édition: 22 Juillet 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #9

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"
@+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juillet 2016

• #10

Re
Bise à JCGL 🙂

Si j'ai bien compris

Code:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #11

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juillet 2016

• #12

Re

oups !
Remplace Active.sheet par Activesheet

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 22 Juillet 2016

• #13

Re,

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Juillet 2016

• #14

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Juillet 2016

• #15

Bonjour

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

 

Vote positif 0 Vote négatif