OVH Cloud OVH Cloud

Est-il possible de lister des fichiers?

4 réponses
Avatar
iroc-z
Bonjour a tous,

je suis confronte a un pb que ne sais comment resoudre.
j'ai un document excel (suivis de devis) avec plusieurs fiches (1 par mois)
qui contient des infos par rapport a des devis contenus ds des repertoires (1
par mois).
j'ai plusieur devis par mois (heureusement pour moi;-) et donc plusieur
fichiers devis par repertoire.

J'aimerai (si c'est possible), a l'ouverture de mon document de suivis de
devis, pouvoir dans une fiche (par ex:Janvier) ajouter le nombre de lignes en
fonction du nombre de fichiers devis (du repertoire Janvier donc)
puis recuperer les infos. (chaque ligne correspondant a un fichier devis)

Pour ce qui est de piocher les infos dans un fichier et la faire apparaitre
ds la bonne cellule de ma ligne pas de pb.
En revenche pouvoir inserer le nb de lignes en fonction du nombre de
fichiers presents ds le repertoire concerne, la, je seche!

Je vouerai une eternelle reconnaissance a celui ou celle qui pourra me
sauver!!!! ;-)

Bien amicalement,

Jeremy.

4 réponses

Avatar
Clément Marcotte
Bonjour,

Quelques exemples par là:

http://frederic.sigonneau.free.fr/Fichiers.htm

--
On n' apprend pas à un vieux singe à faire des grimaces
"iroc-z" a écrit dans le message de
news:
Bonjour a tous,

je suis confronte a un pb que ne sais comment resoudre.
j'ai un document excel (suivis de devis) avec plusieurs fiches (1
par mois)

qui contient des infos par rapport a des devis contenus ds des
repertoires (1

par mois).
j'ai plusieur devis par mois (heureusement pour moi;-) et donc
plusieur

fichiers devis par repertoire.

J'aimerai (si c'est possible), a l'ouverture de mon document de
suivis de

devis, pouvoir dans une fiche (par ex:Janvier) ajouter le nombre de
lignes en

fonction du nombre de fichiers devis (du repertoire Janvier donc)
puis recuperer les infos. (chaque ligne correspondant a un fichier
devis)


Pour ce qui est de piocher les infos dans un fichier et la faire
apparaitre

ds la bonne cellule de ma ligne pas de pb.
En revenche pouvoir inserer le nb de lignes en fonction du nombre de
fichiers presents ds le repertoire concerne, la, je seche!

Je vouerai une eternelle reconnaissance a celui ou celle qui pourra
me

sauver!!!! ;-)

Bien amicalement,

Jeremy.




Avatar
Phil99999
Sub listFich()

Dim fs, fso
Dim i As Integer

Set fs = Application.FileSearch

With fs
.LookIn = "C:REP" 'Ton répertoire
.Filename = "*.txt" 'Ton filtre
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & _
" fichiers trouvés."


For i = 1 To .FoundFiles.Count

'Ici ce que tu dois faire pour chaque fichiers trouvés


Next i
Else
MsgBox "PAs de fichiers trouvés."
End If
End With

End Sub


Phil

Bonjour a tous,

je suis confronte a un pb que ne sais comment resoudre.
j'ai un document excel (suivis de devis) avec plusieurs fiches (1 par mois)
qui contient des infos par rapport a des devis contenus ds des repertoires (1
par mois).
j'ai plusieur devis par mois (heureusement pour moi;-) et donc plusieur
fichiers devis par repertoire.

J'aimerai (si c'est possible), a l'ouverture de mon document de suivis de
devis, pouvoir dans une fiche (par ex:Janvier) ajouter le nombre de lignes en
fonction du nombre de fichiers devis (du repertoire Janvier donc)
puis recuperer les infos. (chaque ligne correspondant a un fichier devis)

Pour ce qui est de piocher les infos dans un fichier et la faire apparaitre
ds la bonne cellule de ma ligne pas de pb.
En revenche pouvoir inserer le nb de lignes en fonction du nombre de
fichiers presents ds le repertoire concerne, la, je seche!

Je vouerai une eternelle reconnaissance a celui ou celle qui pourra me
sauver!!!! ;-)

Bien amicalement,

Jeremy.




Avatar
Jacques93
Bonjour,

Dim Chemin As String
Dim Devis As String
Dim nbDevis As Integer

Chemin = "TonChemin"
nbDevis = 0
Devis = Dir(Chemin & "*.xls")
While Len(Devis) > 0
nbDevis = nbDevis + 1
Cells(nbDevis + 1, 1) = Devis
Devis = Dir()
Wend
Cells(1, 1) = nbDevis & " Devis"


Bonjour a tous,

je suis confronte a un pb que ne sais comment resoudre.
j'ai un document excel (suivis de devis) avec plusieurs fiches (1 par mois)
qui contient des infos par rapport a des devis contenus ds des repertoires (1
par mois).
j'ai plusieur devis par mois (heureusement pour moi;-) et donc plusieur
fichiers devis par repertoire.

J'aimerai (si c'est possible), a l'ouverture de mon document de suivis de
devis, pouvoir dans une fiche (par ex:Janvier) ajouter le nombre de lignes en
fonction du nombre de fichiers devis (du repertoire Janvier donc)
puis recuperer les infos. (chaque ligne correspondant a un fichier devis)

Pour ce qui est de piocher les infos dans un fichier et la faire apparaitre
ds la bonne cellule de ma ligne pas de pb.
En revenche pouvoir inserer le nb de lignes en fonction du nombre de
fichiers presents ds le repertoire concerne, la, je seche!

Je vouerai une eternelle reconnaissance a celui ou celle qui pourra me
sauver!!!! ;-)

Bien amicalement,

Jeremy.





--
Cordialement,

Jacques.

Avatar
iroc-z
Un Gros merci a tous ceux qui m'on aide!
Je vais utiliser les 3 solutions tour a tour histoire d'apprendre un peu plus.
ben vi, je debute en Excel! ;-)

Merci bcp en tout cas z'etes super sympa!


Bonjour a tous,

je suis confronte a un pb que ne sais comment resoudre.
j'ai un document excel (suivis de devis) avec plusieurs fiches (1 par mois)
qui contient des infos par rapport a des devis contenus ds des repertoires (1
par mois).
j'ai plusieur devis par mois (heureusement pour moi;-) et donc plusieur
fichiers devis par repertoire.

J'aimerai (si c'est possible), a l'ouverture de mon document de suivis de
devis, pouvoir dans une fiche (par ex:Janvier) ajouter le nombre de lignes en
fonction du nombre de fichiers devis (du repertoire Janvier donc)
puis recuperer les infos. (chaque ligne correspondant a un fichier devis)

Pour ce qui est de piocher les infos dans un fichier et la faire apparaitre
ds la bonne cellule de ma ligne pas de pb.
En revenche pouvoir inserer le nb de lignes en fonction du nombre de
fichiers presents ds le repertoire concerne, la, je seche!

Je vouerai une eternelle reconnaissance a celui ou celle qui pourra me
sauver!!!! ;-)

Bien amicalement,

Jeremy.