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

[Cougar]

Bonsoir le forum,

A partir d'un userform, en cliquant sur un bouton commande, l'usager pourra aller chercher une image et l'enregistrer dans un autre répertoire par défaut (pour que toutes les images soient au même endroit)

Donc, exemple, copie l'image en C: et l'enregister dans le répertoire par défaut d:\photo.

Comment écrire le code ?

Merci

 

[MichelXld]

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

bonjour

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

Sub copierFichier()
    'activer la reference Microsoft scripting Runtime
    Dim Fso As Scripting.FileSystemObject
    Dim Source As String, Destination As String
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    Source = "C:\monImage.gif"
    Destination = "C:\Documents and Settings\mimi\ma copie.gif"
    
    'False/True option pour écraser les fichiers
    Fso.CopyFile Source, Destination, False
End Sub

Bonne journée
MichelXld

 

[Cougar]

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

 

[Mytå]

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å

 

[Cougar]

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 ?

 

[MichelXld]

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

bonjour Cougar, bonjour cher Myta

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

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

 

[Cougar]

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