Discussion :

[flyfrog]

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

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Elstak]

Pas mieux !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Pas mieux !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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


Sinon :

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 ) ?

[flyfrog]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbooks("prestations.xls").close

fonctionne de façon correcte

Ok?

[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

[ouskel'n'or]

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à...
Et arrête de perdre tes affaires
Bonne chasse !
A+

[Vesta]

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