Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que
les fichiers dont le nom commence par un mot particulier et une extension
particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec
l'extention "td3"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
'-------------------- Sub OpenFenetre() Dim M As String M = "cl" ' Ouvre la fenêtre en affichant seulement 'les classeurs dont le nom débute par "cl" 'Choix du lecteur CurDir "c:" 'Pour sélectionner le répertoire à l'ouverture ChDir "c:" Application.Dialogs(xlDialogOpen).Show M & "*" & ".xls"
End Sub '--------------------
"Charly" a écrit dans le message de news: eY9bfs$ Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que les fichiers dont le nom commence par un mot particulier et une extension particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec l'extention "td3"
Merci pour votre aide Charles
'--------------------
Sub OpenFenetre()
Dim M As String
M = "cl" ' Ouvre la fenêtre en affichant seulement
'les classeurs dont le nom débute par "cl"
'Choix du lecteur
CurDir "c:"
'Pour sélectionner le répertoire à l'ouverture
ChDir "c:"
Application.Dialogs(xlDialogOpen).Show M & "*" & ".xls"
End Sub
'--------------------
"Charly" <no_spam.SchaussCharles@hotmail.com> a écrit dans le message de news:
eY9bfs$BHHA.3228@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que
les fichiers dont le nom commence par un mot particulier et une extension
particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec
l'extention "td3"
'-------------------- Sub OpenFenetre() Dim M As String M = "cl" ' Ouvre la fenêtre en affichant seulement 'les classeurs dont le nom débute par "cl" 'Choix du lecteur CurDir "c:" 'Pour sélectionner le répertoire à l'ouverture ChDir "c:" Application.Dialogs(xlDialogOpen).Show M & "*" & ".xls"
End Sub '--------------------
"Charly" a écrit dans le message de news: eY9bfs$ Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que les fichiers dont le nom commence par un mot particulier et une extension particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec l'extention "td3"
Merci pour votre aide Charles
micdub
Bonjour,
Voici une réponse possible à votre problème :
Sub demo()
Dim fichier, ret
' Afficher la boîte Fichier - Ouvrir ' Appliquer un filtre *.txt et un filtre *.xls ' fichier : reçoit le chemin complet ou False si clic sur le bouton Annuler fichier = Application.GetOpenFilename("fichier texte ou classeur,*.txt;*.xls")
If fichier <> False Then ' Un fichier a été choisi ou saisi ret = MsgBox("Ouverture du fichier(classeur) : " & fichier, vbYesNo) Select Case ret Case vbYes ' Ouverture du fichier Workbooks.Open fichier Case vbNo
End Select Else MsgBox "Vous avez cliqué sur le bouton Annuler" End If End Sub
Bien à vous - Micdub - Source : http://users.skynet.be/micdub/vba12.htm
Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que les fichiers dont le nom commence par un mot particulier et une extension particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec l'extention "td3"
Merci pour votre aide Charles
Bonjour,
Voici une réponse possible à votre problème :
Sub demo()
Dim fichier, ret
' Afficher la boîte Fichier - Ouvrir
' Appliquer un filtre *.txt et un filtre *.xls
' fichier : reçoit le chemin complet ou False si clic sur le bouton Annuler
fichier = Application.GetOpenFilename("fichier texte ou classeur,*.txt;*.xls")
If fichier <> False Then
' Un fichier a été choisi ou saisi
ret = MsgBox("Ouverture du fichier(classeur) : " & fichier, vbYesNo)
Select Case ret
Case vbYes
' Ouverture du fichier
Workbooks.Open fichier
Case vbNo
End Select
Else
MsgBox "Vous avez cliqué sur le bouton Annuler"
End If
End Sub
Bien à vous - Micdub - Source : http://users.skynet.be/micdub/vba12.htm
Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que
les fichiers dont le nom commence par un mot particulier et une extension
particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec
l'extention "td3"
' Afficher la boîte Fichier - Ouvrir ' Appliquer un filtre *.txt et un filtre *.xls ' fichier : reçoit le chemin complet ou False si clic sur le bouton Annuler fichier = Application.GetOpenFilename("fichier texte ou classeur,*.txt;*.xls")
If fichier <> False Then ' Un fichier a été choisi ou saisi ret = MsgBox("Ouverture du fichier(classeur) : " & fichier, vbYesNo) Select Case ret Case vbYes ' Ouverture du fichier Workbooks.Open fichier Case vbNo
End Select Else MsgBox "Vous avez cliqué sur le bouton Annuler" End If End Sub
Bien à vous - Micdub - Source : http://users.skynet.be/micdub/vba12.htm
Bonjour à tous,
Est-il possible, en utilisant la méthode GetOpenFilename, de n'afficher que les fichiers dont le nom commence par un mot particulier et une extension particulière?
Par exemple: tous les fichiers commençant par "balance_avec_tva" et avec l'extention "td3"
