PB code workbooks.count

[Nanir]

Re le forum,

Voici mon problème avec ce code qui parait simple mais qui ne fonctionne pas.

Sub Compter()
nb = Workbooks.Count
If nb > 1 Then
Exit Sub
End If
If nb = 1 Then
UserForm1.Show
End If
End Sub

Le hic c'est que l'userform ne s'affiche jamais même si il n'y a qu'un classeur ouvert?!
Comment faire?

Merci.

 

[Nanir]

Bonjour José,

Effectivement c'est la suite de la question.
Ca ne fonctionne toujours pas.

Je ne vois pas ce que tu veux dire par appeler le sub...(excuse moi je débute...)

Voici le début de la macro:

Sub Test()
Dim Msg, Style, Title, Help, Ctxt, Response
Msg = 'Par mesure de sécurité vous devez fermer tous les autres classeur excel.'
Style = vbOKCancel + vbInformation
Title = 'Mise à jour du fichier'
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbOK Then
Compter
Else
Exit Sub
End If
End Sub

Sub Compter()
If Workbooks.Count > 1 Then Exit Sub
UserForm1.Show
End Sub

Si je supprime la procédure Compter et que je remplace dans la procédure Test 'compter' par userform1.show (progress bar), tout fonctionne.

C'est vraiment la procédure Compter qui bloque.

Bien sure si tu as une autre solution je suis preneur...

Merci de ton interêt José.

PS : L'espagne joue à 15h!

 

[Nanir]

Et voici...

Il faut mettre les trois fichiers dans un même dossier. La macro est sur récap.

Merci et viva espana! [file name=xld_20060614150545.zip size=44721]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/xld_20060614150545.zip[/file]

 

[pierrejean]

bonjour Nanir

ton probleme n'est pas au niveau de workbooks.count mais dans la macro declenchée
par l'initialisation de l'userform
commence par resoudre a ce niveau !!!

 

[Nanir]

Pierrejean, José,

Je pense avoir trouvé le problème.
En effet la macro devrait fonctionner.

J'ai rajouté un msgbox qui me renvoie le nombre de documents ouverts. Surprise, il m'en trouve 2 même quant il n'y a qu'un classeur ouvert.

Lorsque j'ouvre un classeur vierge j'ai un message d'erreur microsoft : 'PERSO.XLS est verrouillé pour modification'.

Donc comment faire pour enlever PERSO.XLS dans l'explorateur de projets??

 

[pierrejean]

re
solution manuelle
a priori il doit apparaitre dans la 'fenetre'
le selectionner et le fermer

par vba
workbooks('PERSO.xls').close SaveChanges:=False

ou True
selon ce que tu souhaites

 

[Nanir]

Ca y est ca fonctionne! Super!

Merci beaucoup PierreJean, José.
Jamais j'aurai trouvé seul.

C'est bien Perso.xls qui s'ouvrait tout seul et workbooks.count marche bien.

Vous êtes TOP!