Discussion :

[rorobase]

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

[ikhor]

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

[rorobase]

Je trouve ça où la base contact de microsoft?

[ikhor]

salut

sur access 2003 c'est sûr

regarde sur access 2007

a l'ouverture d'access, tu as des modèles

[rorobase]

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é).

[ikhor]

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

[rorobase]

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 )

[rorobase]

J'ai trouvé ce code sur un forum mais je n'arrive pas à l'appliquer sur ma base

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

Ca me met une erreur de syntaxe sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
errGateways = objNetAdapter.SetGateways(_
        strGateway, strGatewaymetric)

[rorobase]

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

[rorobase]

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.

[rorobase]

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

[kgb1917]

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.