Fermer classeurs

4 réponses

GIBI68

26/09/2005 à 16:41

Bonjours à toutes et à tous,

j'ouvre par des macros plusieurs classeurs.
Je voudrais tous les fermer sauf celui par qui je les ai ouverts.

quand j'utilise workbook.close il me ferme tout.
Pour éviter le message" voulez-vous sauvegarder etc..etc." est-ce que
savechanges:=false est correct ?

Merci
Bonne journée.

4 réponses

RGI

26/09/2005 à 16:57

ceci

Application.DisplayAlerts = False
Workbooks("Test.XLS").Close
Application.DisplayAlerts = True

salutations

Gilbert

Bonjours à toutes et à tous,

j'ouvre par des macros plusieurs classeurs.
Je voudrais tous les fermer sauf celui par qui je les ai ouverts.

quand j'utilise workbook.close il me ferme tout.
Pour éviter le message" voulez-vous sauvegarder etc..etc." est-ce que
savechanges:úlse est correct ?

Merci
Bonne journée.

GIBI68

26/09/2005 à 17:49

J'ai oublié le principal
je ne sais pas retrouver le nom d'un classeur ouvert.
et je ne sais pas retrouver le nombre de classeurs ouverts.
Merci

"RGI" a écrit dans le message de news:
e$

ceci

Application.DisplayAlerts = False
Workbooks("Test.XLS").Close
Application.DisplayAlerts = True

salutations

Gilbert

Bonjours à toutes et à tous,

j'ouvre par des macros plusieurs classeurs.
Je voudrais tous les fermer sauf celui par qui je les ai ouverts.

quand j'utilise workbook.close il me ferme tout.
Pour éviter le message" voulez-vous sauvegarder etc..etc." est-ce que
savechanges:úlse est correct ?

Merci
Bonne journée.

RGI

26/09/2005 à 18:02

'Nom du classeur sans extension
Sub nomsansextension()
'le classeur doit être au moins une fois enregistré
x = ActiveWorkbook.Name
ActiveCell.Value = Left(x, Len(x) - 4)
End Sub

'Nombre de classeurs ouverts
Sub nbclasseurs()
If Workbooks.Count > 1 Then MsgBox "il y a " & Workbooks.Count & "
classeurs ouverts"
If Workbooks.Count = 1 Then MsgBox "Pas d'autre classeur ouvert"
End Sub

salutations

Gilbert

J'ai oublié le principal
je ne sais pas retrouver le nom d'un classeur ouvert.
et je ne sais pas retrouver le nombre de classeurs ouverts.
Merci

"RGI" a écrit dans le message de news:
e$

ceci

Application.DisplayAlerts = False
Workbooks("Test.XLS").Close
Application.DisplayAlerts = True

salutations

Gilbert

Bonjours à toutes et à tous,

j'ouvre par des macros plusieurs classeurs.
Je voudrais tous les fermer sauf celui par qui je les ai ouverts.

quand j'utilise workbook.close il me ferme tout.
Pour éviter le message" voulez-vous sauvegarder etc..etc." est-ce que
savechanges:úlse est correct ?

Merci
Bonne journée.

GIBI68

26/09/2005 à 18:18

Royal j'applique chez moi

Merci beaucoup pour le coup de main

"RGI" a écrit dans le message de news:

'Nom du classeur sans extension
Sub nomsansextension()
'le classeur doit être au moins une fois enregistré
x = ActiveWorkbook.Name
ActiveCell.Value = Left(x, Len(x) - 4)
End Sub

'Nombre de classeurs ouverts
Sub nbclasseurs()
If Workbooks.Count > 1 Then MsgBox "il y a " & Workbooks.Count & "
classeurs ouverts"
If Workbooks.Count = 1 Then MsgBox "Pas d'autre classeur ouvert"
End Sub

salutations

Gilbert

J'ai oublié le principal
je ne sais pas retrouver le nom d'un classeur ouvert.
et je ne sais pas retrouver le nombre de classeurs ouverts.
Merci

"RGI" a écrit dans le message de news:
e$

ceci

Application.DisplayAlerts = False
Workbooks("Test.XLS").Close
Application.DisplayAlerts = True

salutations

Gilbert

Bonjours à toutes et à tous,

j'ouvre par des macros plusieurs classeurs.
Je voudrais tous les fermer sauf celui par qui je les ai ouverts.

quand j'utilise workbook.close il me ferme tout.
Pour éviter le message" voulez-vous sauvegarder etc..etc." est-ce que
savechanges:úlse est correct ?

Merci
Bonne journée.

Fermer classeurs

4 réponses

Veuillez sélectionner un problème