Ouvrir une boîte de dialogue pour récupérer le lien d'une image sur Mac

Bonjour,

J'ai un code qui fonctionne très bien sous Windows et qui ne fonctionne pas sous Mac.

Private Sub CommandButton2_Click()

   ' Ouvrir une boîte de dialogue pour sélectionner une image
    Dim selectedImagePath As Variant
    selectedImagePath = Application.GetOpenFilename("Images (*.jpg;*.jpeg;*.gif;*.png),*.jpg;*.jpeg;*.gif;*.png", , "Sélectionner une image")

    ' Vérifier si un fichier a été sélectionné
    If selectedImagePath <> False Then
        ' Mettre le chemin de l'image dans la TextBox
        TextImg.Value = selectedImagePath
    Else
        MsgBox "Aucune image sélectionnée."
    End If

End Sub

Le bug est à l'ouverture de la boîte de dialogue.

 selectedImagePath = Application.GetOpenFilename("Images (*.jpg;*.jpeg;*.gif;*.png),*.jpg;*.jpeg;*.gif;*.png", , "Sélectionner une image")

J'ai essayé le code ci après sans succès

Private Sub CommandButton2_Click()
    ' Déclaration des variables
    Dim myFileDialog As FileDialog
    Dim selectedImagePath As Variant

    ' Créer une nouvelle boîte de dialogue de système de fichiers
    Set myFileDialog = Application.FileDialog(msoFileDialogFilePicker)

    ' Définir les filtres pour les types de fichiers acceptés
    myFileDialog.Filters.Add "Images", "*.jpg; *.jpeg; *.gif; *.png"

    ' Définir le titre de la boîte de dialogue
    myFileDialog.Title = "Sélectionner une image"

    ' Afficher la boîte de dialogue et obtenir le chemin du fichier sélectionné
    If myFileDialog.Show = -1 Then
        selectedImagePath = myFileDialog.SelectedItems(1)
        ' Mettre le chemin de l'image dans la TextBox
        TextImg.Value = selectedImagePath
    Else
        MsgBox "Aucune image sélectionnée."
    End If
End Sub

J'ai le bug sur la ligne :

myFileDialog.Filters.Add "Images", "*.jpg; *.jpeg; *.gif; *.png"••••ˇˇˇˇ

Auriez vous une idée??

Merci

Bonjour à tous,

Pour que cela fonctionne j'ai enlevé le filtre pour les images

 selectedImagePath = Application.GetOpenFilename(, , "Sélectionner une image")

Mais si quelqu'un à une idée pour savoir comment appliquer un filtre d'image sur Mac, je suis preneur!!

Bonjour

Sur MAC, vous ne savez pas filtrer les fichiers dans l'instruction Getopenfilename.
Je pense que la Sandbox apple y est pour quelque chose.
La solution que vous avez utilisée est la bonne

Si vous voulez absolument effectuer un filtre, il faut utiliser un Apple script en plus.

NB : Si vous utilisez MAC ce serait bien de mettre votre profil de compte à jour en y ajoutant MAC dans votre version excel. Cela aide toujours celui qui vous répond

Cordialement