A voir également:
- Bloquer une feuille hors condition
- Excel cellule couleur si condition texte - Guide
- Apparaitre hors ligne instagram - Guide
- Gps hors ligne - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 juin 2016 à 17:45
14 juin 2016 à 17:45
bonjour,
Mettre dans ThisWorkbook:
Mettre dans ThisWorkbook:
Option Explicit
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function ConnectWeb() As Boolean
ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
End Function
Private Sub Workbook_Open()
If ConnectWeb = True Then
'MsgBox "Connectée"
Sheets("Feuil1").Visible = True
Else
'MsgBox "Deconnectée"
Sheets("Feuil1").Visible = False
End If
End Sub
15 juin 2016 à 09:11
16 juin 2016 à 15:22