lister des fichiers

Le
bastientot
BOnjour,

je ne comprends ou modifier le code pourqu'il commence a me mettre le
resultat en B2 et non en A1 ?

merci de votre aide.

Bonne soirée.


macro :
Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Répertoire = "D:Mon dossierMusique" 'Modifie le
répertoire
If Répertoire = "" Then Exit Sub
Set Dossier = fso.getfolder(Répertoire)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
For k = 1 To [A65536].End(3).Row
ActiveSheet.Hyperlinks.Add Anchor:=Cells(k, 1), Address:= "D:Mon
dossierMusique" & Cells(k, 1), TextToDisplay:=Cells(k, 1).Value
'attention au répertoire ci-dessus
Next
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean Etienne
Le #18335911
bonjour,
j'ai pas testé mais je pense que c'est çà :

ajouter " x=1" avant x = x + 1

et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

Jean-Étienne

a écrit :
BOnjour,

je ne comprends ou modifier le code pourqu'il commence a me mettre le
resultat en B2 et non en A1 ?

merci de votre aide.

Bonne soirée.


macro :
Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Répertoire = "D:Mon dossierMusique" 'Modifie le
répertoire
If Répertoire = "" Then Exit Sub
Set Dossier = fso.getfolder(Répertoire)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
For k = 1 To [A65536].End(3).Row
ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D:Mon
dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
'attention au répertoire ci-dessus
Next
End Sub


Youky \(BJ\)
Le #18336541
Bonsoir petite rectif à
ajouter " x=1" avant x = x + 1


mais ajouter " x=1" avant le For Each File In Files
Youky (BJ)

"Jean Etienne" %
bonjour,
j'ai pas testé mais je pense que c'est çà :

ajouter " x=1" avant x = x + 1

et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

Jean-Étienne

a écrit :
BOnjour,

je ne comprends ou modifier le code pourqu'il commence a me mettre le
resultat en B2 et non en A1 ?

merci de votre aide.

Bonne soirée.


macro :
Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, I As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Répertoire = "D:Mon dossierMusique" 'Modifie le
répertoire
If Répertoire = "" Then Exit Sub
Set Dossier = fso.getfolder(Répertoire)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
Fichier = File.Name
x = x + 1
Range("A" & x) = Fichier
Next
End If
For k = 1 To [A65536].End(3).Row
ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D:Mon
dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
'attention au répertoire ci-dessus
Next
End Sub




bastientot
Le #18340781
Bonjour,

j'ai une erreur de type "argument ou appel de procedure incorrect" et
cette ligne apparait en jaune au debug
"ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="
rmfrdeff601PORTAILGPIProjetGPI Cellule EvènementsRéférentielsFD S
envoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value"

merci de votre aide.


On 8 jan, 18:28, "Youky (BJ)"
Bonsoir petite rectif à>ajouter " x=1" avant  x = x + 1

mais ajouter " x=1" avant  le For Each File In Files
Youky (BJ)

"Jean Etienne" %



> bonjour,
> j'ai pas testé mais je pense que c'est çà :

> ajouter " x=1" avant  x = x + 1

> et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> Jean-Étienne

> a écrit :
>> BOnjour,

>> je ne comprends ou modifier le code pourqu'il commence a me mettre le
>> resultat en B2 et non en A1 ?

>> merci de votre aide.

>> Bonne soirée.

>> macro :
>> Sub TousFichiersDunDossier()
>> Dim fso As Object, Dossier As Object, NomDossier
>> Dim Files As Object, File As Object, I As Integer
>>      Set fso = CreateObject("Scripting.FileSystemObject")
>>      Répertoire = "D:Mon dossierMusique"         ' Modifie le
>> répertoire
>>      If Répertoire = "" Then Exit Sub
>>      Set Dossier = fso.getfolder(Répertoire)
>>      Set Files = Dossier.Files
>>      If Files.Count <> 0 Then
>>          For Each File In Files
>>           Fichier = File.Name
>>           x = x + 1
>>           Range("A" & x) = Fichier
>>          Next
>>      End If
>>     For k = 1 To [A65536].End(3).Row
>>     ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:=  "D:Mon
>> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
>>     'attention au répertoire ci-dessus
>>     Next
>> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


bastientot
Le #18340761
Bonjour,

j'ai une erreur de type "argument ou appel de procedure incorrect" et
cette ligne apparait en jaune au debug
"ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="\mon
repertoireenvoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value"


merci de votre aide.



On 8 jan, 18:28, "Youky (BJ)"
Bonsoir petite rectif à>ajouter " x=1" avant  x = x + 1

mais ajouter " x=1" avant  le For Each File In Files
Youky (BJ)

"Jean Etienne" %



> bonjour,
> j'ai pas testé mais je pense que c'est çà :

> ajouter " x=1" avant  x = x + 1

> et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> Jean-Étienne

> a écrit :
>> BOnjour,

>> je ne comprends ou modifier le code pourqu'il commence a me mettre le
>> resultat en B2 et non en A1 ?

>> merci de votre aide.

>> Bonne soirée.

>> macro :
>> Sub TousFichiersDunDossier()
>> Dim fso As Object, Dossier As Object, NomDossier
>> Dim Files As Object, File As Object, I As Integer
>>      Set fso = CreateObject("Scripting.FileSystemObject")
>>      Répertoire = "D:Mon dossierMusique"         ' Modifie le
>> répertoire
>>      If Répertoire = "" Then Exit Sub
>>      Set Dossier = fso.getfolder(Répertoire)
>>      Set Files = Dossier.Files
>>      If Files.Count <> 0 Then
>>          For Each File In Files
>>           Fichier = File.Name
>>           x = x + 1
>>           Range("A" & x) = Fichier
>>          Next
>>      End If
>>     For k = 1 To [A65536].End(3).Row
>>     ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:=  "D:Mon
>> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
>>     'attention au répertoire ci-dessus
>>     Next
>> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Youky \(BJ\)
Le #18345721
Tardivement,
Utilise une variable pour le nom de fichier
et modifie mon chemin d'accés
Youky (BJ)

nom = Cells(k, 1)
ActiveSheet.Hyperlinks.Add Anchor:Îll(k,1), Address:= _
"C:Documents and SettingsBruno JEUNEMes documents" & nom, _
TextToDisplay:=nom



Bonjour,

j'ai une erreur de type "argument ou appel de procedure incorrect" et
cette ligne apparait en jaune au debug
"ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="\mon
repertoireenvoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value"


merci de votre aide.



On 8 jan, 18:28, "Youky (BJ)"
Bonsoir petite rectif à>ajouter " x=1" avant x = x + 1

mais ajouter " x=1" avant le For Each File In Files
Youky (BJ)

"Jean Etienne" %



> bonjour,
> j'ai pas testé mais je pense que c'est çà :

> ajouter " x=1" avant x = x + 1

> et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> Jean-Étienne

> a écrit :
>> BOnjour,

>> je ne comprends ou modifier le code pourqu'il commence a me mettre le
>> resultat en B2 et non en A1 ?

>> merci de votre aide.

>> Bonne soirée.

>> macro :
>> Sub TousFichiersDunDossier()
>> Dim fso As Object, Dossier As Object, NomDossier
>> Dim Files As Object, File As Object, I As Integer
>> Set fso = CreateObject("Scripting.FileSystemObject")
>> Répertoire = "D:Mon dossierMusique" 'Modifie le
>> répertoire
>> If Répertoire = "" Then Exit Sub
>> Set Dossier = fso.getfolder(Répertoire)
>> Set Files = Dossier.Files
>> If Files.Count <> 0 Then
>> For Each File In Files
>> Fichier = File.Name
>> x = x + 1
>> Range("A" & x) = Fichier
>> Next
>> End If
>> For k = 1 To [A65536].End(3).Row
>> ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D:Mon
>> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
>> 'attention au répertoire ci-dessus
>> Next
>> End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


bastientot
Le #18366391
Bonjour du Lundi,

mecie de ta reponse et j'ai toujours le meme probleme je pense que
cela viens du fait que il va creer le lien hypetexte en a1 a la palce
de b2 ?? non

merci de ton aide.



On 9 jan, 17:26, "Youky (BJ)"
Tardivement,
Utilise une variable pour le nom de fichier
et modifie mon chemin d'accés
Youky (BJ)

nom = Cells(k, 1)
ActiveSheet.Hyperlinks.Add Anchor:Îll(k,1), Address:= _
"C:Documents and SettingsBruno JEUNEMes documents" & nom, _
TextToDisplay:=nom


Bonjour,

j'ai une erreur de type "argument ou appel de procedure incorrect" et
cette ligne apparait en jaune au debug
"ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="\mon
repertoireenvoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value"

merci de votre aide.

On 8 jan, 18:28, "Youky (BJ)"


> Bonsoir petite rectif à>ajouter " x=1" avant x = x + 1

> mais ajouter " x=1" avant le For Each File In Files
> Youky (BJ)

> "Jean Etienne" > %

> > bonjour,
> > j'ai pas testé mais je pense que c'est çà :

> > ajouter " x=1" avant x = x + 1

> > et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> > Jean-Étienne

> > a écrit :
> >> BOnjour,

> >> je ne comprends ou modifier le code pourqu'il commence a me mettre l e
> >> resultat en B2 et non en A1 ?

> >> merci de votre aide.

> >> Bonne soirée.

> >> macro :
> >> Sub TousFichiersDunDossier()
> >> Dim fso As Object, Dossier As Object, NomDossier
> >> Dim Files As Object, File As Object, I As Integer
> >> Set fso = CreateObject("Scripting.FileSystemObject")
> >> Répertoire = "D:Mon dossierMusique" 'Modifie le
> >> répertoire
> >> If Répertoire = "" Then Exit Sub
> >> Set Dossier = fso.getfolder(Répertoire)
> >> Set Files = Dossier.Files
> >> If Files.Count <> 0 Then
> >> For Each File In Files
> >> Fichier = File.Name
> >> x = x + 1
> >> Range("A" & x) = Fichier
> >> Next
> >> End If
> >> For k = 1 To [A65536].End(3).Row
> >> ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D:Mo n
> >> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
> >> 'attention au répertoire ci-dessus
> >> Next
> >> End Sub- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Youky \(BJ\)
Le #18367321
Bonjour,
le nom du fichier en colonne A doit être:
toto.xls
tutu.xls
si tu as .....
toto
tutu
voici et j'ai remplacé 1 par 2 qui indique le N° de colonne
et plus besoin de la variable nom.
ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 2), Address:= _
"D:Mon dossierMusique" & Cells(k, 1) & ".xls", TextToDisplay:Îlls(k,
1).Value

Youky (BJ)


Bonjour du Lundi,

mecie de ta reponse et j'ai toujours le meme probleme je pense que
cela viens du fait que il va creer le lien hypetexte en a1 a la palce
de b2 ?? non

merci de ton aide.



On 9 jan, 17:26, "Youky (BJ)"
Tardivement,
Utilise une variable pour le nom de fichier
et modifie mon chemin d'accés
Youky (BJ)

nom = Cells(k, 1)
ActiveSheet.Hyperlinks.Add Anchor:Îll(k,1), Address:= _
"C:Documents and SettingsBruno JEUNEMes documents" & nom, _
TextToDisplay:=nom


Bonjour,

j'ai une erreur de type "argument ou appel de procedure incorrect" et
cette ligne apparait en jaune au debug
"ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="\mon
repertoireenvoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value"

merci de votre aide.

On 8 jan, 18:28, "Youky (BJ)"


> Bonsoir petite rectif à>ajouter " x=1" avant x = x + 1

> mais ajouter " x=1" avant le For Each File In Files
> Youky (BJ)

> "Jean Etienne" > news:
> %

> > bonjour,
> > j'ai pas testé mais je pense que c'est çà :

> > ajouter " x=1" avant x = x + 1

> > et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> > Jean-Étienne

> > a écrit :
> >> BOnjour,

> >> je ne comprends ou modifier le code pourqu'il commence a me mettre le
> >> resultat en B2 et non en A1 ?

> >> merci de votre aide.

> >> Bonne soirée.

> >> macro :
> >> Sub TousFichiersDunDossier()
> >> Dim fso As Object, Dossier As Object, NomDossier
> >> Dim Files As Object, File As Object, I As Integer
> >> Set fso = CreateObject("Scripting.FileSystemObject")
> >> Répertoire = "D:Mon dossierMusique" 'Modifie le
> >> répertoire
> >> If Répertoire = "" Then Exit Sub
> >> Set Dossier = fso.getfolder(Répertoire)
> >> Set Files = Dossier.Files
> >> If Files.Count <> 0 Then
> >> For Each File In Files
> >> Fichier = File.Name
> >> x = x + 1
> >> Range("A" & x) = Fichier
> >> Next
> >> End If
> >> For k = 1 To [A65536].End(3).Row
> >> ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D:Mon
> >> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value
> >> 'attention au répertoire ci-dessus
> >> Next
> >> End Sub- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -


bastientot
Le #18367601
BOnjour,

c bon en modificant cette ligne For k = 2 To [b65536].End(3).Row

merci de ton aide

bonne journée.

On 12 jan, 10:49, "Youky (BJ)" wrote:
Bonjour,
le nom du fichier en colonne A doit être:
toto.xls
tutu.xls
si tu as .....
toto
tutu
voici et j'ai remplacé 1 par 2 qui indique le N° de colonne
et plus besoin de la variable nom.
ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 2), Address:=  _
"D:Mon dossierMusique" & Cells(k, 1) & ".xls", TextToDisplay:Îlls( k,
1).Value

Youky (BJ)


Bonjour du Lundi,

mecie de ta reponse et j'ai toujours le meme probleme je pense que
cela viens du fait que il va creer le lien hypetexte en a1 a la palce
de b2 ?? non

merci de ton aide.

On 9 jan, 17:26, "Youky (BJ)"


> Tardivement,
> Utilise une variable pour le nom de fichier
> et modifie mon chemin d'accés
> Youky (BJ)

> nom = Cells(k, 1)
> ActiveSheet.Hyperlinks.Add Anchor:Îll(k,1), Address:= _
> "C:Documents and SettingsBruno JEUNEMes documents" & nom, _
> TextToDisplay:=nom

> >
> Bonjour,

> j'ai une erreur de type "argument ou appel de procedure incorrect" et
> cette ligne apparait en jaune au debug
> "ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:="\mon
> repertoireenvoyé" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Value "

> merci de votre aide.

> On 8 jan, 18:28, "Youky (BJ)"
> > Bonsoir petite rectif à>ajouter " x=1" avant x = x + 1

> > mais ajouter " x=1" avant le For Each File In Files
> > Youky (BJ)

> > "Jean Etienne" > > news:
> > %

> > > bonjour,
> > > j'ai pas testé mais je pense que c'est çà :

> > > ajouter " x=1" avant x = x + 1

> > > et mettre "B" à la place de "A" dans : Range("A" & x) = Fichier

> > > Jean-Étienne

> > > a écrit :
> > >> BOnjour,

> > >> je ne comprends ou modifier le code pourqu'il commence a me mettre le
> > >> resultat en B2 et non en A1 ?

> > >> merci de votre aide.

> > >> Bonne soirée.

> > >> macro :
> > >> Sub TousFichiersDunDossier()
> > >> Dim fso As Object, Dossier As Object, NomDossier
> > >> Dim Files As Object, File As Object, I As Integer
> > >> Set fso = CreateObject("Scripting.FileSystemObject")
> > >> Répertoire = "D:Mon dossierMusique" 'Modifie le
> > >> répertoire
> > >> If Répertoire = "" Then Exit Sub
> > >> Set Dossier = fso.getfolder(Répertoire)
> > >> Set Files = Dossier.Files
> > >> If Files.Count <> 0 Then
> > >> For Each File In Files
> > >> Fichier = File.Name
> > >> x = x + 1
> > >> Range("A" & x) = Fichier
> > >> Next
> > >> End If
> > >> For k = 1 To [A65536].End(3).Row
> > >> ActiveSheet.Hyperlinks.Add Anchor:Îlls(k, 1), Address:= "D: Mon
> > >> dossierMusique" & Cells(k, 1), TextToDisplay:Îlls(k, 1).Valu e
> > >> 'attention au répertoire ci-dessus
> > >> Next
> > >> End Sub- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -- Masquer le texte d es
> > messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Publicité
Poster une réponse
Anonyme