Definir Chemin d'un dossier pour macro

jpb388

XLDnaute Accro

• 3 Décembre 2012

• #2

Re : Definir Chemin d'un dossier pour macro

Bonjour à tous
GetOpenFilemane devrait répondre a ton besoin, enfin je pense

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 3 Décembre 2012

• #3

Re : Definir Chemin d'un dossier pour macro

Bonjour,
la macro suivante travaillera sur tous les fichiers .xls du repertoire de ton choix.
Dis moi si ok
Fred

 

Pièces jointes

• essai.xls

  20 KB · Affichages: 116
• essai.xls

  20 KB · Affichages: 122
• essai.xls

  20 KB · Affichages: 128

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #4

Re : Definir Chemin d'un dossier pour macro

Bonjour,
La solution est dans ta question !

Code:

Sub test()
Dim Dossier As FileDialog
Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
Dossier.Show
If Dossier.SelectedItems.Count > 0 Then pfile = Dossier.SelectedItems(1) & "\"
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 3 Décembre 2012

• #5

Re : Definir Chemin d'un dossier pour macro

Merci a tous,

Je vais utiliser la proposition de Kjin.

fredl, votre macro bug a

Code:

Application.FileSearch

Merci a vous tous.

Cordialement,

Delux

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #6

Re : Definir Chemin d'un dossier pour macro

bonjour, FileSearch n'existe plus depuis la version 2007 A+ kjin

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #7

Re : Definir Chemin d'un dossier pour macro

bonjour,
FileSearch n'existe plus depuis la version 2007
A+
kjin

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 3 Décembre 2012

• #8

Re : Definir Chemin d'un dossier pour macro

Kjin,

Est-il possible de voir dans le dossier les fichiers excel presents sans devoir les selectionner?

Je m'explique, si on rajoute le code suivant, la boite de dialogue s'ouvre avec les fichiers excel que contient le dossier, mais il faut choisir le fichier excel et non plus le dossier.

Code:

msoFileDialogFilePicker

Cordialement,

Delux

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #9

Re : Definir Chemin d'un dossier pour macro

Bonjour,
Peux tu préciser ce que tu souhaites faire, ça n'est pas clair
A+
kjin

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 3 Décembre 2012

• #10

Re : Definir Chemin d'un dossier pour macro

Re,

En fait, quand on utilise le code suivant pour afficher les dossiers, les fichiers n'apparaissent pas

Code:

Application.FileDialog(msoFileDialogFolderPicker)

Si on rajoute le code qui suit, en plus de celui au dessus, on voit les dossiers et les noms des fichiers presents, mais on est desormais oblige de choisir le fichier et non plus le dossier

Code:

Application.FileDialog(msoFileDialogFolderPicker)

En gros, on obtiendra "C:\blablabla\blabla\blabla\blabla.xls"

Donc ma question est: Peut on afficher le contenu d'un dossier, mais ne selectionner que le dossier pour obtenir son chemin d'acces? ("C:\blablabla\blabla\blabla\").

Merci

Cordialement

Delux

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 3 Décembre 2012

• #11

Re : Definir Chemin d'un dossier pour macro

Bonsoir,

Delux à dit:

Donc ma question est: Peut on afficher le contenu d'un dossier, mais ne selectionner que le dossier pour obtenir son chemin d'acces? ("C:\blablabla\blabla\blabla\").

Cliquez pour agrandir...

Eh elle fait quoi la macro réponse 4 ?!
Quand tu es dans VBE, menu afficher/variables locales puis tu executes le code en appuyant sucesssivement sur la touches F8 et tu verras les valeurs que prennent tes variables, dans l'exemple pfile renvoie le dossier sélectionné
A+
kjin

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 3 Décembre 2012

• #12

Re : Definir Chemin d'un dossier pour macro

Bonsoir à tous,

Bien que la macro de kjin fonctionne très bien, en voici une autre :

VB:

Sub test()
Dim objShell As Object, objFolder As Object, oFolderItem As Object 'Pour répertoire
Dim Chemin As String, Nom As String, i&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
  On Error Resume Next
  Set oFolderItem = objFolder.Items.Item
  Chemin = oFolderItem.Path
  'Si pas de répertoire ou sous-répertoire sélectionné alors on sort...
  If Chemin = "" Then Exit Sub
End Sub

A+

Martial

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 4 Décembre 2012

• #13

Re : Definir Chemin d'un dossier pour macro

Bonjour Kjin, Martial,

Kjin,

En fait quand on utilise "Application.FileDialog(msoFileDialogFolderPicker)", on ne voit pas le contenu du dossier (ex: je ne vois pas mes fichier excel sauvegardes a l'interieur).

Pour afficher les fichiers excel il faut rajouter "Application.FileDialog(msoFileDialogFolderPicker)", mais cela oblige des lors a selectionner un fichier excel et non plus le dossier.

Donc je voulais savoir si il etait possible d'afficher ce que contient un dossier tout en ne selectionnant que le dossier pour que j'obtienne son chemin d'acces.

Merci d'avance

Cordialement,

Delux

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Décembre 2012

• #14

Re : Definir Chemin d'un dossier pour macro

Bonjour,

Code:

'Private Const BIF_NEWDIALOGSTYLE As Long = &H40
'Private Const BIF_NONEWFOLDERBUTTON As Long = &H200
'Private Const BIF_RETURNONLYFSDIRS As Long = &H1
'Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000

Sub RechercheDossier()
Dim oSh As Object, pFile As Object, pIni$
pIni = "x:\xxx\xxx" 'le répertoire initial
Set oSh = CreateObject("Shell.Application")
On Error Resume Next
Set pFile = oSh.BrowseForFolder(0&, "Sélectionnez un dossier", &H40 + &H200 + &H4000, pIni)
On Error GoTo 0
If Not pFile Is Nothing Then
    MsgBox pFile.Items.Item.Path & "\"
End If
End Sub

Edit : Désolé Yaloo 🙂, le nez dans le guidon...

A+
kjin

 

Dernière édition: 4 Décembre 2012

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 4 Décembre 2012

• #15

Re : Definir Chemin d'un dossier pour macro

Salut kjin, le forum,

@ kjin : pas de problème 😉, car toi tu réalises exactement la demande de Delux, afficher les fichiers des répertoires.

Par contre, il y a qq chose que je ne comprends pas c'est pIni = "x:\xxx\xxx" 'le répertoire initial et ... + &H200 + &H4000, pIni) avec ce code cela devrait ouvrir directement dans le répertoire pIni, chez moi ça ouvre sur mes documents. Sais-tu pourquoi ?

A+

Martial

 

Vote positif 0 Vote négatif