Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/08/2007, 16h09   #1
Invité de passage
 
Inscription : août 2007
Messages : 16
Détails du profil
Informations forums :
Inscription : août 2007
Messages : 16
Points : 3
Points : 3
Par défaut supprimer le fichier dont la methode de suppression est contenu dans ce fichier

Bonjour, je suis tout debutant en VBA et j aurais une question a vous soumettre.
J ai une macro qui appelle un autre fichier excel (afin que l utilisateur puisse visionner certaines infs). Sur cette nouvelle feuille, l utilisateur a le choix entre plusieurs option et notament je voudrais qu il puisse supprimer le fichier qu il est en train de consulter.
J ai tenté de le coder mais j ai une erreur evidement qui me dit que je n ai pas le droit car je demande la suppression du fichier alors que celui ci est ouvert et que la procédure n est pas terminé.
Voyez vous un moyen pour supprimer le fichier pour lequel la methode de suppression est contenu dans ce fichier.
Si c pas clair, hesitez pas, quand on a le truc en tete c toujours evident pour soi meme mais jamais pour les autres.
Je suis ouvert a toute proposition
Merci d avance
tacos21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/08/2007, 17h40   #2
Rédacteur
 
Homme michel Tanguy
Inscription : août 2005
Messages : 3 317
Détails du profil
Informations personnelles :
Nom : Homme michel Tanguy
Localisation : France, Isère (Rhône Alpes)

Informations professionnelles :
Secteur : Industrie

Informations forums :
Inscription : août 2005
Messages : 3 317
Points : 10 706
Points : 10 706
bonsoir

Attention! à utiliser avec beaucoup de précautions ....


Code :
1
2
3
4
5
6
7
8
9
10
    'Le fichier est supposé déjà enregistré sur le pc
    '
    ' ! Attention: toutes vos données seront perdues !
    '
    With ThisWorkbook
        .Save
        .ChangeFileAccess Mode:=xlReadOnly
        Kill .FullName
        .Close SaveChanges:=False
    End With


michel
SilkyRoad est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/08/2007, 18h41   #3
Invité de passage
 
Inscription : août 2007
Messages : 16
Détails du profil
Informations forums :
Inscription : août 2007
Messages : 16
Points : 3
Points : 3
Merci, ca marche tout bien, c est parfait!!!!

Big bisous
tacos21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h38.


 
 
 
 
Partenaires

Hébergement Web