macro pour déplacer ou supprimer fichier à nom variable Fermé

Question

Bonjour, 

Bonjour, 
j'ai un fichier que je sauvegarde avec une macro et son nom est la valeur d'une cellule "B2" de la feuille GENERALE du fichier ag12.
je voudrais sauvegarder ce fichier sous un autre dossier : ça j'y arrive mais je n'arrive pas à supprimer le fichier source.:

 Sub enregistrer_sous()
'
' enregistrer_sous Macro
' Macro enregistrée le 27/12/2012 par chaumoitre
'

'
    ChDir "C:\Users\chaumoitre\Documents\fiche_loc\en_location"
    Sheets("GENERALE").Select
    ActiveWorkbook.SaveAs Filename:=[b2].Value
        
End Sub.
le chemin destination est: "C:\Users\chaumoitre\Documents\fiche_loc\rendu_et_payé"
merci de votre aide


Configuration: Windows 7 / Internet Explorer 9.0

Configuration: Windows 7 / Internet Explorer 9.0

Heliotte · Answer

Essayer avec ce petit code:

Option Explicit
Public Sub SupprimeFichier()
    Dim NomFeuille As String, Supprime_Chemin As String, Supprime_Fichier As String
    Dim fs As Object, f As Object
    '
    NomFeuille = "Feuil1"
    Supprime_Chemin = "C:\Users\chaumoitre\Documents\fiche_loc\rendu_et_payé\"
    Supprime_Fichier = Worksheets(NomFeuille).Cells(1, 2).Value
    '
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(Supprime_Chemin & Supprime_Fichier) '= on veut supprimer le fichier c:\fichier.xls
    f.Delete
End Sub
Changer le nom de feuille s'il ne correspond pas !
Changer le nom de chemin s'il ne correspond pas !
Changer le nom du fichier s'il ne correspond pas !
Cells(1, 2) .. signifie ligne 1, colonne 2

skikilly2012 · Answer

bonjour,
merci bcp, je l'essaie la semaine prochaine: je vs tiens au courant.

Macro pour déplacer ou supprimer fichier à nom variable

2 réponses

Discussions similaires