Petite question

T

Tony

Guest
Bonjour à tous

Une personne bien vaillante (ou plusieurs) pour me dire pourquoi je ne peut pas faire disparaitre la barre de dessin.
Voir code :
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
 
T

Tony

Guest
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
 
T

Tony

Guest
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