lister des fichiers

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

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

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

bastientot@gmail.com 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

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" <jean_etie...@wanadoo.fr> a écrit dans le message de new s:
%23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...



> 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

> bastien...@gmail.com 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:=Cells(k, 1), Address:=  "D:Mon
>> dossierMusique" & Cells(k, 1), TextToDisplay:=Cells(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 -

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" <jean_etie...@wanadoo.fr> a écrit dans le message de new s:
%23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...



> 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

> bastien...@gmail.com 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:=Cells(k, 1), Address:=  "D:Mon
>> dossierMusique" & Cells(k, 1), TextToDisplay:=Cells(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 -

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" <jean_etie...@wanadoo.fr> a écrit dans le message de news:
%23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...



> 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

> bastien...@gmail.com 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 -

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:=Cell(k,1), Address:= _
"C:Documents and SettingsBruno JEUNEMes documents" & nom, _
TextToDisplay:=nom

<bastien...@gmail.com> a écrit dans le message de news:
fad53178-2e33-4254-a951-d1f62a34f...@a26g2000prf.googlegroups.com...
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:=Cells(k, 1), Address:="\mon
repertoireenvoyé" & Cells(k, 1), TextToDisplay:=Cells(k, 1).Value"

merci de votre aide.

On 8 jan, 18:28, "Youky (BJ)" <nospam.bruno.je...@wanadoo.fr> wrote:



> 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" <jean_etie...@wanadoo.fr> a écrit dans le message de n ews:
> %23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...

> > 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

> > bastien...@gmail.com 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:=Cells(k, 1), Address:= "D:Mo n
> >> dossierMusique" & Cells(k, 1), TextToDisplay:=Cells(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 -

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

<bastien...@gmail.com> a écrit dans le message de news:
fad53178-2e33-4254-a951-d1f62a34f...@a26g2000prf.googlegroups.com...
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)" <nospam.bruno.je...@wanadoo.fr> wrote:



> 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" <jean_etie...@wanadoo.fr> a écrit dans le message de
> news:
> %23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...

> > 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

> > bastien...@gmail.com 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 -

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:=Cells(k, 2), Address:=  _
"D:Mon dossierMusique" & Cells(k, 1) & ".xls", TextToDisplay:=Cells( k,
1).Value

Youky (BJ)

<bastien...@gmail.com> a écrit dans le message de news:
2caae29a-98d2-4b06-bf72-de7c8d1e1...@w24g2000prd.googlegroups.com...
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)" <nospam.bruno.je...@wanadoo.fr> wrote:



> 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:=Cell(k,1), Address:= _
> "C:Documents and SettingsBruno JEUNEMes documents" & nom, _
> TextToDisplay:=nom

> <bastien...@gmail.com> a écrit dans le message de news:
> fad53178-2e33-4254-a951-d1f62a34f...@a26g2000prf.googlegroups.com...
> 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:=Cells(k, 1), Address:="\mon
> repertoireenvoyé" & Cells(k, 1), TextToDisplay:=Cells(k, 1).Value "

> merci de votre aide.

> On 8 jan, 18:28, "Youky (BJ)" <nospam.bruno.je...@wanadoo.fr> wrote:

> > 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" <jean_etie...@wanadoo.fr> a écrit dans le message de
> > news:
> > %23drri6acJHA.1...@TK2MSFTNGP04.phx.gbl...

> > > 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

> > > bastien...@gmail.com 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:=Cells(k, 1), Address:= "D: Mon
> > >> dossierMusique" & Cells(k, 1), TextToDisplay:=Cells(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 -