XL 2019 Ligne de code

[drolis]

Bonsoir à tous

Je cherche une ligne de code qui permet de selectionner un autre emplacement exemple le disque D: merci d'avance pour les solutions

 

[Jacky67]

Bonsoir à tous

Je cherche une ligne de code qui permet de selectionner un autre emplacement exemple le disque D: merci d'avance pour les solutions

Bonjour,
Voir les instructions de:
ChDrive ==>Change le lecteur en cours.
ChDir ==>Change le répertoire courant.
Dir ==> lecteur+répertoires+fichier
Un petit coup de F1 sur l'une ou l'autre de ces instructions donne plus d'explications

 

[bof]

bonjour,
Quelque chose comme ça?

Sub SelectFolder()
Dim sFolder$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then sFolder = .SelectedItems(1)
    End With
    If sFolder <> "" Then MsgBox "Vous avez choisi : " & sFolder
End Sub

A+

 

[drolis]

Bonjour comment integrer la nouvelle ligne de codage ,dans le code actuel que j'ai recuperer sur le net


Sub chercherfichier()
Dim lefichier As FileDialog
Dim trouveNom As Variant

Set lefichier = Application.FileDialog(msoFileDialogFolderPicker)

With lefichier
If .Show <> -1 Then
GoTo vide
End If
Range("i3") = .SelectedItems(1)

End With
trouveNom = VBA.Split(lefichier.SelectedItems(1), "\")
Range("i2") = trouveNom(UBound(trouveNom))

Exit Sub
vide:

End Sub

Sub ouvrirfichier()
ActiveWorkbook.FollowHyperlink Address:=Range("i3")

End Sub