ouverture boite fichier

M

myDearFriend

Guest

• 1 Septembre 2004

• #2

Bonsoir Ancat,


Dans l'évènement Click de ton bouton, tu peux mettre :

Application.Dialogs(xlDialogOpen).Show
pour afficher la boîte de dialogue "Ouvrir", pour chercher et ouvrir le fichier souhaité.

OU

Dim Fichier As String
Fichier = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls")
MsgBox Fichier
pour afficher la boîte, récupérer le chemin du fichier souhaité sans l'ouvrir.


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

A

ancat

Guest

• 1 Septembre 2004

• #3

MErci c'est juste ce qu'il me fallait c cool

Bye ANCAT

 

Vote positif 0 Vote négatif

A

ancat

Guest

• 1 Septembre 2004

• #4

Coucou c'est re moi

Comment puis-je faire pour recuperer juste le nom du fichier sans l'extension

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 1 Septembre 2004

• #5

Re- Ancat,


Si tu utilises Application.GetOpenFilename pour récupérer le chemin complet du fichier, la fonction suivante extrait le nom du fichier seul :

Private Function NomFichier(Chemin As Variant) As String
Dim i As Integer
Dim NbCar As Integer
NomFichier = Chemin
For i = Len(NomFichier) To 1 Step -1
If Mid(NomFichier, i, 1) = "\" Then
NbCar = i
Exit For
End If
Next i
NomFichier = Mid(NomFichier, NbCar + 1)
NomFichier = Left(NomFichier, Len(NomFichier) - 4)
End Function


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

A

ancat

Guest

• 1 Septembre 2004

• #6

Re bonsoir

C'est idiot mais je ne sais pas me servir d'une fonction

Comment dois-je l'appeler

Merci
Ancat

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 1 Septembre 2004

• #7

Sub MaProcedure ()
Dim Chemin As String
Chemin = Application.GetOpenFilename("Fichier Excel (*.xls),*.xls")
MsgBox "Le nom du fichier est : " & NomFichier(Chemin)
End Sub

Private Function NomFichier(Chemin As Variant) As String
Dim i As Integer
Dim NbCar As Integer
NomFichier = Chemin
For i = Len(NomFichier) To 1 Step -1
If Mid(NomFichier, i, 1) = "\" Then
NbCar = i
Exit For
End If
Next i
NomFichier = Mid(NomFichier, NbCar + 1)
NomFichier = Left(NomFichier, Len(NomFichier) - 4)
End Function



Didier_mDF

 

Vote positif 0 Vote négatif

A

ancat

Guest

• 2 Septembre 2004

• #8

Merci ton aide m'a été très utile
Bye Ancat

 

Vote positif 0 Vote négatif