Fermer un fichier A à partir d'un fichier B

[pitichou]

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, 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

 

[Robert]

Re : Fermer un fichier A à partir d'un fichier B

Boujour Pitichou, bonjour le forum,

Si comme tu le dis le nom est récupérable dans une cellule alors tu pourrais faire (non testé) :

Windows(Range(Ta_cellule)).Activate 
ActiveWorkbook.Close SaveChanges:=True

où Ta_cellule serait l'adresse de la cellule contenant le nom...

 

[pitichou]

Re : Fermer un fichier A à partir d'un fichier B

bonjour

merci pour ta réponse mais comment je fais pour définir la valeur que dois prendre "Ta_cellule" ?

 

[Robert]

Re : Fermer un fichier A à partir d'un fichier B

Bonjour Pitichou, bonjour le forum,

On s'est mal compris alors, je pensais que c'était déjà le cas... Pourrais-tu nous envoyer le code complet ou le fichier en pièce jointe. On comprendra mieux ta question et on pourra y répondre plus facilement et plus vite.

 

[pitichou]

Re : Fermer un fichier A à partir d'un fichier B

re à tous

voilà en pièce jointe le fichier en question

Merci pour votre aide

la cellule source est la J20

 

[Robert]

Re : Fermer un fichier A à partir d'un fichier B

Bonjour Pitichou, bonjour le forum,

Si j'ai bien compris... :

Sub enregistre()
'Enregistrer le fichier avec le bon N°
ActiveSheet.saveas Filename:="P:\Finance\DAF\Audrey\AP\0-Paiements\PDF Avis de virement\2010\2103 - McCormick Suisse\" & Range("I20") & Range("A17").Value
 
'Imprimer au format PDF
Application.ActivePrinter = "PDFCreator sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne01:", Collate:=True
 
[COLOR=red]'ferme le classeur en enregistrant les modifications[/COLOR]
[COLOR=red]ActiveWorkbook.Close SaveChanges:=True[/COLOR]
 
'Rouvrir le fichier modèle
ChDir _
        "P:\Finance\DAF\Audrey\AP\0-Paiements\PDF Avis de virement\2010\2103 - McCormick Suisse"
    Workbooks.Open Filename:= _
        "P:\Finance\DAF\Audrey\AP\0-Paiements\PDF Avis de virement\2010\2103 - McCormick Suisse\Modèle Avis de virement.xls"
 
End Sub

p.s. Pitichou, si tu as un moment jette un coup d'œíl sur la charte du forum... On te donne plein de bons conseils comme éviter les fichiers à données confidentielles...