Discussion :

[isrdum]

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

[parmi]

Bonjour,

Utilise GetOpenFilename pour choisir le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Picture1 = Application.GetOpenFilename( _
        FileFilter:="Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP", _
        Title:="Sélectionnez une image à sauvegarder")

Ensuite tu pourras la sauvegarder

[isrdum]

Merci pour ta réponse rapide

Mais comment est-ce que je peux l'enregistrer par la suite?
Ce que j'obtient c'est le bouton "ouvrir" et non le bouton "enregistrer"
J'ai du mal à comprendre comment je peux à la fois "ouvrir" et "enregistrer" un fichier dans une seule commande???

[parmi]

En fait GetOpenFilename n'ouvre rien... eh oui...
Il te permet de trouver le nom et le chemin d'un fichier.

Essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
    Dim NomPicture As String
    Dim Picture1 As Variant
 
    Picture1 = Application.GetOpenFilename( _
        FileFilter:="Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP", _
        Title:="Sélectionnez une image à sauvegarder")
 
    NomPicture = Right(Picture1, Len(Picture1) - InStrRev(Picture1, "\"))  'trouve le nom du fichier
    FileCopy Picture1, "C:\Users\Roger\Desktop\Test\" & NomPicture  'Copie du fichier dans l'autre emplacement
End Sub

[isrdum]

Superbe!!! Tout juste superbe