Bonjour, je souhaiterais savoir s'il existe un code pour pouvoir modifier les paramètres de la carte réseau (Adresse IP, Masque sous réseau, passerelle...) depuis un formulaire access sur un evenement (clic ou autre...)
Merci d'avance
Bonjour, je souhaiterais savoir s'il existe un code pour pouvoir modifier les paramètres de la carte réseau (Adresse IP, Masque sous réseau, passerelle...) depuis un formulaire access sur un evenement (clic ou autre...)
Merci d'avance
Salut
je ne t'apporte pas de solution mais simplement une idée
dans la base contact de microsoft, lorsque tu rentres un n° de tél,
et si tu cliques dessus, ton n° se compose
A partir de ce module, voit si ta carte réseau pourrait être configurée
Je trouve ça où la base contact de microsoft?
salut
sur access 2003 c'est sûr
regarde sur access 2007
a l'ouverture d'access, tu as des modèles
en fait j'ai bien access 2003 mais je n'ai pas trouvé cette base contact qui serait fourni avec (peut être effacé ou non installé).
regarde si tu n'as pas un lien pour télécharger des modèles
sinon ouvre ta bdd et cliques sur ouvrir ou nouveau et là tu devrais avoir la base en question
Non il n'y a pas de code concernant la carte réseau dans la base contact de microsoft (je viens enfin de la trouver )
J'ai trouvé ce code sur un forum mais je n'arrive pas à l'appliquer sur ma base
Ca me met une erreur de syntaxe sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration " _ & "where IPEnabled=TRUE") strIPAddress = Array("192.168.1.141") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.100") strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic( _ strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(_ strGateway, strGatewaymetric) Next
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 errGateways = objNetAdapter.SetGateways(_ strGateway, strGatewaymetric)
Ca y est j'ai trouvé l'erreur, il manquait juste un espace entre la parenthése et le _
Au final le code est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Dim AdresseIPPC As String Dim PasserelleIP As String AdresseIPPC = [Adresse IP PC] 'Récupére la valeur du champs texte Adresse IP PC PasserelleIP = [Passerelle IP] 'Récupère la valeur du champs texte Passerelle IP strComputer = "." Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration " _ & "where IPEnabled=TRUE") strIPAddress = Array(AdresseIPPC) strSubnetMask = Array("255.255.255.0") strGateway = Array(PasserelleIP) strGatewaymetric = Array(1) For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableStatic( _ strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways( _ strGateway, strGatewaymetric) Next Dim str As String str = "http://" & [Adresse IP] 'ouvre une fenetre internet explorer avec l'adresse IP présente dans le champs Adresse IP Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe " & str
Désolé, je reviens encore à la charge...
Cette fois ci je souhaite, suite à un evenement clic ou autre, pouvoir revenir à une configuration réseau automatique. C'est à dire que la carte se connecte sur une adresse IP automatique.
Pour ceux qui serait interressé par le code pour revenir en adresse IP automatique, je l'ai enfin trouvé sur un forum
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 Private Sub Commande15_Click() Carte = [Modifiable16] 'liste de choix de la carte réseau à modifier If MsgBox("Cette action va modifier les paramètres de la carte réseau. Etes vous sûr de vouloir continuer ?", vbQuestion + vbYesNo, "Configuration Décodeur") = vbNo Then GoTo Fin Me.Undo Cancel = True strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter In colNetAdapters If Left(objNetAdapter.description, 300) = Carte Then errEnableDHCP = objNetAdapter.setDNSServersearchOrder() errEnableDHCP = objNetAdapter.EnableDHCP() MsgBox "Changement d'adresse effectué sur la carte réseau " & objNetAdapter.description Else MsgBox "Changement d'adresse impossible sur carte réseau " & objNetAdapter.description End If Next Fin: End Sub
Bonjour,
Je déterre cette discussion car impossible de faire fonctionner les scripts proposés, il ne se passe rien hormis l’ouverture d’une fenêtre IE avec l'adresse IP présente dans le champ Adresse IP (2 dernières lignes de la réponse #9).
Hormis les déclarations de variables, est-ce dû à un problème de références vba (mais je ne vois pas laquelle sélectionner si cela doit être le cas), d’environnement (je suis sous W7/office 2010), autres ?
Si quelqu’un pouvait m’éclairer, ça me serait bien utile.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager