A voir également:
- Bloquer une feuille hors condition
- Excel cellule couleur si condition texte - Guide
- Apparaitre hors ligne instagram - Guide
- Bloquer pub youtube - Accueil - Streaming
- Gps hors ligne - Guide
- Bruler une feuille de laurier - Guide
1 réponse
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
Loulou
Merci beaucoup, je vais essayer.
Loulou
Je ne parviens pas à faire fonctionner la fonction declare. Le problème c'est que je n'arrive pas à faire la mise à jour pour la faire fonctionner en 64bits.