Transfert de fichier dans un folder en VBA

[mimy]

Bonjour à tous,

J'essaye de réaliser une macro pour transferer un document existant dans un fichier.
Exemple:
J ai un document "Doc 1" qui se trouve sur Mon bureau
J'ai fait une macro qui m a crée un folder dans Mes documents et je voudrais en meme temps, lors de la creation du folder, inserer Doc1 dans ce folder.

Comment fait-on pour transferer un fichier existant dans un folder?

Je vous remercie par avance.

 

[Compte Supprimé 979]

Re : Transfert de fichier dans un folder en VBA

Bonjour mimy

Tu peux le faire avec ce code

    ' On déplace le fichier    On Error Resume Next
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Fso.MoveFile ChoixFic, StrPath & "\" & NomFicFin
    If Err.Number <> 0 Then
      MsgBox "Impossible de déplacer :" & vbCr & ChoixFic & vbCr _
      & "vers :" & vbCr & StrPath & "\" & NomFicFin, vbCritical, "PROBLEME ..."
    End If
    Set Fso = Nothing

A adapter à tes besoins

A+

 

[mimy]

Re : Transfert de fichier dans un folder en VBA

Merci BrunoM45 pour ta réponse.

Si je veux juste copier/coller un document dans un folder, comment dois je faire??

Merci d avance

 

[Compte Supprimé 979]

Re : Transfert de fichier dans un folder en VBA

Re,

Il suffit de changer ".MoveFile" par ".CopyFile" ;-)