Bonjour

J'aimerais permettre à un utilisateur d'excel, en cliquant sur un bouton (CommandButton4), de sélectionner une image sur son ordinateur et de l'enregistrer dans un dossier particulier (C:\Users\Roger\Desktop\Test)

Le problème de mon code est qu'il ne permet uniquement d'enregistrer, je n'ai pas l'étape qui consiste à sélectionner l'image en question

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub CommandButton4_Click()
Dim Picture1 As Variant
    Picture1 = Application.GetSaveAsFilename( _
        FileFilter:="Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP", _
        Title:="Sélectionnez une image à sauvegarder", _
        InitialFileName:="C:\Users\Roger\Desktop\Test")
End Sub
Merci