ouverture boite fichier

[ancat]

Bonjour

Avis aux meilleurs que moi (c'est pas difficile en VBA)

je voudrais lorsque j'appuie sur un bouton situé dans un tableau excek que la boite d'ouverture de fichier apparaisse pour que je puisse trouver un fichier et son chemin.

J'arrive a effectuer une ouverture sur un fichier précis mais pas à le rechercher. alors le bouton ne sert pas a grand chose


Merci de votre aide
Bye ANCAT

 

[myDearFriend]

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

 

[ancat]

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

Bye ANCAT

 

[ancat]

Coucou c'est re moi

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

 

[myDearFriend]

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

 

[ancat]

Re bonsoir

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

Comment dois-je l'appeler

Merci
Ancat

 

[myDearFriend]

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

 

[ancat]

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