Ouverture boite de dialogue

[GENTILE]

Bonjour,

Je suis actuellement au travail sur un fichier de récupération de données.

Je sais comment ouvrir un fichier avec un chemin d'accé et le nom du fichier dans une macro, mais peut-on faire plus simple, dans le genre comme ouvrir une boite de dialogue, du style Fichier; Ouvrir; sélection du fichier ... et plop la macro continue après la sélection du fichier.

Merci par avance pour votre aide.

Damien

 

[Efgé]

Bonjour

Une proposition:

Sub Explorateur_fichier()
Dim sPath$
'Crée une boite de dialogue de sélection d'un fichier :
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    If .SelectedItems.Count = 1 Then sPath = .SelectedItems(1)
End With
End Sub

Cordialement

 

[GENTILE]

Bonsoir Efgė,

Tout d'abord merci pour ta réponse, à l'instant T n'ayant pas le fichier sous la main, je teste ta proposition, mais puis-je lancer une mise en forme directement après l'ouverture du fichier choisi? Et si oui je peux l'insérer entre le End With et le End Sub?

Un grand merci pour ton aide car dédier deux cases pour taper le chemin, le nom du fichier, pour que la macro sache où aller chercher, c'est moins pratique, risque copier coller, ...

Au plaisir de te relir.

 

[Efgé]

Bonjour

Sans un exemple réel de la macro, impossible de répondre. surtout pour :

Et si oui je peux l'insérer entre le End With et le End Sub?

Cordialement

 

[GENTILE]

Bonjour Efgé, j'y suis arrivé comme un grand.

Merci pour ta formule qui me permet de régler le même problème sur d'autres fichiers.

Au plaisir de te relire sur un autre poste.