Lister fichiers d'un répertoire

Salut Mytå,

j'attendais ta réponse à :

fchier "Gravure CD&DVD"

dans mon exemple pré-cité, c'est nickel avec option 4700 Megs, il me faut 3 DVD

j'ai tester avec option 700 Megs, (les mêmes fichiers pour voir) et là il me prend les fichiers > que 700,

n'y a t-il pas un contrôle, normalement çà devrait pas les prendre !

a-tu fini la correction des formules, car moi, j'ai peut-être "merdouillé"

Comment faire , ouvrir un autre "post" ?

pour moi, c'est pas tout à fait résolu !

amicalement

Claude.

Salut le forum

Claude, ajouter une condition à la macro et le problème résolu, mais tu aurais du ouvrir

une nouvelle ficelle, car pas de rapport avec ta question d'origine.

Sub Final_1()
'Ecrire les combinaisons de 1 circuit restant

For A1 = 1 To Circuit

If Valeur(A1) = 0 Then GoTo Suivant

If Valeur(A1) <= Maximum Then
Sheets("Resultats").Cells(A1 + 5, Colonne) = Valeur(A1)
Colonne = Colonne + 1
Valeur(A1) = 0
End If
Suivant:

Next A1
Call Voir_reste
End Sub

Mytå

Bonjour à tous ,

C'est vrai, je vais essayé ce code et si çà coince , j'ouvre un autre fil.

encore merci

amicalement

Claude.

Bonjour à vous !

en liens avec ce probleme résolu :

est ce que cest possible de créer des liens hypertexte pour chaque onglet meme si c'est le meme fichier ?

je sais pas si je suis clair...

quand la liste sort, qu'il te mette

G:/A.xls(onglet"X4E")

G:/A.xls(onglet"DA2")

vous pensez que c'est possible ?

J'ai trouvé ca pour lister les onglets présents

j'aimerais bien pouvoir grouper ces 2 macros pour que les liens utilise cette liste d'onglet présent pour aussi les mettre dans la liste des liens hypertexte...

quelqu'un aurait-il une idée de génie ?

merci d'avance

For i = 1 To Sheets.Count
    msge = msge & vbNewLine & Sheets(i).Name
Next i

MsgBox "Le classeur comporte les onglets " _
    & "suivant : " & vbNewLine & msge, , "Liste des onglets"