Petite question

[Tony]

Bonjour à tous

Une personne bien vaillante (ou plusieurs) pour me dire pourquoi je ne peut pas faire disparaitre la barre de dessin.
Voir code :

nbchps = 20 'Nombre de colonne dans base de données, corespondant au nombre d'info traitées.
    On Error Resume Next
    Application.ScreenUpdating = False
    
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    Application.CommandBars('Standard').Visible = False
    Application.CommandBars('Formatting').Visible = False
    Application.CommandBar('Drawing').Visble = False
    Application.DisplayFormulaBar = False
End Sub

Je vous en remercie par avance

Tony

 

[PascalXLD]

Bonjour

Fil déplacé sur le bon forum

 

[Dan]

Bonjour,

Il te manque le S après Application.CommandBars('Drawing').Visible = True

😉

Message édité par: Dan, à: 30/11/2005 12:51

 

[Tony]

Salut Dan

J'ai replacer le 'S' mais maintanant un message me dit :

Erreur compilation
Membre de methode ou de données introuvable
en surlignant .Visible de la ligne :
Application.CommandeBars('Drawing').Visible = False

Et toujours la barre dessin :angry: :angry: :angry:

@ +
Tony

 

[Dan]

Re,

Dans ton premier post, je vois qu'il manque aussi le i :

Application.CommandBars('Drawing').Visible = False

Vérifie et dis moi ce qu'il en est.

😉

Message édité par: Dan, à: 30/11/2005 14:00

 

[Tony]

Re

merci Dan
J'ai aussi remarquer le 'i'
Mais comme je devais partir je n'ais pas eu le tempt de renvoyer un post :unsure: :unsure:

Sa marche bien
Et je m'excuse de poser des questions IDIOTES sans relir attentivement :S

Merci encore

@ +
Tony