Bonjour,
Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me
placer sur un repertoire bien d'effini, est ce possible?
Merci pour vos suggestion.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir, Ceci, copié d'un échange de naguère : "=========================================================================" De : michdenis Groupes de discussion : microsoft.public.fr.excel Envoyé : vendredi 4 juin 2004 20:37 Objet : Re: boite de dialogue
Bonjour Srogeau,
Essaie ceci :
Function ChoixDossier(Chemin) Dim objShell, objFolder Msg = "Voici votre répertoire:" Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire. Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires 'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin) On Error Resume Next Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "" ChoixDossier = Chemin
End Function -----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents" on peut utiliser la procédure suivante .
------------------------------------------ Sub OuvrirRépertoire()
Dim CheminEtFichier As String CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub ------------------------------------------
Salutations!
"Srogeau" a écrit dans le message de news: bonjour a tous estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir qu'un seul repertoirepar exemple mes documents ou comment le faire autrement merci
"=========================================================================" peut il convenir, ou tout le moins constituer une piste ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"STEN83" a écrit dans le message de news:
Bonjour, Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me placer sur un repertoire bien d'effini, est ce possible? Merci pour vos suggestion. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonsoir,
Ceci, copié d'un échange de naguère :
"========================================================================="
De : michdenis
Groupes de discussion : microsoft.public.fr.excel
Envoyé : vendredi 4 juin 2004 20:37
Objet : Re: boite de dialogue
Bonjour Srogeau,
Essaie ceci :
Function ChoixDossier(Chemin)
Dim objShell, objFolder
Msg = "Voici votre répertoire:"
Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire.
Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires
'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
ChoixDossier = Chemin
End Function
-----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents"
on peut utiliser la procédure suivante .
------------------------------------------
Sub OuvrirRépertoire()
Dim CheminEtFichier As String
CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub
------------------------------------------
Salutations!
"Srogeau" <srogeau@aol.com> a écrit dans le message de
news:20040604122502.08258.00000436@mb-m12.aol.com...
bonjour a tous
estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir
qu'un seul repertoirepar exemple mes documents
ou comment le faire autrement
merci
"========================================================================="
peut il convenir, ou tout le moins constituer une piste ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
201E9015-0FBF-4AA1-9216-A0B6104FCBB1@microsoft.com...
Bonjour,
Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me
placer sur un repertoire bien d'effini, est ce possible?
Merci pour vos suggestion.
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Bonsoir, Ceci, copié d'un échange de naguère : "=========================================================================" De : michdenis Groupes de discussion : microsoft.public.fr.excel Envoyé : vendredi 4 juin 2004 20:37 Objet : Re: boite de dialogue
Bonjour Srogeau,
Essaie ceci :
Function ChoixDossier(Chemin) Dim objShell, objFolder Msg = "Voici votre répertoire:" Set objShell = CreateObject("Shell.Application")
'Cette ligne affiche répertoire et fichiers du répertoire. Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H4000, Chemin)
'Cette Ligne = pour afficher seulement les répertoires 'Set objFolder = objShell.BrowseForFolder(&H0&, Msg, &H1&, Chemin) On Error Resume Next Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "" ChoixDossier = Chemin
End Function -----------------------------------------
Et pour ouvrir le Browser ayant comme répertoire racine "Mes documents" on peut utiliser la procédure suivante .
------------------------------------------ Sub OuvrirRépertoire()
Dim CheminEtFichier As String CheminEtFichier = ChoixDossier("c:Mes documents")
End Sub ------------------------------------------
Salutations!
"Srogeau" a écrit dans le message de news: bonjour a tous estce que on peut utiliser la bte de dialogue (xldialogopen) mais ne voir qu'un seul repertoirepar exemple mes documents ou comment le faire autrement merci
"=========================================================================" peut il convenir, ou tout le moins constituer une piste ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"STEN83" a écrit dans le message de news:
Bonjour, Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me placer sur un repertoire bien d'effini, est ce possible? Merci pour vos suggestion. -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
anonymousA
bonsoir
dans cette proc, on n'utilise pas la boite de dialogue classique (Application.dialogs(.....))mais la méthode qui permet d'ouvrir fictivement une sorte de boite de dialogue. Ceci dit, on obtinet le même résultat si on travaille le résultat puisque qu'on peut affecter à une variable Application.GetOpenFilename
Sub trouver_chemin()
Application.GetOpenFilename 'affichage fenetre de recherche de chemin repcourant = CurDir ' repertoire courant sélectionné
End Sub
A+
Bonjour, Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me placer sur un repertoire bien d'effini, est ce possible? Merci pour vos suggestion.
bonsoir
dans cette proc, on n'utilise pas la boite de dialogue classique
(Application.dialogs(.....))mais la méthode qui permet d'ouvrir
fictivement une sorte de boite de dialogue.
Ceci dit, on obtinet le même résultat si on travaille le résultat
puisque qu'on peut affecter à une variable Application.GetOpenFilename
Sub trouver_chemin()
Application.GetOpenFilename 'affichage fenetre de recherche de chemin
repcourant = CurDir ' repertoire courant sélectionné
End Sub
A+
Bonjour,
Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me
placer sur un repertoire bien d'effini, est ce possible?
Merci pour vos suggestion.
dans cette proc, on n'utilise pas la boite de dialogue classique (Application.dialogs(.....))mais la méthode qui permet d'ouvrir fictivement une sorte de boite de dialogue. Ceci dit, on obtinet le même résultat si on travaille le résultat puisque qu'on peut affecter à une variable Application.GetOpenFilename
Sub trouver_chemin()
Application.GetOpenFilename 'affichage fenetre de recherche de chemin repcourant = CurDir ' repertoire courant sélectionné
End Sub
A+
Bonjour, Je voudrais à l'aide d'un module ouvrir la boite de dialogue fichier puis me placer sur un repertoire bien d'effini, est ce possible? Merci pour vos suggestion.
