Ouverture du fichier excel
Hors ligneWilder Le 14/04/2007 à 18:47 Profil de Wilder Configuration de Wilder

Viconaute Modérateur
Bonjour au amateur de VBA,

Je rencontre un petit problème sur une programmation VBA.

Voici le détail.

À l'ouverture du fichier excel, dans ThisWorkbook il est écrit:

Sheets("Facturation").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = False
UFLoggin.Show
ThisWorkbook.Close True


UFLoggin = Outil de Login

Une fois entrer mon mot de passe, je clique sur ok.

Et là mon problème arrive.  Voici le srcipt:


If UFLoggin.TBPass.Value = "mot de passe" Then
    Unload UFLoggin

Sheets("Facturation").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = True

ThisWorkbook.Close False



    Sheets("Utilisateurs").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = True

ThisWorkbook.Close False
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayWorkbookTabs = True
    End With
Else: Unload UFLoggin
MsgBox "Mot de passe incorrect"
End If
End Sub




La page excel ouvre mais les feuilles et onglets non.   Pourquoi?

Et voilà la question à mon problème. Je voudrais que tout réapparaisse.

Merci de votre aide!  




P.-S. : Et voilà le tout corrigé :

Private Sub CBOK_Click()
If UFLoggin.TBPass.Value = "Mot de passe" Then
    Unload UFLoggin
    Sheets("Utilisateurs").Select
    Application.Visible = True
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayWorkbookTabs = True
    End With
Else
    MsgBox "Mot de passe incorrect"
    Unload UFLoggin
    ThisWorkbook.Close False
    Application.Visible = True
    Application.Quit
End If
End Sub

--


Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels