Copier une image d'un répertoire vers un autre

Re : Copier une image d'un répertoire vers un autre

bonjour

tu peux tester cette macro pour copier un fichier sur le disque



Bonne journée
MichelXld

Re : Copier une image d'un répertoire vers un autre

Bonsoir MichelXld, le forum,

J'ai l'erreur suivante en activant ton code : Erreur de compilation Type défini par l'utilisateur non-défini ???

Merci

Re : Copier une image d'un répertoire vers un autre

Salut le Forum

Cougar as-tu bien activé

La reference Microsoft scripting Runtime

Mytå

Re : Copier une image d'un répertoire vers un autre

Bonsoir à tous,

Oups, j'avais oublié de le cocher.

Malheureusement le code ne correspond pas à mes attentes. Ce que je voudrais c'est qu'un fenêtre s'ouvre (genre Explorateur de Windows) pour trouver le chemin de l'image, sélectionner l'image (c:\allo.jpg) et en cliquant sur OK le code copie dans le répertoire par défaut (ex. : Destination = "d:\Documents personnels\images"). Le résultat serait donc : "d:\Documents personnels\images\allo.jpg".

Comment écrire le code ?

Re : Copier une image d'un répertoire vers un autre

bonjour Cougar, bonjour cher Myta

Malheureusement le code ne correspond pas à mes attentes...

Cliquez pour agrandir...

Si tu fais juste des copier coller des procédures proposées et que tu ne cherches pas à les adapter, cela ne correspondra jamais à tes attentes...


Sub copierFichier()
'activer la reference Microsoft scripting Runtime
Dim Fso As Scripting.FileSystemObject
Dim Source As Variant
Dim Destination As String

'--- Sélection fichier ---
'Fichier = Application.GetOpenFilename ("Text Files (*.jpg), *.jpg")
Source = Application.GetOpenFilename
If Source = False Then Exit Sub
'-------------------------

Set Fso = CreateObject("Scripting.FileSystemObject")

'Adaptez le répertoire d destination
Destination = "C:\Documents and Settings\" & Dir(Source)

'False/True option pour écraser les anciens fichiers
Fso.CopyFile Source, Destination, False
MsgBox "Opération terminée"
End Sub



Bonne journée
MichelXld

Re : Copier une image d'un répertoire vers un autre

Bonjour tout le monde,

N'ayant jamais utilisé ces fonctions ...

Maintenant le tout fonctionne ... pour le moment. Je dois apporter des modifications.

Merci