Discussion :

[guerric]

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)



Ensuite, voici le début de code que j'ai commencé à écrire.
Rien ne se passe quan je le lance..

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
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