Bonjour à tous,
J'ai un fichier texte de la forme suivant:
Commande avec anomalie, ABR N° :
Date : 22/03/06
Anomalie de commande : Client "0000391227" n'est pas créé(e)
N° Commande Client : 805981
N° Compte Client : 606652
Nombre de postes en anomalie : 0
Commande avec anomalie, ABR N° :
Date : 22/03/06
Anomalie de commande : Client "0000391227" n'est pas créé(e)
N° Commande Client : 801156
N° Compte Client : 425632
Nombre de postes en anomalie : 0
J'ai besion de redistribuer ce fichier dans une table en gardant la forme
1ere colonne telle commande deuxieme colonne telle date ect..
et sur la ligne suivante de passer au second enregistrement.
Popurriez vous m'indiquer la maniere de proceder pour recuperer et mettre en
forme ce type de fichier texte.
Je sais que votre competence va au dela des normes alors j'ai confiance.
Merci à tous et @+
FRY38
Bonjour, et d'abord merci à tous. LR dit que j'ai oublié de creer le module standard SCR : Comment le creer??? Merci de votre reponse je pense que j'avance doucement mais surement. Merci FRY38
Effectivement ; comme il y avait un gros logo 2003 sur la page indiquée, je croyais que c'était un truc interne à Access 2003! Il est quasi certain que FRY38 a oublié de créer le module standard SCR.
l'objet SCR n'est autre qu'un module nommé SCR contenant les fonctions FileSystemObject.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"LR" a écrit dans le message de news:
| Je crois que l'objet SCR n'est pas intégré dans les versions d'Access | antérieures à 2003. | Il faudrait dans ce cas utiliser d'autres méthodes pour ouvrir le fichier | texte. | Par exemple, référencer la librairie Microsoft Scripting Runtime | et utiliser le code suivant : | | Dim fs As FileSystemObject | Dim txs As TextStream | | Set txs = fs.OpenTextFile("nom_fichier") | Do Until txs.AtEndOfLine | txs.ReadLine ' ligne 1 | Rs.AddNew | Texte = txs.ReadLine 'ligne 2 | Tableau = Split(Texte, "/") | Rs!col1 = Tableau(0) | Rs!col2 = Tableau(1) | Rs!col3 = Tableau(2) | Rs!col4 = Tableau(3) | Texte = txs.ReadLine 'ligne 3 | Tableau = Split(Texte, "/") | Rs!col5 = Tableau(0) | Rs!col6 = Tableau(1) | Rs!col7 = Tableau(2) | Texte = txs.ReadLine 'ligne 4 | Tableau = Split(Texte, "/") | Rs!col8 = Tableau(0) | Rs.Update | Loop | txs.Close | Set fs = Nothing |
Bonjour, et d'abord merci à tous.
LR dit que j'ai oublié de creer le module standard SCR : Comment le creer???
Merci de votre reponse je pense que j'avance doucement mais surement. Merci
FRY38
Effectivement ; comme il y avait un gros logo 2003 sur la page indiquée, je
croyais que c'était un truc interne à Access 2003!
Il est quasi certain que FRY38 a oublié de créer le module standard SCR.
l'objet SCR n'est autre qu'un module nommé SCR contenant les fonctions
FileSystemObject.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"LR" <LR@discussions.microsoft.com> a écrit dans le message de news:
B855B5F1-5219-4FC2-9E9D-E6687ED075B5@microsoft.com...
| Je crois que l'objet SCR n'est pas intégré dans les versions d'Access
| antérieures à 2003.
| Il faudrait dans ce cas utiliser d'autres méthodes pour ouvrir le fichier
| texte.
| Par exemple, référencer la librairie Microsoft Scripting Runtime
| et utiliser le code suivant :
|
| Dim fs As FileSystemObject
| Dim txs As TextStream
|
| Set txs = fs.OpenTextFile("nom_fichier")
| Do Until txs.AtEndOfLine
| txs.ReadLine ' ligne 1
| Rs.AddNew
| Texte = txs.ReadLine 'ligne 2
| Tableau = Split(Texte, "/")
| Rs!col1 = Tableau(0)
| Rs!col2 = Tableau(1)
| Rs!col3 = Tableau(2)
| Rs!col4 = Tableau(3)
| Texte = txs.ReadLine 'ligne 3
| Tableau = Split(Texte, "/")
| Rs!col5 = Tableau(0)
| Rs!col6 = Tableau(1)
| Rs!col7 = Tableau(2)
| Texte = txs.ReadLine 'ligne 4
| Tableau = Split(Texte, "/")
| Rs!col8 = Tableau(0)
| Rs.Update
| Loop
| txs.Close
| Set fs = Nothing
|
Bonjour, et d'abord merci à tous. LR dit que j'ai oublié de creer le module standard SCR : Comment le creer??? Merci de votre reponse je pense que j'avance doucement mais surement. Merci FRY38
Effectivement ; comme il y avait un gros logo 2003 sur la page indiquée, je croyais que c'était un truc interne à Access 2003! Il est quasi certain que FRY38 a oublié de créer le module standard SCR.
l'objet SCR n'est autre qu'un module nommé SCR contenant les fonctions FileSystemObject.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. l'abonnement TechNet ! http://www.microsoft.com/france/technet/presentation/cd/default.mspx
"LR" a écrit dans le message de news:
| Je crois que l'objet SCR n'est pas intégré dans les versions d'Access | antérieures à 2003. | Il faudrait dans ce cas utiliser d'autres méthodes pour ouvrir le fichier | texte. | Par exemple, référencer la librairie Microsoft Scripting Runtime | et utiliser le code suivant : | | Dim fs As FileSystemObject | Dim txs As TextStream | | Set txs = fs.OpenTextFile("nom_fichier") | Do Until txs.AtEndOfLine | txs.ReadLine ' ligne 1 | Rs.AddNew | Texte = txs.ReadLine 'ligne 2 | Tableau = Split(Texte, "/") | Rs!col1 = Tableau(0) | Rs!col2 = Tableau(1) | Rs!col3 = Tableau(2) | Rs!col4 = Tableau(3) | Texte = txs.ReadLine 'ligne 3 | Tableau = Split(Texte, "/") | Rs!col5 = Tableau(0) | Rs!col6 = Tableau(1) | Rs!col7 = Tableau(2) | Texte = txs.ReadLine 'ligne 4 | Tableau = Split(Texte, "/") | Rs!col8 = Tableau(0) | Rs.Update | Loop | txs.Close | Set fs = Nothing |
Raymond [mvp]
Bonjour. le module SCR est le module que tu dois copier comme indiqué sur la page: http://officesystem.access.free.fr/scr_scripting_runtime.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"FRY38" a écrit dans le message de news:
| Bonjour, et d'abord merci à tous. | LR dit que j'ai oublié de creer le module standard SCR : Comment le creer??? | Merci de votre reponse je pense que j'avance doucement mais surement. Merci | FRY38 |
Bonjour.
le module SCR est le module que tu dois copier comme indiqué sur la page:
http://officesystem.access.free.fr/scr_scripting_runtime.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"FRY38" <FRY38@discussions.microsoft.com> a écrit dans le message de news:
C06976FE-A714-41D7-945F-808836FDC2B4@microsoft.com...
| Bonjour, et d'abord merci à tous.
| LR dit que j'ai oublié de creer le module standard SCR : Comment le
creer???
| Merci de votre reponse je pense que j'avance doucement mais surement.
Merci
| FRY38
|
Bonjour. le module SCR est le module que tu dois copier comme indiqué sur la page: http://officesystem.access.free.fr/scr_scripting_runtime.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://www.mpfa.info/ pour débuter sur le forum. Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les premiers inscrits ! http://www.microsoft.com/france/technet/presentation/flash/default.mspx
"FRY38" a écrit dans le message de news:
| Bonjour, et d'abord merci à tous. | LR dit que j'ai oublié de creer le module standard SCR : Comment le creer??? | Merci de votre reponse je pense que j'avance doucement mais surement. Merci | FRY38 |
