Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel inventaire

inventaire

11 réponses
Avatar
Angèla
bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
michdenis
Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:
bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla
Avatar
Angèla
Bonjour,

Et oui, il est possible d'automatiser cela...si ...
Il est trop fort...:)))


Est-ce que ces 130 fichiers sont dans le même répertoires ?
oui


Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?
oui


Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ?
Oui s'il le faut vraiment


Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?


Oui, dans les feuilles portent toutes le même nom seule le nom du fichier
porte le nom du Pc

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?


Oui Un nouveau fichier avec les 130 fichiers concaténée et triés.

Merci vraiment de ton aide



"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla





Avatar
Angèla
bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla





Avatar
michdenis
Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:
bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla





Avatar
Angèla
merci Denis
je te tiens au courant.
Angéla
"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla










Avatar
Angèla
Bonjour Denis

Ta procédure marche à merveille.
Tu disais
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .
En fait ce sont des lignes que je veux supprimer mais leur contenu est

souvent different. C'est pourquoi je ne t'ai pas donner de "texte"
Je pensais plutôt a quelque chose du type : efface 10 lignes toutes les 20
lignes.
C'est possible ça???
Je ne le dirai jamais assez... MERCI


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla










Avatar
Angèla
Re bonjour denis
En fait je n'avais pas remarqué mais dans mon fichier, j'ai une colonne
intitulée "Item" qui contient des chiffres.
ces chiffres sont en fait des codes de libellés ex: 261 pour nom
d'ordinateur, 263 pour le systeme d'exploitation...
L'ideal serait de ne garder les lignes de tel ou tel codes.
J'ai essayé d'appliquer un filtre mais je n'ai qu'un code a la fois donc je
ne vois que les nom de machines ou les systemes d'esploitation et non tel
system d'exploitation pour telle machine.
Penses tu que c'est réalisable??
Merci d'avance
Angela
"Angèla" a écrit dans le message de news:

Bonjour Denis

Ta procédure marche à merveille.
Tu disais
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .
En fait ce sont des lignes que je veux supprimer mais leur contenu est

souvent different. C'est pourquoi je ne t'ai pas donner de "texte"
Je pensais plutôt a quelque chose du type : efface 10 lignes toutes les 20
lignes.
C'est possible ça???
Je ne le dirai jamais assez... MERCI


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir
comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla














Avatar
michdenis
Bonjour Angèla,

Tout est réalisable en autant que tu sois précise sur ce que tu désires faire.

Une procédure ne fait qu'exécuter ce que tu lui dis de faire ! Pour obtenir
le résultat désiré, il faut être précis.

Si tu veux sauvegarder seulement des lignes où des numéros sont compris
entre 200 et 300 ...cela ne cause aucun problème... mais c'est à toi de
définir des critères PRÉCIS qui ne portent pas à la confusion.

C'est la même chose avec le fait que tu désires effacer 10 à toutes les 20 lignes.

Dans quel fichier veux-tu appliquer cela ? Fichier de compilation finale ?
Quel est la ligne de départ servant à calculer les lignes à effacer ?


Salutations!



"Angèla" a écrit dans le message de news:
Re bonjour denis
En fait je n'avais pas remarqué mais dans mon fichier, j'ai une colonne
intitulée "Item" qui contient des chiffres.
ces chiffres sont en fait des codes de libellés ex: 261 pour nom
d'ordinateur, 263 pour le systeme d'exploitation...
L'ideal serait de ne garder les lignes de tel ou tel codes.
J'ai essayé d'appliquer un filtre mais je n'ai qu'un code a la fois donc je
ne vois que les nom de machines ou les systemes d'esploitation et non tel
system d'exploitation pour telle machine.
Penses tu que c'est réalisable??
Merci d'avance
Angela
"Angèla" a écrit dans le message de news:

Bonjour Denis

Ta procédure marche à merveille.
Tu disais
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .
En fait ce sont des lignes que je veux supprimer mais leur contenu est

souvent different. C'est pourquoi je ne t'ai pas donner de "texte"
Je pensais plutôt a quelque chose du type : efface 10 lignes toutes les 20
lignes.
C'est possible ça???
Je ne le dirai jamais assez... MERCI


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir
comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla














Avatar
Angèla
Bonjour denis,
Excuse moi de ne pas t'avoir contacté plus tôt mais je ne me suis penché sur
le problème.
J'ai testé et ça marche super bien (pour les quelques lignes)
Ce que j'aimerai savoir c'est si je suis limitée dans les imbrication de Si.
car j'ai une centaine de lignes à supprimer.

De plus je souhaiterai savoir s'il est possible de sélectionner par exemple
les nombres compris entre 548 et 563 inclus et les nombres compris entre
3841 et 3858 et 3585 et 3591
Merci encore
Angéla
----- Original Message -----
From: "MichDenis"
To: "Angèla VALLA"
Sent: Friday, February 03, 2006 6:04 PM
Subject: Re: inventaire


Bonjour Angèla,

Essaie ceci :

Le temps de traitement va être un peu plus long....
Il y a des méthodes plus rapides... mais elles sont
plus complexes à mettre en branle.

'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.csv")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
If InStr(1, WholeLine, "Date", vbTextCompare) = 0 Then
If InStr(1, WholeLine, "Heure", vbTextCompare) = 0 Then
If InStr(1, WholeLine, "Accelerateur 3D", vbTextCompare) =
0 Then
Print #1, WholeLine
End If
End If
End If
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

Re bonjour denis
En fait je n'avais pas remarqué mais dans mon fichier, j'ai une colonne
intitulée "Item" qui contient des chiffres.
ces chiffres sont en fait des codes de libellés ex: 261 pour nom
d'ordinateur, 263 pour le systeme d'exploitation...
L'ideal serait de ne garder les lignes de tel ou tel codes.
J'ai essayé d'appliquer un filtre mais je n'ai qu'un code a la fois donc
je ne vois que les nom de machines ou les systemes d'esploitation et non
tel system d'exploitation pour telle machine.
Penses tu que c'est réalisable??
Merci d'avance
Angela
"Angèla" a écrit dans le message de news:

Bonjour Denis

Ta procédure marche à merveille.
Tu disais
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .
En fait ce sont des lignes que je veux supprimer mais leur contenu est

souvent different. C'est pourquoi je ne t'ai pas donner de "texte"
Je pensais plutôt a quelque chose du type : efface 10 lignes toutes les
20 lignes.
C'est possible ça???
Je ne le dirai jamais assez... MERCI


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Voici une procédure que tu peux facilement adapter.
Comme tu ne m'as pas donné d'indications sur le texte
à rayer des fichiers... je n'ai pas tenu compte de cela
dans la fabrication de cette procédure .


'-------------------------------------
Sub Test()

Dim Chemin As String
Dim WholeLine As String

'Chemin où sont tes fichiers textes
Chemin = "c:Test"

file = Dir(Chemin & "*.txt")

'Ouvrir ou créer le fichier texte
'où les données seront copiées
'Attention si le fichier existe déjà
'les données vont s'ajouter à ce dernier
'pour le supprimer avant de le recréer
On Error Resume Next
Kill "c:denis.txt"
Open "c:denis.txt" For Append As #1

Do While file <> ""
Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
file = Dir()
Loop
'Ferme le fichier "Denis.txt"
Close #1
End Sub
'-------------------------------------


Salutations!



"Angèla" a écrit dans le message de news:

bonjour Denis,
excuse moi de mon impatience, mais j'ai vraiment besoins de savoir
comment
faire pour cet inventaire...
Dans la mesure ou, si ce n'est pas possible, je dois le faire à la main.
Donc si tel est le cas il faut que je m'y mette maintenant.

Merci encore
Angéla


"michdenis" a écrit dans le message de news:

Bonjour Angèla,

Et oui, il est possible d'automatiser cela...si ...

Est-ce que ces 130 fichiers sont dans le même répertoires ?

Est-ce que ce répertoire contient seulement des fichiers .csv
qui doivent être traités par la procédure ?

Est-ce que les lignes que tu veux supprimer sont identiques
d'un fichier à l'autre ? Ces données sont-elles situées au même
endroit dans chacun des fichiers .csv ?

Que veux-tu avoir comme résultat ? Les données de chaque fichier
réunies dans un nouveau fichier ?



Salutations!



"Angèla" a écrit dans le message de news:

bonjour,
nous avons fait l'inventaire de notre parc micro. Nous nous retrouvons
avec
un fichier.csv par poste et nous avons 130 postes.
Est il possible de regrouper tous ces fichier en un?
Peut on supprimer certaines lignes qui ne servent a rien mais qui se
répètent dans les 130 fichiers.
Merci de m'aider
Angéla


















Avatar
michdenis
Bonjour Angèla,

| Ce que j'aimerai savoir c'est si je suis limitée dans les imbrication de Si.
| car j'ai une centaine de lignes à supprimer.

Selon les critères que tu as défini dans tes messages antérieures, la procédure
peut traiter autant de lignes dans tes fichiers texte que tu désires. Ce nombre
de lignes n'est pas lié au nombre d'imbrications de "Si". En VBA, tu peux
insérer autant d'imbrications que tu désires...la seule chose qui change, c'est
le temps de traitement ....!

| De plus je souhaiterai savoir s'il est possible de sélectionner par exemple
| les nombres compris entre 548 et 563 inclus et les nombres compris entre
| 3841 et 3858 et 3585 et 3591

Il faudrait que tu définisses avec plus de précision où se retrouvent ces nombres.
Dans un fichier .csv, tu as des colonnes... est-ce que ces nombres se retrouvent
dans une colonne particulière ?

Dans la procédure soumise, il est probablement possible d'ajouter du code pour
faire cette tâche, mais le temps d'exécution risque d'augmenter sensiblement. Si
tu ouvrais ton fichier final dans Excel, ce dernier possède beaucoup plus d'instrument
pour extraire toutes les données selon divers critères.

Il reste l'utilisation d'ADO... mais ceci est plus complexe... et si cette opération ne doit
servir qu'une fois ....!


Salutations!
1 2