THIERRY' DEMO évolution V2 de USF_Export_TXT-Variable-Lenght

D

dagada75

Guest
Bonjour à toutes et à tous,

Me revoilà avec un nouveau problème d'injection sur SAP (tous en coeur "Encore !!!!").

:eek:(

J'avais été à l'origine du fil crée par le génial Thierry sur l'export de données en en fichier txt où Thierry avait parfaitement répondu au problème (la classe !).
http://www.excel-downloads.com/html/French/forum/messages/1_135622_135622.html

Je m'inspire d'ailleurs de la solution de Thierry dans la démo ci jointe !

En fait, il s'agit d'une variante du problème précédemment rencontré.

Petit cours SAP sur l'injection dîte "DIRECT INPUT" (mais je suis sûr qu'il y a des connaisseurs ...) : un programme standard sap lit de façon séquentielle un fichier source txt avec pour chaque début de ligne l'orientation de l'action à accomplir et génère des données dans SAP selon le contenu du fichier source.
Dans mon cas, si la ligne du fichier txt commence par "1" le programme agira d'une manière de TELLE sorte que, obligatoirement, la deuxième ligne du fichier txt devra commencer par "2"; sans QUOI il y a plantage du système.

Je sais ... c'est pas très clair mais ma démo en fichier joint contier un objet image du résultat d'injection attendu par le programme SAP.

Le problème est que, par soucis de simplicité dans mon fichier excel et pour tenir compte d'autres macros déja installées, toutes les informations relatives à un même objet DOIVENT TENIR SUR UNE SEULE ET MEME LIGNE EXCEL !
En fait, j'aimerai trouver la formule VBA qui permettrait à ma macro de faire "saut de ligne" dans le fichier TXT à sauvegarder au moement de l'export une fois passé la "CASE 10" (dans le programme VBA).

Attention : ce dernier chapitre sera difficilement compréhensible SANS avoir ouvert le fichier joint et la fenêtre VBA. :eek:)

MERCI à tous si vous m'accordez quelques minutes à lire mon problème

Thierry si tu me vois ...


Bonne (fin) de journée

DAGADA75
 

Pièces jointes

  • USF_Export_TXT-Variable-LenghtVersion2.zip
    19.1 KB · Affichages: 54
@

@+Thierry

Guest
Bonsoir Dagada75, le Forum

Rapidos, je suis sur la finalisation de VBA pour DataSet Vision là !!!

Essaies tout simplement ceci :

Case 10
TmpString = ""
For i = Len(Feuil1.Cells(L, C)) To 30 - 1
TmpString = TmpString & Chr(32)
Next
TheText = TheText & TmpString & Left(CStr(Cells(L, C).Text), 30) & vbCrLf


Sur le TXT ça le fait bien, pour SAP ensuite je ne sais pas !


Bonne Soirée
@+Thierry
 
D

Dagada75

Guest
AAAAAAAAAAaaaaaaaaaaaaaaargh !


Tu me "tues" avec la remarque "Rapidos..."

C'est tout simplement ce que je cherchais !

:eek:)

Vraiment VRAIMENT trop fort !

A nouveau je m'incline !

:eek:)

Oui ... le fichier TXT est bon ... donc SAP va l'avaler guoulûment ....

Merci THIERRY

(Vous en avez rêvé ? Thierry l'a fait !)
 

Discussions similaires

Réponses
11
Affichages
680

Statistiques des forums

Discussions
314 655
Messages
2 111 605
Membres
111 217
dernier inscrit
aladinkabeya2