script vbs + fichier excel

Version imprimable

04/04/2010, 19h54
maitre.dohko

script vbs + fichier excel

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

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:

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"

Citation:

Envoyé par bbil

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:

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:

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

04/04/2010, 21h07
SfJ5Rpw8

:koi:
et il est passé ou ton fichier excel ?
04/04/2010, 21h55
maitre.dohko

Citation:

Envoyé par bbil

:koi:
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
04/04/2010, 21h58
SfJ5Rpw8

pour piloter excel inspire toi de :

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

Citation:

Envoyé par bbil

pour piloter excel inspire toi de :

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

Bonjour,
Me revoila avec mon problème, j'ai fait un truc mais je ne sais pas comment lire les cellules du fichier excel et cela ne marche pas.
Si j'ai un login stocké dans une variable qui est jdupont, je veux que le script cherche jdupont dans la première colonne et stock dans une autre variable le code de la personne qui se trouve dans la colonne suivante sur la même ligne.
Voici un debut de code que j'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function classeur Dim xlapp FichierXLS = "c:\fichier.xls" FeuilleXLS = "Feuil1" Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True xlapp.workbooks.open FichierXLS xlapp.sheets(FeuilleXLS).Activate xlapp.ActiveSheet.range("A2" ).Activate 'saute la 1ère ligne xlapp.Activesheet.Range("A2").value End Function
Merci d'avance de m'aider.
Cordialement,
Dohko

09/04/2010, 08h13
SfJ5Rpw8
salut,

déjà oubli tout ce qui est activate , sélection, activeSheet ... ton but n'est pas d'effectuer une animation en bougeant ton curseur dans ta feuille mais de récupérer des données... Et tu peu faire cela directement sans "bouger" le curseur...

tu as utiliser une variable pointant sur Excel (xlApp) qui va te permettre d'interagir sur ton instance de l'application Excel, pour rendre plus lisible les traitements qui suivent tu peu aussi créer une variable qui "pointe" sur ton classeur et une autre sur ta feuille...

rajoute leur déclaration
Code:

1 2 Dim wk Dim sh
et effectue l'affectation à l'ouverture du classeur :
Code:

1 2 set wk = xlapp.workbooks.open (FichierXLS) set sh = wk.sheets(FeuilleXLS)
pour accéder au contenu de ta cellule A2 tu peu ensuite :

Code:

msgbox sh.range("A2")

pour finir tu peu fermer ton classeur (sans sauver) et quitter excel
Code:

1 2 wk.close false xlApp.quit
09/04/2010, 13h38
maitre.dohko
Citation:
Envoyé par bbil

salut,

déjà oubli tout ce qui est activate , sélection, activeSheet ... ton but n'est pas d'effectuer une animation en bougeant ton curseur dans ta feuille mais de récupérer des données... Et tu peu faire cela directement sans "bouger" le curseur...

tu as utiliser une variable pointant sur Excel (xlApp) qui va te permettre d'interagir sur ton instance de l'application Excel, pour rendre plus lisible les traitements qui suivent tu peu aussi créer une variable qui "pointe" sur ton classeur et une autre sur ta feuille...

rajoute leur déclaration

Code:

1 2 Dim wk Dim sh

pour finir tu peu fermer ton classeur (sans sauver) et quitter excel

Code:

1 2 wk.close false xlApp.quit
et effectue l'affectation à l'ouverture du classeur :
Code:

1 2 set wk = xlapp.workbooks.open (FichierXLS) set sh = wk.sheets(FeuilleXLS)
pour accéder au contenu de ta cellule A2 tu peu ensuite :

Code:

msgbox sh.range("A2")

merci, si je te suis bien je garde ceci :

FichierXLS = "c:\fichier.xls"
FeuilleXLS = "Feuil1"

Set xlapp = CreateObject("Excel.Application")
Ma question est puis je interroger le fichier excel sans qu'il soit ouvert ? puisque ce script va s'executer par gpo sur mon domaine .
Cordialement
dohko
09/04/2010, 15h16
_xme_

bonjour
je me permet de t'inciter à chercher un peu plus
google aurais pu te fournir une très bonne base pour ton script. 8-)
Je te conseille d'abord ce tutoriel :
http://drq.developpez.com/vb/tutoriels/Excel/
Il fait juste 3 pages et enseigne l'essentiel à savoir ;)