Sujet Précédent Sujet Suivant

Macro pour déplacer ou supprimer fichier à nom variable

skikilly2012 Messages postés 1 Statut Membre -  
 skikilly2012 -
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



A voir également:

2 réponses

Réponse 1 / 2
Heliotte Messages postés 1561 Statut Membre 92
 
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
0
Réponse 2 / 2
skikilly2012
 
bonjour,
merci bcp, je l'essaie la semaine prochaine: je vs tiens au courant.
0