Selection de fichier

[piep14]

Bonjour le forum,

Je n'arrive pas a trouver le code nécessaire pour laisser le choix a l'utilisateur de sélectionner son fichier. Dans la barre de statut de la fenetre ouvrir, est ce possible d'afficher un message du style : 'Sélectionner le fichier ...'

Pour le moment, j'ai défini l'ouverture du fichier par :

    Workbooks.OpenText Filename:= _
        'C:\\Documents and Settings\\Vincent\\Bureau\\Fichier1.TXT', Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True

Merci de votre aide

 

[lapix]

'------------------------------
'Ouvre la boite de dialogue OUVRIR pour selectionner un fichier xls
'------------------------------

Sub OuvreFichier() 'ouvre la boite de dialogue ouvrir et ouvre le fichier choisi
a = Application.GetOpenFilename('Fichiers XL, *.xls')
' b = MsgBox(a, , 'Test...')
Workbooks.Open FileName:=a
End Sub

 

[piep14]

Et tu aurais un exemple pour afficher une boite de dialogue avec un OUI et ANNULER !!!!

Merci sincèrement

 

[lapix]

Voilà ce que je connais :

a = MsgBox('ce que je veux dire', vbOKCancel, 'titre')

c'est OK et Cancel
sinon il y a OUI et NON
Il n'y a pas en standard OUI et CANCEL

ou alors tu defini une form utilisateur...

 

[piep14]

J'ai fait :

Sub Message()
     Dim Retour As Integer

     Retour = MsgBox('Leclerc.txt et Cora.txt sont-ils bien dans p:\\impr_virt ?', vbYesNo + vbInformation + vbDefaultButton1, 'Information !!')
     If Retour = vbYes Then
           Creation_Tampon
     Else
           ??????
     End If
End Sub

Je ne saisa pas quoi pas mettre a la place des ???? pour stopper tout et ne pas lancer ma fonction !!

Merci