Afficher ds usf arborescence "mes documents"

M

MichelXld

XLDnaute Barbatruc

• 11 Décembre 2005

• #2

bonjour Christian

tu peux tester cette macro pour que la boite de dialogue 'Ouvrir' s'affiche directement sur le repertoire 'Mes documents'


Private Sub CommandButton1_Click()
'testé avec Excel2002 & WinXp
Const Cible = &H5 'Mes Documents
Dim objShell As Object, objFolder As Object, objFolderItem As Object
Dim Chemin As String

Set objShell = CreateObject('Shell.Application')
Set objFolder = objShell.Namespace(Cible)
Set objFolderItem = objFolder.Self

Chemin = objFolderItem.Path 'chemin 'mes documents'

Application.Dialogs(xlDialogOpen).Show Chemin
End Sub



bonne journée
MichelXld

 

Vote positif 0 Vote négatif

christian.bedere

XLDnaute Occasionnel

• 11 Décembre 2005

• #3

Salut Michel et merci pour ta fidélité

Cool! çà marche bien , maintenant est-il possible de remplacer 'mes documents' par 'centre de mer andernos\\inventaires 2006\\' afin de diriger automatiquement l'ouverture ds le dossier désiré.
Merci pour ton aide
Bon dimanche

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 11 Décembre 2005

• #4

bonsoir Christian

tu peux tester

Private Sub CommandButton1_Click()
Dim Chemin As String

Chemin = 'C:\\\\\\\\centre de mer andernos\\\\\\\\inventaires 2006'

Application.Dialogs(xlDialogOpen).Show Chemin
End Sub



bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

christian.bedere

XLDnaute Occasionnel

• 12 Décembre 2005

• #5

Salut Michel!!

J'ai essayé ton code mais cela ne fonctionne pas.
En intégrant dans chemin ce que tu m'as donné, il ouvre 'mes documents', et affiche ds la textbox 'nom de fichier' le fichier 'inventaires 2006'.

Y aurait-il ds le coin de ton cerveau une autre idée géniale qui pourait m'aider ??

Merci bcp
Christian

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 12 Décembre 2005

• #6

Re:Afficher ds usf arborescence \"mes documents\"

bonjour

je ne sais pas quoi te dire puisque chez moi cela fonctionne et je ne comprend pas ce que tu veux dire par

et affiche ds la textbox'nom de fichier' le fichier 'inventaires 2006'.

Cliquez pour agrandir...

as tu indiqué le bon chemin , car dans mon exemple 'inventaires 2006' correspond à un nom de repertoire et pas à un nom de fichier


tu peux tester cette autre adaptation

Private Sub CommandButton1_Click()
ChDir ('C:\\\\\\\\monRepertoire')
Application.Dialogs(xlDialogOpen).Show
End Sub

si le repertoire est sur un autre lecteur que C ( par exemple D)

Private Sub CommandButton1_Click()
ChDrive 'D'
ChDir ('D:\\\\\\\\monRepertoire')
Application.Dialogs(xlDialogOpen).Show
End Sub



bon apres midi
MichelXld

Message édité par: michelxld, à: 12/12/2005 16:22

 

Vote positif 0 Vote négatif

C

christian.bedere

Guest

• 14 Décembre 2005

• #7

Salut Michel

Et encore merci
Cela ne fonctionne pas mais tant pis,ce n'est pas bien grâve, c'est très sympa de m'avoir aidé !

Je ferai çà différement!
A bientôt

 

Vote positif 0 Vote négatif