Discussion :

[hunk72]

Bonjour à tous et à toutes,

Dans le cadre de mon travail, j'ai besoin d'une macro correctif sous VBScript de telle sorte que pour une plage de données contenant des valeurs numériques d'un fichier excel, je puisse éxécuter une certaine opération pour chaque contenu des cellules. Il s'agîrait de quelque chose comme ça :

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
 
Sub chargements()
 
Dim contrats As Range
Dim cell As Range
Set contrats = Range("G7:G16")    'plage d'exemple
 
For Each cell In Range("G7:G16")
'Faire une opération pour chaque cellule de la plage, notamment une ligne de l'opération qui comprendrait le numéro du contrat auquel je souhaite faire un correctif (l'opération) :
autECLSession.autECLPS.SendKeys "6853740"
'(...suite opération)
'où 6853740 est le numéro de contrat. Je veux faire cette opération pour chaque contrat dont les numéros sont contenus dans la plage G7:G16 (un numéro par cellule).
Next cell
 
End sub

Ma question est par quoi remplacer "6853740" pour qu'il fasse la suite de l'opération pour chaque cellule?

Je vous remercie par avance de vos réponses!

[Invité]

Bonjour,

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
Sub chargements()
 
Dim contrats As Range
Dim cell As Range
Set contrats = Range("G7:G16")    'plage d'exemple
 
For Each cell In contrats
    SuiteOperation CStr(cell(1, 1).Value)
Next cell
 
End Sub
Sub SuiteOperation(Contrat As String)
    autECLSession.autECLPS.SendKeys Contrat
    'Faire une opération pour chaque cellule de la plage, notamment une ligne de l'opération qui comprendrait le numéro du contrat auquel je souhaite faire un correctif (l'opération) :
 
'(...suite opération)
'où 6853740 est le numéro de contrat. Je veux faire cette opération pour chaque contrat dont les numéros sont contenus dans la plage G7:G16 (un numéro par cellule).
End Sub

ceci dit, vba n'est pas VBScript et il faudra remanger ton code si tu veux le faire tourner en VBScript !

[hunk72]

Bonjour rdurupt,

Effectivement VBScript n'est pas VBA mais je n'ai que cette solution pour m'inspirer.
D'ailleurs, sur un fichier de type VBScript (fichier texte), sauriez-vous comment appeler la plage de données du fichier excel?

Quelque chose du type

Code :

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

1
2
Workbooks.Open Filename:= _
        "C:\Documents and Settings\xxx\Bureau\Classeur1"

peut être ? (où classeur1 contient ma plage G7:G16)

Merci par avance si vous connaissez la réponse.

[Invité]

Vbscript n'accepte pas les types, de plus il faut déclarer tous les objets Excel!

Code :

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

1
2
3
4
5
6
7
8
9
10
 dim Xls
Dim Wb
Dim Sh
Dim plage
Set xls=creatobject("Excel.application")
Xls.visible=True
Set wb=xls.workbooks.add
Set sh =wb.sheets.add
Set plage=sh.range("a1:b10")
Plage ="toto"

Code :

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

1
2
 
Set wb= xls.Workbooks.Open

Tu peux créer des variables Dim ma variable pas de types du genre as string
De fonctions

Code :

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

1
2
3
funtion Myqfuncion(permettre)
Myqfuncion = permettre
End function

Toujours pas de typage!
Des sub

Code :

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

1
2
3
sub Mysub(paramètre)
Msgbox paramètre
End sub

Encore et toujours pas de typage

Le programme en principal toujours appelé hors d'une sub ou d'une fonction!

Mysub "Toto"