Bonjour
j'ai cherché un peu sur google comment concatener 2 (ou plus) de fichiers
texte, mais les seules options sont de concatener de manière brute les
fichiers.
Ce que j'aimerais faire c'est une routine via access (vu que le résultat de
la concaténation va servir à importer des données dans ma base), qui
permettre d'importer un certain nombre (détéction automatique) de fichiers
texte en supprimant les entetes et fin de fichier et ne garder que le corps
du texte
je m'explique, mes fichiers sont formattés comme suit
Entête jusqu'à un mot clé : 'texte'
corps du texte entre 'texte" et "Fin" (les données dans le corps du texte
sont des champs séparés par des ":" en incluant le nom des champs)
fin de fichier après "fin"
et une possibilité de mettre entre "texte" et "fin" une ligne donnant le
nombre de fichier (du style "1/4" "2/4"....)
voilà si quelqu'un est familier de ce genre de routine, je suis preneur
Merci beaucoup et de bonne fêtes à tous, et encore merci pour toute l'aide
que vous nous apportez
chris
J'ai copié/collé du début jusqu'à Public RetVal As Long et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" a écrit dans le message de news:
Salut,
"chris" | Je viens de tester, c'est excellent, | Dernier petit soucis, la version d'access, que j'utilise sur les différents | postes, tourne sous access 2000, et apparement il | ce module est pour access 2002 ('Nécessite la référence microsoft office x.x | object library | 'utilisable à partir de Office Xp (2002)) | ça fonctionne nickel avec access Xp | y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci http://www.3stone.be/access/articles.php?lng=fr&pg0 qui à l'avantage de tourner même sous Acces 97 et Win98.
J'ai copié/collé du début jusqu'à Public RetVal As Long
et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble
fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uGGMjQsSHHA.5016@TK2MSFTNGP05.phx.gbl...
Salut,
"chris"
| Je viens de tester, c'est excellent,
| Dernier petit soucis, la version d'access, que j'utilise sur les
différents
| postes, tourne sous access 2000, et apparement il
| ce module est pour access 2002 ('Nécessite la référence microsoft office
x.x
| object library
| 'utilisable à partir de Office Xp (2002))
| ça fonctionne nickel avec access Xp
| y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci
http://www.3stone.be/access/articles.php?lng=fr&pg0
qui à l'avantage de tourner même sous Acces 97 et Win98.
J'ai copié/collé du début jusqu'à Public RetVal As Long et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" a écrit dans le message de news:
Salut,
"chris" | Je viens de tester, c'est excellent, | Dernier petit soucis, la version d'access, que j'utilise sur les différents | postes, tourne sous access 2000, et apparement il | ce module est pour access 2002 ('Nécessite la référence microsoft office x.x | object library | 'utilisable à partir de Office Xp (2002)) | ça fonctionne nickel avec access Xp | y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci http://www.3stone.be/access/articles.php?lng=fr&pg0 qui à l'avantage de tourner même sous Acces 97 et Win98.
Bonjour je viens de tester avec access 2000 et forcément j'ai un soucis lorsque j'appelle la fonction FileConcat j'ai un message d'erreur Erreur de compilation: Type défini par l'utilisateur non défini et quand j'ouvre la visual j'ai Function OpenFileName() As String en jaune et Dim Dialogue As FileDialog en bleu voili voilou Merci
"chris" a écrit dans le message de news: %
J'ai copié/collé du début jusqu'à Public RetVal As Long et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" a écrit dans le message de news:
Salut,
"chris" | Je viens de tester, c'est excellent, | Dernier petit soucis, la version d'access, que j'utilise sur les différents | postes, tourne sous access 2000, et apparement il | ce module est pour access 2002 ('Nécessite la référence microsoft office x.x | object library | 'utilisable à partir de Office Xp (2002)) | ça fonctionne nickel avec access Xp | y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci http://www.3stone.be/access/articles.php?lng=fr&pg0 qui à l'avantage de tourner même sous Acces 97 et Win98.
Bonjour
je viens de tester avec access 2000
et forcément j'ai un soucis
lorsque j'appelle la fonction FileConcat
j'ai un message d'erreur
Erreur de compilation:
Type défini par l'utilisateur non défini
et quand j'ouvre la visual
j'ai Function OpenFileName() As String en jaune
et Dim Dialogue As FileDialog en bleu
voili voilou
Merci
"chris" <chris.vsupprimerceci@waika9.com> a écrit dans le message de news:
%23EM8luuSHHA.3980@TK2MSFTNGP02.phx.gbl...
J'ai copié/collé du début jusqu'à Public RetVal As Long
et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble
fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" <home@sweet_home.be> a écrit dans le message de news:
uGGMjQsSHHA.5016@TK2MSFTNGP05.phx.gbl...
Salut,
"chris"
| Je viens de tester, c'est excellent,
| Dernier petit soucis, la version d'access, que j'utilise sur les
différents
| postes, tourne sous access 2000, et apparement il
| ce module est pour access 2002 ('Nécessite la référence microsoft
office x.x
| object library
| 'utilisable à partir de Office Xp (2002))
| ça fonctionne nickel avec access Xp
| y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci
http://www.3stone.be/access/articles.php?lng=fr&pg0
qui à l'avantage de tourner même sous Acces 97 et Win98.
Bonjour je viens de tester avec access 2000 et forcément j'ai un soucis lorsque j'appelle la fonction FileConcat j'ai un message d'erreur Erreur de compilation: Type défini par l'utilisateur non défini et quand j'ouvre la visual j'ai Function OpenFileName() As String en jaune et Dim Dialogue As FileDialog en bleu voili voilou Merci
"chris" a écrit dans le message de news: %
J'ai copié/collé du début jusqu'à Public RetVal As Long et remplacé ensuite "fOpenFiles" par "OpenFileName" partout et cela semble fonctionner sous access XP, reste plus qu'à tester sous access 2000
Merci
"3stone" a écrit dans le message de news:
Salut,
"chris" | Je viens de tester, c'est excellent, | Dernier petit soucis, la version d'access, que j'utilise sur les différents | postes, tourne sous access 2000, et apparement il | ce module est pour access 2002 ('Nécessite la référence microsoft office x.x | object library | 'utilisable à partir de Office Xp (2002)) | ça fonctionne nickel avec access Xp | y-a-til un moyen pour le faire tourner sur access 2000?
Remplace dans ce cas la fonction fOpenFiles() par celle-ci http://www.3stone.be/access/articles.php?lng=fr&pg0 qui à l'avantage de tourner même sous Acces 97 et Win98.
"Chris" | je viens de tester avec access 2000 | et forcément j'ai un soucis | lorsque j'appelle la fonction FileConcat | j'ai un message d'erreur | Erreur de compilation: | Type défini par l'utilisateur non défini | et quand j'ouvre la visual | j'ai Function OpenFileName() As String en jaune | et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer* ceci http://www.3stone.be/access/articles.php?lng=fr&pg3 par celui-là http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
"Chris"
| je viens de tester avec access 2000
| et forcément j'ai un soucis
| lorsque j'appelle la fonction FileConcat
| j'ai un message d'erreur
| Erreur de compilation:
| Type défini par l'utilisateur non défini
| et quand j'ouvre la visual
| j'ai Function OpenFileName() As String en jaune
| et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer*
ceci
http://www.3stone.be/access/articles.php?lng=fr&pg3
par celui-là
http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
"Chris" | je viens de tester avec access 2000 | et forcément j'ai un soucis | lorsque j'appelle la fonction FileConcat | j'ai un message d'erreur | Erreur de compilation: | Type défini par l'utilisateur non défini | et quand j'ouvre la visual | j'ai Function OpenFileName() As String en jaune | et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer* ceci http://www.3stone.be/access/articles.php?lng=fr&pg3 par celui-là http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
c'est ce que j'ai fait, surement mal fait, mais dès que je colle tout ce qu'il y a là : http://www.3stone.be/access/articles.php?lng=fr&pg0 j'ai les lignes fOpenFile = "" strFiltre = qui se mettent en rouge et une erreur : "erreur de syntaxe"
et pareil pour ' fMultiSelect à partir de la ligne Do While pos > 1
et qu'entends tu par "mais également modifier l'appel à cette fonction" : remplacer "fOpenFiles()" par "OpenFileName"?
désolé, je ne suis pas doué, mais je te remercie de ta patience
"3stone" a écrit dans le message de news:
re,
"Chris" | je viens de tester avec access 2000 | et forcément j'ai un soucis | lorsque j'appelle la fonction FileConcat | j'ai un message d'erreur | Erreur de compilation: | Type défini par l'utilisateur non défini | et quand j'ouvre la visual | j'ai Function OpenFileName() As String en jaune | et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer* ceci http://www.3stone.be/access/articles.php?lng=fr&pg3 par celui-là http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
c'est ce que j'ai fait, surement mal fait, mais dès que je colle tout ce
qu'il y a là :
http://www.3stone.be/access/articles.php?lng=fr&pg0
j'ai les lignes
fOpenFile = ""
strFiltre = qui se mettent en rouge et une erreur : "erreur de syntaxe"
et pareil pour ' fMultiSelect
à partir de la ligne
Do While pos > 1
et qu'entends tu par "mais également modifier l'appel à cette fonction" :
remplacer "fOpenFiles()" par "OpenFileName"?
désolé, je ne suis pas doué, mais je te remercie de ta patience
"3stone" <home@sweet_home.be> a écrit dans le message de news:
e8PFxyETHHA.1200@TK2MSFTNGP04.phx.gbl...
re,
"Chris"
| je viens de tester avec access 2000
| et forcément j'ai un soucis
| lorsque j'appelle la fonction FileConcat
| j'ai un message d'erreur
| Erreur de compilation:
| Type défini par l'utilisateur non défini
| et quand j'ouvre la visual
| j'ai Function OpenFileName() As String en jaune
| et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer*
ceci
http://www.3stone.be/access/articles.php?lng=fr&pg3
par celui-là
http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
c'est ce que j'ai fait, surement mal fait, mais dès que je colle tout ce qu'il y a là : http://www.3stone.be/access/articles.php?lng=fr&pg0 j'ai les lignes fOpenFile = "" strFiltre = qui se mettent en rouge et une erreur : "erreur de syntaxe"
et pareil pour ' fMultiSelect à partir de la ligne Do While pos > 1
et qu'entends tu par "mais également modifier l'appel à cette fonction" : remplacer "fOpenFiles()" par "OpenFileName"?
désolé, je ne suis pas doué, mais je te remercie de ta patience
"3stone" a écrit dans le message de news:
re,
"Chris" | je viens de tester avec access 2000 | et forcément j'ai un soucis | lorsque j'appelle la fonction FileConcat | j'ai un message d'erreur | Erreur de compilation: | Type défini par l'utilisateur non défini | et quand j'ouvre la visual | j'ai Function OpenFileName() As String en jaune | et Dim Dialogue As FileDialog en bleu
J'ai bien dis que si tu était en office 2000, tu devais *remplacer* ceci http://www.3stone.be/access/articles.php?lng=fr&pg3 par celui-là http://www.3stone.be/access/articles.php?lng=fr&pg0
**mais également modifier l'appel à cette fonction**
