ouvrir fichier excel sous dossier!

[plasmadav]

Bonjour,

Ultra novice en la matiere, je fonctionne avec des bout de code trouvé sur des sites

je souhaite avoir un userform dans lequel je choisirai le dossier a ouvrir par exemple

j'ai ce bout de code dans lequelle j'ouvre les fichiers qui se trouvent dans le dossier "excel" mais mais si je veux ouvrir les fiches qui se trouvent sous "excel3"

je suis contraint de modifier chaque fois sous vba.

si possible de le faire avec un user form ou avoir un menu deroulant des dossiers dispo sous mes document

Sub ouvrir_les_fichiers

Dim F
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\My Documents\Excel"
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
Next F
End With
End sub

Merci pour votre aide

 

[Pierrot93]

Re : ouvrir fichier excel sous dossier!

Bonjour Plasmadav

essaye peut être le code ci dessous :

Sub test()
Dim x As String
x = Application.GetOpenFilename
If x <> "" Then Workbooks.Open x
End Sub

bon après midi
@+

 

[plasmadav]

Re : ouvrir fichier excel sous dossier!

Salut pierrot

je connais la fonction getopenfile, mais ne me convient pas.

dans ce cas je suis obliger de selectionner chaque fois les fichier a ouvrir.

je veux juste un userform qui me permet soit de taper le nom de dossier ou choisir un dossier se trouvant sous mes documents.

Un fois le dossier selectionné qu'il ouvre tous les xls qui sy trouve🙂

merci pour ton bout de code

 

[plasmadav]

Re : ouvrir fichier excel sous dossier!

Personne ne peux m'aider sur ce point ?

 

[Staple1600]

Re : ouvrir fichier excel sous dossier!

Bonjour


Sur le forum
https://www.excel-downloads.com/threads/ouverture-fermeture-de-dossiers.76558/


extrait de :https://www.excel-downloads.com/threads/selection-dossier-par-defaut.74039/

'auteur: Catrice
Public MaVar
Sub Macro1()
'Mémorise le dossier par defaut que la machine au lancement de l'appli
MaVar = Application.DefaultFilePath
'Positionne sur le Dossier par défaut Perso
Application.DefaultFilePath = "C:\Mondossier"
'
'Ici le code
'
'Repositionne sur le dossier par defaut du debut à la fin du Prog
Application.DefaultFilePath = MaVar
End Sub

Ailleurs sur le net
Plusieurs procédures sur l'ouverture de fichiers ici
Ce site n'existe plus

 

[myDearFriend!]

Re : ouvrir fichier excel sous dossier!

Bonjour plasmadav, Pierrot93, Staple1600,

Ci-dessous, un code qui devrait normalement répondre à ton attente :

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Dossier [COLOR=NAVY]As Object[/COLOR], Fichier [COLOR=NAVY]As Object
Dim[/COLOR] Chemin [COLOR=NAVY]As String
    With[/COLOR] Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Choix Dossier"
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "Choisissez le dossier et cliquez sur le bouton ""Choix Dossier"""
        .Show
        [COLOR=NAVY]If[/COLOR] .SelectedItems.Count > 0 [COLOR=NAVY]Then[/COLOR]
            Chemin = .SelectedItems(1) & "\"
            [COLOR=NAVY]Set[/COLOR] Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
            [COLOR=NAVY]For Each[/COLOR] Fichier [COLOR=NAVY]In[/COLOR] Dossier.Files
                [COLOR=NAVY]If[/COLOR] Right(Fichier.Name, 3) = "xls" [COLOR=NAVY]Then[/COLOR] Workbooks.[COLOR=NAVY]Open[/COLOR] Fichier
            [COLOR=NAVY]Next[/COLOR] Fichier
        [COLOR=NAVY]End If
    End With
End Sub[/COLOR][/SIZE]

Sauf erreur, ce code ne fonctionnera pas pour les versions Excel antérieures à 2002.

Cordialement,

 

[Staple1600]

Re : ouvrir fichier excel sous dossier!

Re

->myDearFriend!

Meme pas avec Excel2000 ? (snif 🙁 )

 

[myDearFriend!]

Re : ouvrir fichier excel sous dossier!

Re,

A tester...

Même si FileDialog est utilisable dans les versions précédentes pour récupérer le chemin d'un fichier, il me semble qu'on ne peut utiliser cet objet pour récupérer le chemin d'un dossier qu'à partir d'Excel 2002 (XP).

Cordialement,

 

[plasmadav]

Re : ouvrir fichier excel sous dossier!

My diear friend 😛

je tiens a te remercier infiniement tu as répondu a ma recherche... c parfait😀 😀 😀

je vais continuer dans ce sens

merci a tous ceux qui m'on aider dans cet exercice