Test acces internet Excel MAC

Version imprimable

09/01/2018, 14h56
softwood

Test acces internet Excel MAC

Bonjour à tous
je souhaiterais que mon application sous excel (excel mac) ne puisse lancer une macro que si le mac a effectivement un accès internet
Y a t il un macscript qui me permette de connaitre l'état du réseau
Je ne souhaite pas tester l'ouverture d'un site par safari ... je souhaite que ma requete soit "invisible" pour l'utilisateur

J'espère avoir été clair.
Merci pour vos contributions.
09/01/2018, 14h59
kiki29

Salut, peut-être ici ?
09/01/2018, 15h27
softwood

merci
hélas c'est un excellent site que j'ai consulté à bien des occasions mais je n'y ai pas trouvé la réponse ...:(

Bonsoir,

test cela :
Code:

1 2 3 4 Sub TestConnect() Test_Net = MacScript("(do shell script ""ifconfig en1 | awk '/inet/ {print $2}'"") is not equal to """"") If Test_Net Then MsgBox "Connection OK" Else MsgBox "Connection Not OK" End Sub
Par contre je suis curieux de savoir à quoi cela peut servir ???

Edit : Pour la vérification tout dépend du contexte voir aussi avec en0 au lieu de en1 :

• Pour la vérification en wifi utiliser : en1
• Pour la vérification en ethernet utiliser : en0

10/01/2018, 21h27
softwood

Grand merci c'est super

En fait j'ai des utilisateurs qui exploitent des données communes J'ai donc réalisé un prg "moteur" installé sur leurs PC ou Mac et les données sont sur dropbox version gratuite (je sais ce n'est pas le meilleur choix mais il m'a été "imposé")
Le prg "moteur" ouvre donc les données venant de dropbox Mais je me suis vite heurté aux problèmes des conflits.
J'ai donc changé de stratégie : les données sont copiées dans une feuille temporaire et le fichier données est donc très vite refermé. en fin de travail (beforeclose) il est à nouveau ouvert et seules le données modifiées sont remises à jour donc le fichier données n'est ouvert qu'un instant très court ;
il restait un problème : sans accès internet on peut quand m^me ouvrir le dossier puisqu'il figure sur le dossier dropbox en local ;
votre solution me permet - y compris pour mac - de gérer cette situation
encore merci
je pense que je peux clore la discussion
10/01/2018, 21h41
RyuAutodidacte

j'ai peut être bien une autre solution à tester … je reviens …

Voilà … en testant le site - si il y a une connection internet on aura en réponse True sinon on aura False :

Code:

1
2
3
4
5
6
7
Sub TestConnect()
Dim MonSite$, Test_Net As Boolean
    MonSite = "https://www.dropbox.com"
    Test_Net = MacScript("try" & Chr(13) & "set dotted_ to dotted decimal form of host of (""" & MonSite & """ as URL)" & Chr(13) & _
                            "return true" & Chr(13) & "on error" & Chr(13) & "return false" & Chr(13) & "end try")
    If Test_Net Then MsgBox "Connection OK" Else MsgBox "Connection Not OK"
End Sub

Code:

1
2
3
4
5
6
Sub TestConnect2()
Dim MonSite$, Test_Net As Boolean
    MonSite = "https://www.dropbox.com"
    Test_Net = MacScript("(count (get ((""" & MonSite & """ as URL)'s host & {dotted decimal form:""""})'s dotted decimal form)) > 0")
    If Test_Net Then MsgBox "Connection OK" Else MsgBox "Connection Not OK"
End Sub

11/01/2018, 10h02
softwood

Merci beaucoup
je teste cela ce soir car je ne dispose pas de mac et je fais les tests sur un mac distant via teamviewer !
Pas très simple de faire une application compatible PC Mac et avec des versions de office différentes ....

Test probant tant avec Excel 2011 que 2016
C'est parfait grand merci !:P