XL 2019 Ligne de code

drolis

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 
Dernière édition:

bof

XLDnaute Occasionnel
bonjour,
Quelque chose comme ça?
VB:
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 931
Messages
2 093 721
Membres
105 796
dernier inscrit
Max...26