Fermer un fichier 2 à partir d'un fichier 1
Pitichou
Messages postés
18
Statut
Membre
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,
j'ai un fichier excel modèle que j'utilise pour créer des avis de virements que j'envoie à mes fournisseurs.
Ce fichier modèle a une macro qui
1- enregistre sous le fichier avec le nom Avis de virement XXXXX (ce nom vient d'une cellule)
2- imprime le nouveau fichier au format PDF
3- rouvre le fichier modèle
4- et j'e souhaiterais qu'elle ferme le fichier Avis de virements XXXX, pour je ne sais pas comment faire dans la mesure où ce nom n'est jamais le même.
Pour cela je pensais utiliser l'instruction
Windows("Avis de Virement 2000002251.xls").Activate Le nom du fichier peut être extrait d'une cellule
ActiveWorkbook.Close SaveChanges:=True
il me faudrait un coup de main sur cela
Merci
j'ai un fichier excel modèle que j'utilise pour créer des avis de virements que j'envoie à mes fournisseurs.
Ce fichier modèle a une macro qui
1- enregistre sous le fichier avec le nom Avis de virement XXXXX (ce nom vient d'une cellule)
2- imprime le nouveau fichier au format PDF
3- rouvre le fichier modèle
4- et j'e souhaiterais qu'elle ferme le fichier Avis de virements XXXX, pour je ne sais pas comment faire dans la mesure où ce nom n'est jamais le même.
Pour cela je pensais utiliser l'instruction
Windows("Avis de Virement 2000002251.xls").Activate Le nom du fichier peut être extrait d'une cellule
ActiveWorkbook.Close SaveChanges:=True
il me faudrait un coup de main sur cela
Merci
A voir également:
- Fermer un fichier 2 à partir d'un fichier 1
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
1 réponse
Salut,
Ben oui, tu as tout bon.
Tu rends le classeur actif :
WorkBooks("Avis de Virement" & [A10]).Activate 'ou A10 représente la cellule contenant le nom
'WorkBooks ou Windows, je ne sais plus...
ActiveWorkBook.Close
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
Ben oui, tu as tout bon.
Tu rends le classeur actif :
WorkBooks("Avis de Virement" & [A10]).Activate 'ou A10 représente la cellule contenant le nom
'WorkBooks ou Windows, je ne sais plus...
ActiveWorkBook.Close
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --