Copier-coller 1 photo dans un dossier et l'utiliser dans une macro

Bonjour,

Je suis novice en VBA, je cherche à améliorer la macro ci-dessous en commençant par :

1. couper-coller automatiquement la seule photo située dans le dossier : \Images\Pellicule vers le dossier de la macro ci-dessous : ThisWorkbook.Path & "\Images\"
2. continuer la suite de la macro ci-dessous au niveau du "1"

merci pour votre aide.

Private Sub Bt5_Click()
    Dim fd As Object, fichier$, nom$, rep, x, chemin$
    Set fd = Application.FileDialog(1)
    With fd
        fichier = ThisWorkbook.Path & "\Images\"
        .Title = "Choisissez le Fichier .jpg à Joindre au dossier"
        .InitialFileName = fichier
        .ButtonName = "Importer"
        .Filters.Clear
        .Filters.Add "Fichier Excel", "*.jpg"
        .AllowMultiSelect = False
1        If .Show <> 0 Then
            nom = .SelectedItems(1): chemin = nom
            x = Split(nom, "\")
            nom = x(UBound(x))
            If Selec.T22 <> "" Then
                rep = MsgBox("Attention Vous Allez Remplacer la photo actuelle,c'est bien ce que vous voulez?", vbCritical + vbYesNo, "Confirmation de Remplacement")
                If rep = vbNo Then Unload Me
                Selec.T22 = nom
                If Dir(chemin, vbDirectory) = "" Then GoTo 1
                Selec.Image1.Picture = LoadPicture(chemin)
            Else
                Selec.T22 = nom
                Selec.Image1.Picture = LoadPicture(chemin)
            End If
        Else
1           MsgBox "Vous n'avez séléctionné aucun fichier", , "Manque de Sélection!":
            Unload Me
        End If
    End With
End Sub

Bonjour,

Où se situe votre image ? Dans un userform, sur un onglet ? A quoi correspond Selec.T22 ?

Bonjour,

T22 est un TextBox,

l'image au départ se trouve dans le dossier de la caméra de windows : C:\Users\NOM-UTILISATEUR\Pictures\Camera Roll

A tester :