Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel DLL

DLL

8 réponses
Avatar
Setec Essarts
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables sous
VBA 6)

merci

vincent
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Setec Essarts
En fait, mon but est de trouver la fonction qui me permette de vérifier si
la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de news:
4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables
sous

VBA 6)

merci

vincent




Avatar
Michel Pierron
Bonsoir Setec Essarts;
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long)
As Long
Sub Test
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub

MP

"Setec Essarts" a écrit dans le message de
news:40057dc7$0$17130$

En fait, mon but est de trouver la fonction qui me permette de vérifier si
la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de news:
4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables
sous

VBA 6)

merci

vincent








Avatar
Vincent JACQUES
Voici ce que j'ai fait, mais le test de déconnexion m'affiche "Connecté"...


Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long)
As Long


Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
InternetAutodial 1, 0
Test
MsgBox "connecté"
End Sub

Sub Connexion_kit_DéConnecte()
Test
InternetAutodialHangup 0&
Test
End Sub
Sub Test()
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub
"Michel Pierron" a écrit dans le message de news:

Bonsoir Setec Essarts;
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)

As Long
Sub Test
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub

MP

"Setec Essarts" a écrit dans le message de
news:40057dc7$0$17130$

En fait, mon but est de trouver la fonction qui me permette de vérifier
si


la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de news:
4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables
sous

VBA 6)

merci

vincent












Avatar
Michel Pierron
Bonjour Vincent;
Si ta connexion est automatisée au lancement de la machine, c'est normal et tu as
à la fois la ceinture et les bretelles.
Il te suffit de:

Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long
Private Declare Function InternetAutodialHangup Lib _
"wininet.dll" (ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
If InternetAutodial(1, 0) Then MsgBox "Connected !", 64
End Sub

Sub Connexion_kit_DéConnecte()
If InternetAutodialHangup(0) Then MsgBox "Disconnected !", 64
End Sub

MP

"Vincent JACQUES" a écrit dans le message de
news:400645e9$0$17128$
Voici ce que j'ai fait, mais le test de déconnexion m'affiche "Connecté"...


Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As Long)
As Long


Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
InternetAutodial 1, 0
Test
MsgBox "connecté"
End Sub

Sub Connexion_kit_DéConnecte()
Test
InternetAutodialHangup 0&
Test
End Sub
Sub Test()
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub
"Michel Pierron" a écrit dans le message de news:

Bonsoir Setec Essarts;
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)

As Long
Sub Test
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub

MP

"Setec Essarts" a écrit dans le message de
news:40057dc7$0$17130$

En fait, mon but est de trouver la fonction qui me permette de vérifier
si


la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de news:
4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables
sous

VBA 6)

merci

vincent
















Avatar
Vincent JACQUES
Merci Michel


"Michel Pierron" a écrit dans le message de news:
#
Bonjour Vincent;
Si ta connexion est automatisée au lancement de la machine, c'est normal
et tu as

à la fois la ceinture et les bretelles.
Il te suffit de:

Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long
Private Declare Function InternetAutodialHangup Lib _
"wininet.dll" (ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
If InternetAutodial(1, 0) Then MsgBox "Connected !", 64
End Sub

Sub Connexion_kit_DéConnecte()
If InternetAutodialHangup(0) Then MsgBox "Disconnected !", 64
End Sub

MP

"Vincent JACQUES" a écrit dans le message de
news:400645e9$0$17128$
Voici ce que j'ai fait, mais le test de déconnexion m'affiche
"Connecté"...




Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)


As Long


Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
InternetAutodial 1, 0
Test
MsgBox "connecté"
End Sub

Sub Connexion_kit_DéConnecte()
Test
InternetAutodialHangup 0&
Test
End Sub
Sub Test()
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub
"Michel Pierron" a écrit dans le message de
news:



Bonsoir Setec Essarts;
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)

As Long
Sub Test
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub

MP

"Setec Essarts" a écrit dans le message de
news:40057dc7$0$17130$

En fait, mon but est de trouver la fonction qui me permette de
vérifier




si
la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de
news:




4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions
(utilisables





sous
VBA 6)

merci

vincent




















Avatar
Vincent JACQUES
Mais, je recherche toujours une liste de fonctions API utilisable en VBA
sous Excel (le site MS c'est le bazar et je suis pas un pro). Peut-être
connais-tu un bon bouquin VBA/Excel 2002 avec un chapitre sur les API?

Cordialement

Vincent

"Michel Pierron" a écrit dans le message de news:
#
Bonjour Vincent;
Si ta connexion est automatisée au lancement de la machine, c'est normal
et tu as

à la fois la ceinture et les bretelles.
Il te suffit de:

Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long
Private Declare Function InternetAutodialHangup Lib _
"wininet.dll" (ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
If InternetAutodial(1, 0) Then MsgBox "Connected !", 64
End Sub

Sub Connexion_kit_DéConnecte()
If InternetAutodialHangup(0) Then MsgBox "Disconnected !", 64
End Sub

MP

"Vincent JACQUES" a écrit dans le message de
news:400645e9$0$17128$
Voici ce que j'ai fait, mais le test de déconnexion m'affiche
"Connecté"...




Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)


As Long


Private Declare Function InternetAutodial Lib "Wininet" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Sub Connexion_kit_Connecte()
InternetAutodial 1, 0
Test
MsgBox "connecté"
End Sub

Sub Connexion_kit_DéConnecte()
Test
InternetAutodialHangup 0&
Test
End Sub
Sub Test()
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub
"Michel Pierron" a écrit dans le message de
news:



Bonsoir Setec Essarts;
Private Declare Function InetIsOffline Lib "url.dll" (ByVal dwFlags As
Long)

As Long
Sub Test
MsgBox IIf(InetIsOffline(0), "Non connecté !", "Connecté !"), 64
End Sub

MP

"Setec Essarts" a écrit dans le message de
news:40057dc7$0$17130$

En fait, mon but est de trouver la fonction qui me permette de
vérifier




si
la connexion internet est ouverte
(peut-être dans wininet.dll?)

"Setec Essarts" a écrit dans le message de
news:




4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions
(utilisables





sous
VBA 6)

merci

vincent




















Avatar
Vincent JACQUES
'Lancer et arrêter une connexion Internet automatique depuis Excel

Private Declare Function InternetAutodial Lib "Wininet.dll" _
(ByVal dwFlags As Long, ByVal hwndParent As Long) As Long

Private Declare Function InternetAutodialHangup Lib "Wininet.dll" _
(ByVal dwReserved As Long) As Long

Sub Connecte()
Dim resultC As Long
resultC = InternetAutodial(1, 0&)
MsgBox IIf(resultC, "Connecté", "Déconnécté")
End Sub

Sub DéConnecte()
Dim resultD As Long
resultD = InternetAutodialHangup(0&)
MsgBox IIf(resultD, "Déconnecté", "Connecté")
End Sub
Voici ce que j'ai finalement fait, mais est-ce très orthodoxe?

Il se connecte, mais PB, l'icône de connexion active ne se met plus dans le
coin en bas à droite??



Private Sub ToggleButtonConnexion_Click()

If ToggleButtonConnexion.Value Then
Connecte
Else
DéConnecte
End If


End Sub
"Setec Essarts" a écrit dans le message de news:
4005723e$0$17126$
Bonjour,
où puis-je trouver une liste de DLL et de leurs fonctions (utilisables
sous

VBA 6)

merci

vincent




Avatar
Clément Marcotte
Bonjour,

Mais, je recherche toujours une liste de fonctions API utilisable en
VBA

sous Excel


Deux adresses:

http://www.mentalis.org/index2.shtml (allapi.net) (Il y a une
visionneuse avec un fichier d'aide et des exemples à quelque part sur
le site.


http://vbnet.mvps.org/

Le site de Randy Birch avec les API en ordre alphabétique