2 pièce(s) jointe(s)
Importer une liste Excel dans Reflection Basic
Bonjour à tous,
je suis nouveau donc j'espère que je poste au bon endroit.
Voici mon problème.
On travaille sur un logiciel Reflection et on aimerait bien automatiser l'import de données dans une transaction.
Je m'explique.
Voici la transaction en question.
Il doit y avoir un nombre à 10 chiffre sur chaque ligne (et entre chaque ligne, il faut appuyer sur la flèche vers le bas)
Pièce jointe 189684
Ensuite, voici le début de code que j'ai commencé à écrire.
Rien ne se passe quan je le lance..
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
| Option Explicit
Sub Main
Dim theFile AS String
Dim ApplExcel AS Object
Dim IMRAA_Row AS Integer
Dim IMRAA_Purchase_Order AS String
Const Colnr_Purchase_order As Integer = 1
With application
theFile = .GetOpenFilename ("Excel (*.xls), *.xls", 1, "PO.xls")
End with
If theFile ="" then
msgbox "No file selected"
Exit Sub
end if
Set ApplExcel = CreateObject ("Excel.Application")
With ApplExcel
.Visible = True
'OUVRE LE FICHIER'
.Workbooks.open (Filename:=theFile)
End with
'ENVOI DES DONNEES'
application.transmit IMRAA_Purchase_Order
End Sub
' Recording stopped at 10:13:19.39. |
SI quelqu'un sait m'aider, ce serait super.
Merci à tous
Guerric
