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
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
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
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
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
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
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" a écrit dans le message de new s:
%
> 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 -
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" a écrit dans le message de new s:
%
> 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 -
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" a écrit dans le message de new s:
%
> 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 -
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" a écrit dans le message de new s:
%
> 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 -
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" a écrit dans le message de 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 -
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 -
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" a écrit dans le message de 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 -
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
a écrit dans le message de news:
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)" 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" a écrit dans le message de n ews:
> %
> > 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 -
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
a écrit dans le message de news:
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)" 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" a écrit dans le message de n ews:
> %
> > 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 -
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
a écrit dans le message de news:
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)" 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" a écrit dans le message de
> 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 -
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 -
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
a écrit dans le message de news:
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)" 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" a écrit dans le message de
> 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 -
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)
a écrit dans le message de news:
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)" 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:Îll(k,1), Address:= _
> "C:Documents and SettingsBruno JEUNEMes documents" & nom, _
> TextToDisplay:=nom
> a écrit dans le message de news:
>
> 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)" 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" a écrit dans le message de
> > 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 -
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 -
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)
a écrit dans le message de news:
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)" 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:Îll(k,1), Address:= _
> "C:Documents and SettingsBruno JEUNEMes documents" & nom, _
> TextToDisplay:=nom
> a écrit dans le message de news:
>
> 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)" 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" a écrit dans le message de
> > 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 -