Yvon petit scarabbée du b
XLDnaute Nouveau
Bonsoir à tous,
Mon ptit souci, je souhaite effacer un fichier source après l'avoir renommer, le nom de fichier est récupéré dans une cellule.
Pas de problème pour l'enregistrement, la ou ça coince je n'arrive pas à détruire le fichier initial, en indiquant un nom variable dans le code, le nom étant récupéré via une cellule.
Par avance merci de votre aide
Private Sub CommandButton1_Click()
'Sauvegarde du fichier initial sous un autre nom '
ChDir "C:\Mes documents\Essai\"
ActiveWorkbook.SaveAs Filename:= _
"C" & " " & Sheets(1).Range("B6") & "XLS", FileFormat:=xlNormal _
, ReadOnlyRecommended:=False, _
CreateBackup:=False
'Destruction du fichier initial'
ChDir " "C:\Mes documents\Essai\"
Kill Filename:=Sheets(1).Range("B4") & "XLS"
End Sub
a++
Yvon
Mon ptit souci, je souhaite effacer un fichier source après l'avoir renommer, le nom de fichier est récupéré dans une cellule.
Pas de problème pour l'enregistrement, la ou ça coince je n'arrive pas à détruire le fichier initial, en indiquant un nom variable dans le code, le nom étant récupéré via une cellule.
Par avance merci de votre aide
Private Sub CommandButton1_Click()
'Sauvegarde du fichier initial sous un autre nom '
ChDir "C:\Mes documents\Essai\"
ActiveWorkbook.SaveAs Filename:= _
"C" & " " & Sheets(1).Range("B6") & "XLS", FileFormat:=xlNormal _
, ReadOnlyRecommended:=False, _
CreateBackup:=False
'Destruction du fichier initial'
ChDir " "C:\Mes documents\Essai\"
Kill Filename:=Sheets(1).Range("B4") & "XLS"
End Sub
a++
Yvon