Browsefolder

chemist

XLDnaute Junior
Bonjour j'utilise cette macro pour ouvrir des fichiers dans un répertoire, cependant j'aimerais que l'utilisateur puisse choisir son répertoire avec l'arborescence des fichiers. j'aimerais également que mon fichier finale soit enregistrer dans ce même répertoire

Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche

' .LookIn = GetDirectory
.LookIn = 'c:répertoire'
.Filename = '*.z' (format de mes fichier)
If .Execute > 0 Then
MsgBox .FoundFiles.Count & ' Fichier(s) a (ont) été trouvé(s).'
For I = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(I)
Cells.Select
Selection.Columns.AutoFit
ActiveWindow.LargeScroll Down:=4
Range('K142').Select
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub
 

MichelXld

XLDnaute Barbatruc
bonjour Chris

tu peux tester cette macro pour afficher la boite de dialogue 'Ouvrir'


Sub boiteDialogueOuvrir_Fichiers()
Dim Fichier As Variant

Fichier = Application.GetOpenFilename
If Fichier = False Then
MsgBox 'Opération Annulée'
Exit Sub
End If

'adapter la ligne ci dessous en fonction du type de fichier à ouvrir
ThisWorkbook.FollowHyperlink Fichier
End Sub



bonne journée
MichelXld
 

chris

XLDnaute Barbatruc
Merci Michel
Cependant ce n'était pas pour Excel mais pour Access mettre un bouton parcourir dans un formulaire.
Néanmoins ton code m'a mise sur la piste : comme il était question d'API, j'ai cherché de ce côté et trouvé un code qui va.
Il suffit de connaître le bon mot pour trouver alors que sans...
Donc merci encore.
 

Discussions similaires

Statistiques des forums

Discussions
312 920
Messages
2 093 640
Membres
105 771
dernier inscrit
lorachab