grrrr de VBA, vais me remettre au tricot... Fermé

Question

salut tout le mondeje cherche à tester le nombre de feuilles actives lors d'une demande d'impression... mais c'est au dessus de mes forces.si par hasard (ou pas !) un superpro pouvais me dépanner voici ou j'en suis:Private Sub Workbook_BeforePrint(Cancel As Boolean)    If Workbooks.Count = 1 Then 'c'est cette ligne qui coince !!    Beep    Msgbox "Ne sélectionner qu'un formulaire.", , "Limite d'impression !"    Cancel = True    Else        If ActiveSheet.Name = "CG" Then        ActiveSheet.Unprotect password:="blabla"        Rows("9:22").EntireRow.Hidden = False        Rows("29:42").EntireRow.Hidden = True        If [C9] = " " And [E9] = " " And [G9] = " " Then        etc...........Merci d'avance pour tout bout de solutionet que vives les forum'sya'v

ya_v_ka · Answer

oups la ligne qui coince est à:if WorkSheets.count >1 then ce que j'ai mis au dessus est déjà un autre essais...  ;-)

Obeet · Answer

Salut,Comment ca elle "coince?" .  .  En raison de l'indifference generale\_/  Demain est annule

Obeet · Answer

Ca doit vouloir dire que ta variable n'est pas la bonne, elle te donne systematiquement quelque chose au dessus de un, fait la afficher dans une message box avant par exemple pour voir quelle valeur elle a, peut eter que Access a toujours une form par defaut et qu'il faut retirer un ou peut etre que ce n'est pas ce que tu crois comme variable... .  .  En raison de l'indifference generale\_/  Demain est annule

ya_v_ka · Answer

mercij'ai bien pensé que ca venait de qulque chose comme ca, mais mes maigres connaissances ne me permettent pas de trouver le trucpour l'idée d'afficher la variable, je note et vais m'y mettre, ca peut me permettre de comprendre, merci  ;-)en passant, je suis sous excel, access me fait encore bien peur :-(et... si je me moqie aussi du lendemain... quel jour seront nous donc dem... euh après aujourd'hui ???   ;-))))merci encore et youplaBOUMMya'v

ya_v_ka · Answer

Bravo et encore merciIf Worksheets.Count > 1 Thenne fonctionne pas parce que la variable =32, c'est à dire toutes les feuilles du classeur, il ne me reste plus qu'a compter les feuilles actives !mais comment...merci pour cette énorme avancée  ya'v

Obeet · Answer

Bon c'est bien ce que je pensais...Tu n'as pas une propriete genre "Active" ou selected dans le parent de ton worksheet (desole je connais pas du tout le VBA de Excel...) .  .  En raison de l'indifference generale\_/  Demain est annule

ya_v_ka · Answer

merci  ;-)la réponse m'est venue d'un autre forum (eh oui dommaaaage !)If ThisWorkbook.Windows(1).SelectedSheets.Count > 1 Thenest la bonne solution, mais que fais cette fenetre(1) là au milieu ??? pas à moi qui faut le demander...en tous cas merci encore de t'y être interessé  ;-)ya'v

Grrrr de VBA, vais me remettre au tricot...

7 réponses

Discussions similaires