Sujet Précédent Sujet Suivant

Supprimer un fichier excel contenant une vari

manzo -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour à tous,

J'ai créé un petit programme permettant d'enregistrer une feuille excel dans un autre fichier excel situé dans un dossier avec pour nom de fichier une variable. voici le code ci-dessous :

Sheets("bon de commande").Select
Sheets("bon de commande").Copy

nom = InputBox("saisir le nom du fichier")

ActiveWorkbook.SaveAs Filename:= "C:\Bon de Commande Jo\Dossier PO Séries\" & nom, FileFormat:=xlNormal, Password:="", WriteResPassword:=""

Ensuite je voudrais supprimer le fichier Excel qui s'ouvre à l'écran automatiquement car le programme précédent l'a enregistré dans un dossier.
Dons j'ai tapé plusieurs code mais sans réussite, c'est tout con mais bon je bug ^^.
le code pour supprimer le fichier avec cette variable :

Windows(" & nom.xls & ").Activate
ActiveWindow.Close

Si quelqu'un peut m'aider, merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 770
 
Si tu veux :
- copier la feuille bon de commande dans un nouveau classeur
- enregistrer ce nouveau classeur sous
- fermer ce nouveau classeur (n'oublie pas que c'est le classeur "actif"!!!!) : 

Sheets("bon de commande").Copy 
nom = InputBox("saisir le nom du fichier") 
ActiveWorkbook.SaveAs Filename:= "C:\Bon de Commande Jo\Dossier PO Séries\" & nom
ActiveWorkBook.Close
1
Réponse 2 / 2
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 770
 
Salut,
Pas tout compris... supprimer, fermer...
Essaie :
WorkBooks(nom).Close
0
manzo
 
Désolé ^^ c'est vrai que c'est pas très bien expliqué.
Donc une fois que j'ai enregistré le fichier excel renommé " xxx" à l'aide de la variable "nom" dans le dossier C:\ ..., il me faudrait qu'automatiquement je puisse la supprimer sans avoir à passer par clik sur l'onflet, fermer, etc vu qu'il y a une multitude de fichier excel à faire à la suite.

J'ai essayé avec workbooks ça ne marche pas.

merci de ton aide
0