Macro Fermeture fichier

Bonjour à tous,

Contrairement à ce que laisse croire l'intitulé du message, le problème n'est pas aussi simple.8O

J'ai créé un "fichier A" dans lequel j'enregistre des infos, dans ce fichier j'ai créé une macro qui enregistre une copie de ce fichier en le renommant, le nom se compose du contenu d'une cellule "B1" par exemple et la date. Ce qui donne un nom du genre: B1-28-janv-2013

Ensuite la macro appelle un "fichier B" déjà ouvert (grâce à la fonction "Workbooks(Fichier B).Activate") et y colle des infos provenant du "fichier A".

Donc me voilà dans la situation où le fichier actif est le "fichier B" et j'aimerai trouver une solution pour fermer le "fichier A" en laissant ouvert le "fichier B"

J'ai essayé avec la fonction "ActiveWorkbook.Close savechanges:=False" mais cela me ferme le "fichier B"

Existe t il une fonction similaire pour fermer mon "fichier A" sans revenir sur celui ci ?

J'espère avoir été clair et je vous remercie par avance de votre aide.:ccool:

Bonjour

Code:

---

1 2 3 4 5

' Pour fermer le classeur actif ActiveWorkbook.Close savechanges:=False   ' Pour fermer le fichier .xls Workbooks("monfichier.xls" ).Close savechanges:=False

---

Merci QuestVba,

Le soucis étant que mon fichier s'enregistre toujours avec un nom différent alors je ne peux pas utiliser ce code :

Code:

---

Workbooks("monfichier.xls" ).Close savechanges:=False

---

J'avais pourtant eu l'idée de mettre le nom du fichier sous une variable appelée monfichier mais je n'arrive pas à le rappeler avec le code suivant :

Code:

---

Workbooks(mon fichier).Activate

---

Merci d'avance.

Re-,

Tu dois pouvoir le rappeler comme ceci

Code:

---

1 2 3

nffch = nom_fichier$ + ".xls" Windows(nffch).Activate

---

Bonjour,

Comme il est dit et répété à de nombreuses reprises sur ce forum, il faut éviter les Select et Activate.

Un petit exemple de code "propre":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim ClasseurA As Workbook Dim ClasseurB As Workbook Dim Feuille1DuClasseurA As Worksheet Dim Feuille1DuClasseurB As Worksheet Set ClasseurA = ThisWorkbook ' Set ClasseurB = Workbooks.Open("C:\UnDossier\UnNomDeFichier.xls") ' Utiliser ce genre de syntaxe si le classeur n'est pas ouvert Set ClasseurB = Workbooks("LeNomDuClasseurB.xls") Set Feuille1DuClasseurA = ClasseurA.Sheets(1) Set Feuille1DuClasseurB = ClasseurB.Sheets(1) ClasseurA.SaveAs ClasseurA.Path & "\" & Feuille1DuClasseurA.Cells(1, 2).Text & "-" & Format(Date, "dd-mm-yyyy") ' Ton code de copie du genre ' Feuille1DuClasseurB.Cells(1, 1) = Feuille1DuClasseurA.Cells(1, 1) ClasseurA.Close End Sub

---