[VBA-E]Fermer classeur EXCEL parmi plusieurs

Bonjour,

J'utilise trois classeur A, B et C. les macros de A utilisent B et C. A un moment donné j'aimerais fermer B et C pour ouvrir un autre couple D et E et ainsi de suite...

J'ai vu que je ne peux que fermer TOUS les classeurs via la commande:
workbooks.close.

J'ai essayé : workbooks(nomfichier).close mais j'ai une erreur de syntaxe.

Quelq'un sait comment resoudre ce probleme resumé ainsi : comment fermer un classeur excel parmi plusieurs ?

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8

Sub CloseWorbook(WordbookName As String) Dim Wbk As Excel.Workbook For Each Wbk In Excel.Workbooks If Wbk.Name = WordbookName Then Wbk.Close End If Next End Sub

---

Pas mieux ! :D

Juste si tu veux fermer plusieurs document je pense qu'il te faut faire un tableau avec tab(1)=nom1, tab(2)=nom2...

En reprenant le code de Vesta :D

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CloseWorbook(WordbookName As String) Dim Wbk As Excel.Workbook for i = 1 to Nombredefichier For Each Wbk In Excel.Workbooks If Wbk.Name = tab(i) Then Wbk.Close End If Next next End Sub

---

Ps :Grr 3eme fois que je suis obligé d'edit un de mes post à cause de balises LEFT qui se mettent :roll:

N'oublie pas de mettre l'extension .xls dans le paramètre de Close

Code:

---

workbooks("prestations.xls").close

---

fonctionne de façon correcte

Ok?

Merci de vos reponses,

J'avais posté une reponse mais elle n'est pas ici je ne comprend pas pourquoi.

le .close ne fonctionne pas si je donne le chemin complet du classeur. Je fais un chdir pour fermer le classeur et ça marche.

Merci

Citation:

---

Envoyé par flyfrog

J'avais posté une reponse mais elle n'est pas ici je ne comprend pas pourquoi.

---

Sélectionne ton nom et regarde toutes tes réponses... Ta réponse perdue est peut-être là... :lol:
Et arrête de perdre tes affaires :mouarf:
Bonne chasse !
A+

La fonction que je t'ai donnée fonctionne tr_s bien, il faut juste lui donner comme parametre le nom du classeur

Citation:

---

Envoyé par Elstak

Pas mieux ! :D

Juste si tu veux fermer plusieurs document je pense qu'il te faut faire un tableau avec tab(1)=nom1, tab(2)=nom2...

En reprenant le code de Vesta :D

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CloseWorbook(WordbookName As String) Dim Wbk As Excel.Workbook for i = 1 to Nombredefichier For Each Wbk In Excel.Workbooks If Wbk.Name = tab(i) Then Wbk.Close End If Next next End Sub

---

Ps :Grr 3eme fois que je suis obligé d'edit un de mes post à cause de balises LEFT qui se mettent :roll:

---

Elstak si tu reprends un code ... reprend le entiérement ... le précédant code avait une variable chaine comme paramétre .. le tiens aussi mais il n'utilise plus le paramétre et un tableau fantome Tab(..) surgit de la nuit :mouarf::lol:


Sinon :

Citation:

---

Envoyé par flyfrog

Merci de vos reponses,

J'avais posté une reponse mais elle n'est pas ici je ne comprend pas pourquoi.

le .close ne fonctionne pas si je donne le chemin complet du classeur. Je fais un chdir pour fermer le classeur et ça marche.

Merci

---

c'est résolu alors ? ( même si je comprends pas cette hhistoire de chdir ) ?

J'ai testé sur mon code. Quand je donne le chemin complet, ça ne marche pas, avec le nom reduit du classeur, ça marche.

Se peut que ça cloche qlq part dans mon code.

Merci de vos reponses

oui la commande workbooks(Nom).close réclame le nom "réduit" du classeur .. tu peu adapter le code vu plus haut pour qu'il fonctionne avec nom complet..

Code:

---

1 2 3 4 5 6 7 8 9

Sub CloseWorbook(WordbookName As String) Dim Wbk As Excel.Workbook For Each Wbk In Excel.Workbooks If UCase(Wbk.Path & "\" & Wbk.Name) = UCase(WordbookName) Then Wbk.Close End If Next End Sub

---

ensuite

Code:

---

CloseWorbook("c:\tmp\monclasseur.xls")

---

Mais Sinon
il faudrai peu-être réorganiser ton code .. pour qe tu n'est plus à jouer avec ces noms....comment ouvre tu ces classeurs et comment accéede tu à leur donnée ... essai de faire quelque chose du genre :

Code:

---

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

Sub test() Dim Wk1 As Workbook Set Wk1 = Workbooks.Open("c:\tmp\monclasseur.xls") If Wk1 Is Nothing Then MsgBox "erreur ouverture classeur......" Exit Sub End If 'Ici tu accéde au classeur Wk1.Sheets(1).Range("A1") = "Modif feuille" '.... '... 'Et quand tu as fini tu ferme le classeur en sauvant (avant d'en ouvrir un autre) Wk1.Close True End Sub

---