Salut,
En parcourant un post (https://www.excel-downloads.com/threads/commandbutton.70691/, j'ai téléchargé le fichier de Jyll ci-joint. Il répond quasiment à un besoin que j'ai.
J'ai constaté que dans la variable "CeFichier", il stockait le nom et le chemin d'accès du fichier ouvert.
J'aurais besoin qu'il ne stocke que le nom du fichier. Quelqu'un pourrait-il me dire comment faire cela ?
De plus, est-il possible de prévoir une alternative si le chemin par défaut n'existe pas (p. ex. : c:\)
Merci d'avance et bon week-end.
Fab
NB : Au cas où, voici le code contenu dans le fichier :
Private Sub CommandButton1_Click()
' Définition du chemin de départ
ChDir "c:\Documents and settings\Utilisateur\bureau\Excel"
CeFichier = Application.GetOpenFilename("XLS Files (*.xls), *.xls")
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=CeFichier ', Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End If
End Sub
En parcourant un post (https://www.excel-downloads.com/threads/commandbutton.70691/, j'ai téléchargé le fichier de Jyll ci-joint. Il répond quasiment à un besoin que j'ai.
J'ai constaté que dans la variable "CeFichier", il stockait le nom et le chemin d'accès du fichier ouvert.
J'aurais besoin qu'il ne stocke que le nom du fichier. Quelqu'un pourrait-il me dire comment faire cela ?
De plus, est-il possible de prévoir une alternative si le chemin par défaut n'existe pas (p. ex. : c:\)
Merci d'avance et bon week-end.
Fab
NB : Au cas où, voici le code contenu dans le fichier :
Private Sub CommandButton1_Click()
' Définition du chemin de départ
ChDir "c:\Documents and settings\Utilisateur\bureau\Excel"
CeFichier = Application.GetOpenFilename("XLS Files (*.xls), *.xls")
If VarType(CeFichier) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=CeFichier ', Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=False, Other:=False, FieldInfo:=Array(1, 1)
End If
End Sub