Copier une image dans un dossier particulier

[MERLIN]

Bonjour à tous les lèves TRES tôt !

En VBA/

Est-il possible de coder l'ouverture d'une fenêtre qui demanderait d'aller chercher sur le disque dur une image pour l'enregistrer dans un dossier particulier... en gros faire une copie d'une image d'un dossier(ou d'une autre source ex. clé USB) dans un dossier pré déterminé dans le code.

Merci pour vos réponses.
Bon WEEK-end.

++

 

[MichelXld]

Re : Copier une image dans un dossier particulier

bonjour


Tu peux tester:

Option Explicit

Sub Test()
Dim Fichier As Variant

'Sélection fichier
Fichier = Application.GetOpenFilename("Fichiers images (*.jpg), *.jpg")
'on sort si aucune image n'est sélectionnée.
If Fichier = False Then Exit Sub

'Copie le fichier sélectionné dans le répertoire "C:\Dossier"
FileCopy Fichier, "C:\Dossier\" & Dir(Fichier)
MsgBox "Terminé"
End Sub

Bon après midi
MichelXld