Bonjour,
Je souhaiterai pouvoir avec une macro présente d'un classeur xls pouvoir sélectionner n'importe quel fichier et le déplacer dans un dossier. Tous cela à travers des boites de dialogue type "ouvrir un fichier" "enregistrer sous".
J'ai déjà construit ça mais le problème se trouve pour l'enregistrement. Comme je suis dans un classeurs xls, je ne parviens pas à enregistrer autre chose que ce classeurs xls (je souhaite enregistrer "Source"). Voici mon code:
Private Sub CommandButton1_Click()
Dim Source
Dim Destin
Source = Application.GetOpenFilename()
MsgBox Source
Destin = Application.GetSaveAsFilename()
Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")
If (objOFS.FileExists(Source)) Then
objOFS.moveFile Source, Destin
End If
Set objOFS = Nothing
End Sub
Je vous remercie pour votre aide.
Jarod
Je souhaiterai pouvoir avec une macro présente d'un classeur xls pouvoir sélectionner n'importe quel fichier et le déplacer dans un dossier. Tous cela à travers des boites de dialogue type "ouvrir un fichier" "enregistrer sous".
J'ai déjà construit ça mais le problème se trouve pour l'enregistrement. Comme je suis dans un classeurs xls, je ne parviens pas à enregistrer autre chose que ce classeurs xls (je souhaite enregistrer "Source"). Voici mon code:
Private Sub CommandButton1_Click()
Dim Source
Dim Destin
Source = Application.GetOpenFilename()
MsgBox Source
Destin = Application.GetSaveAsFilename()
Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")
If (objOFS.FileExists(Source)) Then
objOFS.moveFile Source, Destin
End If
Set objOFS = Nothing
End Sub
Je vous remercie pour votre aide.
Jarod