Discussion :

[maitre.dohko]

Bonjour,
Je suis en train de realiser un script qui recupere le login de la personne et qui en fonction de ce login insérer dans un fichier precis un code d'activation pour une application metier.
Je sais recuperer le login de la personne et aussi changer une valeur a un endroit precis dans un fichier, mais ce que je ne sais pas faire c'est la liaison avec un fichier excel qui me sert de base et que le script va consulte et recherché le login de la personne dans ce fichier pour recuperer son code d'activation.

Le fichier excel a 2 colonnes une pour le login et une pour le code de la personne.

Peut être feriez vous autrement, je suis débutant en programmation n'hesitez pas a me le faire savoir!

Merci d'avance pour vos réponse

Dokho

[SfJ5Rpw8]

difficile de savoir ou tu en est sans voir de code .. considérons que tu sait lancer excel ouvrir le bon fichier et faire pointer une variable nommé sh sur ta feuille liste de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i
Dim bTrouve
Dim stNomATrouver
stNomAtrouve = "Arthur"
i = 1
While Not bTrouve And sh.Cells(i, 1) <> ""
 If sh.Cells(i, 1) = stNomAtrouve Then
   bTrouve = True
    Else
    i = i + 1
 End If
 
Wend
If bTrouve Then MsgBox "Le code est : " & sh.Cells(i, 2) Else MsgBox "Introuvable"

[maitre.dohko]

difficile de savoir ou tu en est sans voir de code .. considérons que tu sait lancer excel ouvrir le bon fichier et faire pointer une variable nommé sh sur ta feuille liste de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i
Dim bTrouve
Dim stNomATrouver
stNomAtrouve = "Arthur"
i = 1
While Not bTrouve And sh.Cells(i, 1) <> ""
 If sh.Cells(i, 1) = stNomAtrouve Then
   bTrouve = True
    Else
    i = i + 1
 End If
 
Wend
If bTrouve Then MsgBox "Le code est : " & sh.Cells(i, 2) Else MsgBox "Introuvable"

Bonjour,
Je ne sais rien faire de tous ceci,
voici mon code actuellement:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
'On Error Resume Next
 
Dim objUser
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshVarEnv = WshShell.Environment("PROCESS")
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN")
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")
 
Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _
  & strUserName & ",user")
MsgBox strUserName
 
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists("e:\test") Then
Call searchReplaceFile("e:\test\toto.txt","bubul","totophe")
 
Else
 
' True : pour copier en "écrasant" destination si existe..
oFSO.CopyFolder "\\sw2k034\doc\test","e:\test",True 
MsgBox ("fait")
Call searchReplaceFile("e:\test\toto.txt","tonton","totophe")
End If
WScript.Quit
 
 
function searchReplaceFile(File,LineSearch,LineReplace)
	Dim oFSO
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	if oFSO.FileExists(File) = true Then
 
		Dim oRegEx
		Dim monFile
		Dim sStream
		Dim sNewStream
 
		Set oRegEx = New RegExp
 
		oRegEx.Global = True
		oRegEx.Pattern = LineSearch
 
		Set monFile = oFSO.OpenTextFile(File,1)
 
		sStream = monFile.ReadAll
		monFile.Close
 
		sNewStream = oRegEx.Replace(sStream,LineReplace)
 
		If InStr(sNewStream,LineReplace) = true Then 
			sNewStream = Replace(sNewStream,LineReplace,3,7) 
		end if
 
		Set monFile = oFSO.OpenTextFile(File,2,true)
		monFile.Write sNewStream
	 	monFile.Close
		MsgBox "Modification terminé",vbInformation,"Succès"
	else
		MsgBox "Le fichier source est introuvable",Vbcritical,"Erreur"
	end If
end function

Merci de ta réponse

[SfJ5Rpw8]

et il est passé ou ton fichier excel ?

[maitre.dohko]

et il est passé ou ton fichier excel ?

C'est la liaison et la recherche dans le fichier excel que je ne sais pas faire.
Mon fichier excel s'appelle CodeG.xls
premiere colonne loginAD : JDupuis
deuxieme colonne Code: 23225

Voila la structure de mon fichier excel

[SfJ5Rpw8]

pour piloter excel inspire toi de :

Comment piloter Excel pour créer un classeur.xls ?