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
isabelle
bonjour Emcy,
Extensions, propriété est un Type de données en lecture seule.
Cette propriété renvoie une valeur de type String contenant les extensions qui déterminent quels fichiers sont affichés dans une boîte de dialogue de fichiers pour chaque objet Filter.
il faut utiliser .Filters.Add "Nom de la description"
With fg .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
pour connaitre les nom des différente Description disponnible :
Sub DescriptionDisponnible() Dim fdfs As FileDialogFilters Dim fdf As FileDialogFilter Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters For Each fdf In fdfs MsgBox "Description of filter: " & fdf.Description Next fdf End Sub
isabelle
bonjours,
pourquoi ça marche pas ?
Dim fd As FileDialog
Set fg = Application.FileDialog(msoFileDialogOpen)
With fg .Filters.Add.Extensions "ini" .Show End With
bonjour Emcy,
Extensions, propriété est un Type de données en lecture seule.
Cette propriété renvoie une valeur de type String contenant les
extensions qui déterminent quels fichiers sont affichés dans une boîte
de dialogue de fichiers pour chaque objet Filter.
il faut utiliser .Filters.Add "Nom de la description"
With fg
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
pour connaitre les nom des différente Description disponnible :
Sub DescriptionDisponnible()
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters
For Each fdf In fdfs
MsgBox "Description of filter: " & fdf.Description
Next fdf
End Sub
isabelle
bonjours,
pourquoi ça marche pas ?
Dim fd As FileDialog
Set fg = Application.FileDialog(msoFileDialogOpen)
With fg
.Filters.Add.Extensions "ini"
.Show
End With
Extensions, propriété est un Type de données en lecture seule.
Cette propriété renvoie une valeur de type String contenant les extensions qui déterminent quels fichiers sont affichés dans une boîte de dialogue de fichiers pour chaque objet Filter.
il faut utiliser .Filters.Add "Nom de la description"
With fg .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
pour connaitre les nom des différente Description disponnible :
Sub DescriptionDisponnible() Dim fdfs As FileDialogFilters Dim fdf As FileDialogFilter Set fdfs = Application.FileDialog(msoFileDialogSaveAs).Filters For Each fdf In fdfs MsgBox "Description of filter: " & fdf.Description Next fdf End Sub
isabelle
bonjours,
pourquoi ça marche pas ?
Dim fd As FileDialog
Set fg = Application.FileDialog(msoFileDialogOpen)
With fg .Filters.Add.Extensions "ini" .Show End With
