Exporter un fichier vers un répertoire

Salut à tous,

pardon de revenir à nouveau, dans mon projet, après sélectionné un fichier, je souhaiterais qu'en cliquant sur le bouton Enregistrer, que le fichier sélectionné soit déplacé vers un répertoire que k'aurais définie.

Malheureusement, je ne trouve pas le code qui peut me permettre de déplacer le fichier vers mon répertoire créé au paravent.

Merci de m'aider

25pdf.xlsm (21.50 Ko)

Bonjour,

voici un exemple,

ajouter cette ligne à la macro CommandButton2_Click

MoveFiles Me.TextBox1
Sub MoveFiles(file)  'par exemple file = F:\ARCHIVES\2012-2013\RAPPORT DE FIN DE TRIMESTRE\2ème TRIMESTRE\LMAH2.pdf
    Dim FSO As Object
    Dim SourceFileName, DestinFileName As String

    x = Split(file, "\")
    fichier = x(UBound(x))  ' fichier sera égale à LMAH2.pdf

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = file
    DestinFileName = "F:\ARCHIVES\ARCHIVES\" & fichier

    FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName
End Sub

Merci,

le code est correct.

Merci

ps/

tu peux aussi faire une copie au lieu d'un déplacement,

en remplacant,

    FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

par

    FSO.CopyFile Source:=SourceFileName, Destination:=DestinFileName
Rechercher des sujets similaires à "exporter fichier repertoire"