Macro pour déplacer ou supprimer fichier à nom variable

Fermé

skikilly2012 Messages postés 1 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 27 décembre 2012 - 27 déc. 2012 à 18:43
skikilly2012 - 29 déc. 2012 à 13:12

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:

Macro pour déplacer ou supprimer fichier à nom variable
Fichier rar - Guide
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Fichier host - Guide
Fichier impossible à supprimer - Guide

2 réponses

Réponse 1 / 2

Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 92
27 déc. 2012 à 19:22

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

Réponse 2 / 2

skikilly2012
29 déc. 2012 à 13:12

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

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

programme qui n'affiche pas le mot secret

comment donner les droits sur fichier partage

Discussions similaires

Newsletters