Copier une image d'un dossier la collé vers un autre

Bonjour

J'ai créer un formulaire pour demander des actions de maintenance.

Lorsque l'utilisateur enregistre sa demande, un dossier lier à cette demande est automatiquement créer un numéro de dossier est associé au numéro de la demande.

Il est ensuite demander à l'utilisateur si il veut insérer une photo dans ce dossier fraichement créé.

si il clique sur non => ok le formulaire se ferme

si il clique sur oui, j'aimerais :

• Que l'exploreur de fichier s'ouvre => ça ok ça marche
• que je puisse sélectionner une image par un click
• copier cette image
• la collé dans le fichier créé en lien avec l'action rentrée

plus habitué du PHP, je ne sait pas si c'est réalisable en Excel VBA

MErci beaucoup pour votre aide

Bonjour ctof,

Un mini exemple de ton fichier pour être sûre de bien comprendre ce que tu veux.

Merci.

A bientôt.

Merci Patty5046

ci dessous un résumer de mon code

'*******************formulaire************************
'declaration variable
Dim numereo As Integer
Dim CheminDossier As String

'mise de la date à l'ouverture

Private Sub UserForm_Initialize()
TxtDate.Value = DateValue(Date)
End Sub
' enregistrement des données dans un tableau
Private Sub BtnEnregistrer_Click()
' selection de la feuille
Sheets("action").Activate
' recuperer le numero de la derniere action
numero = Range("A2").Value
'inserer une ligne et selectione premiere cllule vide
Rows("2:2").Select
Range("2:2").Insert CopyOrigin:=xlFormatFromRightOrBelow
Range("A2").Select
'inserer les données dans le tableau
Range("A2") = numero + 1 ' incremente le numero d'action
Range("B2") = TxtDate ' entre la date
Range("C2") = TxtAction 'entre l'action
'*************************CREER UN DOSSIER AVEC LE NUMERO DE L'ACTION*************
'affecter le chemin à la variable
CheminDossier = "C:\Users\cculosse\Desktop\test\action & numero +1"
'verifier l'existence du dossier
If Dir(CheminDossier, vbDirectory) <> vbNullString Then
'dossier existe on met un msg
Else
'dossier n'existe pas le creer
MkDir (CheminDossier)
End If

'fermer et poser une question
Unload Me
FrmQuestion.Show
End Sub
'=====================================================================================
' VERS LE DEUXIEME USERFORM (CODE)
'=====================================================================================

Private Sub BtnNon_Click()
Unload Me
End Sub

Private Sub BtnOui_Click()
'ouvrir l'explorateur window
Shell Environ("WINDIR") & "\explorer.exe"
End Sub

'***************c'est la que je calle****************************************
'je voudrai aprés avoir selectioner une photo cliquer dessus et q'ensuite elle aille se mettre dans le dossier
'creer portant le numero de l'action creer
' eventuelement ensuite proposer d'entrer une autre photo

Merci beaucoup pour vos reponses

Bonjour ctof , bonjour à tous

Il sera plus facile pour moi de t'aider avec un petit extrait de ton fichier.

J'ai déjà commencé un peu de code, mais je veux essayer de te donner quelque chose d'exploitable

J'attends ton retour dès que tu peux.

A bientôt

Re

Déjà quelque chose comme ça pour copier l'image choisie dans ton dossier

Private Sub BtnOui_Click()
CheminDossier = "C:\Users\cculosse\Desktop\test\action & numero +1"
With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        .Filters.Add "Fichiers images", "*.jpg", 1 'jpg ou autres à toi de choisir tu peux mettre plusieurs extensions
        .Title = "Choisir une image"
        .AllowMultiSelect = False
        .InitialFileName = CheminDossier
        If .Show = True Then
            Choix = .SelectedItems(1)
        End If
    End With

    If Choix = "" Then Exit Sub 'Pas d'image choisie
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Copie de l'image
Call objFSO.CopyFile(Choix, CheminDossier, True)
End Sub

A tester