Browsefolder

[chemist]

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]

bonjour

cet exemple te permettra de choisir un repertoire

Lien supprimé


bonne journee
MichelXld

 

[chris]

Bonjour MichelXld
As-tu un code équivalent pour pointer sur un fichier ?
Style bouton parcourir que l'on trouve dans pas mal d'applis ?
Merci

 

[MichelXld]

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]

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.

 

[chemist]

merci ca fonctionne