Récupérer le contenu d'un répertoire en VBA

Le
Fabian
Bonjour à tous,

Il y a plusieurs années, j'avais obtenu un programme bien pratique
permettant de récupérer en excel le contenu d'un répertoire.

Ceci est très pratique si vous voulez comparer 2 répertoires et repérer les
doublons (ou non doublons).

Voir ci-dessous le programme écrit en 2000 par B. Gérard pour MPFE.


Ma question : le programme s'arrête si les caractères du nom du fichier
récupéré sont en grec, russe ou autre langue.

Quelqu'un peut-il me dire comment modifier le fichier pour qu'il ne bloque
pas lorsqu'il rencontre des caractères spéciaux ?

Un tout grand merci par avance.

Fabian






Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier
LeFichier = Dir(RepertParent & ExtFichier)
If Len(LeFichier) = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If
Do While Len(LeFichier) <> 0
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = LeFichier
ActiveCell.Offset(1, -1).Select
LeFichier = Dir
Loop
'Compter le nombre de sous-répertoires
NbreRepert = 0
LeDossier = Dir(RepertParent, vbDirectory)
Do While LeDossier <> ""
If LeDossier <> "." And LeDossier <> ".." Then
If (GetAttr(RepertParent & LeDossier) _
And vbDirectory) = vbDirectory Then
NbreRepert = NbreRepert + 1
End If
End If
LeDossier = Dir
Loop
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
LeDossierLocal(Compteur) = Dir(RepertParent, vbDirectory)
Do While LeDossierLocal(Compteur) <> ""
If LeDossierLocal(Compteur) <> "." _
And LeDossierLocal(Compteur) <> ".." Then
If (GetAttr(RepertParent & LeDossierLocal(Compteur)) _
And vbDirectory) = vbDirectory Then
Compteur = Compteur + 1
End If
End If
LeDossierLocal(Compteur) = Dir
Loop
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub
'Cette macro est lancée en premier
Sub Essai()
Dim LeChemin As String
Dim Lextension As String
Dim LeTitre As String
Dim LeMessage As String
Dim Arret As Boolean

LeTitre = "Répertoires et sous-répertoires"
LeMessage = "Taper le nom complet du répertoire"
Arret = False
Application.ScreenUpdating = False
Sheets.Add
Do
LeChemin = ChoisirDossier 'InputBox(LeMessage, LeTitre, LeChemin)
If Len(LeChemin) = 0 Then
Arret = True
Else
If Mid(LeChemin, Len(LeChemin), 1) <> "" Then
LeChemin = LeChemin + ""
End If
If Len(Dir(LeChemin, vbDirectory)) <> 0 Then
Lextension = InputBox("Taper le type de fichier à afficher",
LeTitre, "*.*")
Call Remplir(LeChemin, Lextension)
Arret = True
Else
LeMessage = "Répertoire introuvableRecommencer ?"
End If
End If
Loop Until Arret
End Sub

Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:WindowsBureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function
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
DanielCo
Le #23640361
Bonjour,
N'ayant pas de nom de dossier en grec, peux-tu dire sur quelle
instruction la macro plante ?
Cordialement.
Daniel

Bonjour à tous,

Il y a plusieurs années, j'avais obtenu un programme bien pratique
permettant de récupérer en excel le contenu d'un répertoire.

Ceci est très pratique si vous voulez comparer 2 répertoires et repérer les
doublons (ou non doublons).

Voir ci-dessous le programme écrit en 2000 par B. Gérard pour MPFE.


Ma question : le programme s'arrête si les caractères du nom du fichier
récupéré sont en grec, russe ou autre langue.

Quelqu'un peut-il me dire comment modifier le fichier pour qu'il ne bloque
pas lorsqu'il rencontre des caractères spéciaux ?

Un tout grand merci par avance.

Fabian



--
Pour plus de facilité, veuillez préciser votre version d'Excel
Cordialement.
Daniel
Jean-Claude
Le #23641071
Bonjour,

il semble que ce soit la fonction Dir qui pose problème sur les fichiers ou
répertoires en alphabet non romain.

J'ai supprimé ce Dir et l'ai remplacé par les méthodes SubFolder, Folders et
Files dans "Remplir" ci-dessous.
Ca semble bien fonctionner en testant sur l'alphabet cyrilique, et les noms
s'affichent bien en cyrilique également dans le tableau résultat.
NB : je n'ai pas changé le principe de l'algorithme (que j'aurais peut-être
écrit différemment).

Cordialement,
Jean-Claude



Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub
Jean-Claude
Le #23641061
Attention si tu utilises les masques *.* ou autres : j'ai utilisé
l'opérateur like qui utilise le même principe des * et des ?, mais ne
considère pas la présence d'extension. Donc pour avoir tous les fichiers ce
n'est pas *.* mais * simplement.
Jean-Claude
DanielCo
Le #23641261
On considère donc ton problème comme résolu ?
Daniel


Bonjour,

il semble que ce soit la fonction Dir qui pose problème sur les fichiers ou
répertoires en alphabet non romain.

J'ai supprimé ce Dir et l'ai remplacé par les méthodes SubFolder, Folders et
Files dans "Remplir" ci-dessous.
Ca semble bien fonctionner en testant sur l'alphabet cyrilique, et les noms
s'affichent bien en cyrilique également dans le tableau résultat.
NB : je n'ai pas changé le principe de l'algorithme (que j'aurais peut-être
écrit différemment).

Cordialement,
Jean-Claude



Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub



--
Pour plus de facilité, veuillez préciser votre version d'Excel
Cordialement.
Daniel
Fabian
Le #23643131
Merci pour la solution.

Cependant, je n'ai pas bien compris comment l'utiliser.

Quelle partie du programme dois-je remplacer et par quoi ?

Merci d'avance.

Fabian

"Jean-Claude" groupe de discussion : 4e412680$0$30790$
Bonjour,

il semble que ce soit la fonction Dir qui pose problème sur les fichiers
ou répertoires en alphabet non romain.

J'ai supprimé ce Dir et l'ai remplacé par les méthodes SubFolder, Folders
et Files dans "Remplir" ci-dessous.
Ca semble bien fonctionner en testant sur l'alphabet cyrilique, et les
noms s'affichent bien en cyrilique également dans le tableau résultat.
NB : je n'ai pas changé le principe de l'algorithme (que j'aurais
peut-être écrit différemment).

Cordialement,
Jean-Claude



Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub

DanielCo
Le #23643531
Bonjour,
Sans l'avoir testé, tu dois remplacer ton code par la maccro de
Jean-Claude.


Merci pour la solution.

Cependant, je n'ai pas bien compris comment l'utiliser.

Quelle partie du programme dois-je remplacer et par quoi ?

Merci d'avance.

Fabian

"Jean-Claude" de discussion : 4e412680$0$30790$
Bonjour,

il semble que ce soit la fonction Dir qui pose problème sur les fichiers ou
répertoires en alphabet non romain.

J'ai supprimé ce Dir et l'ai remplacé par les méthodes SubFolder, Folders
et Files dans "Remplir" ci-dessous.
Ca semble bien fonctionner en testant sur l'alphabet cyrilique, et les noms
s'affichent bien en cyrilique également dans le tableau résultat.
NB : je n'ai pas changé le principe de l'algorithme (que j'aurais peut-être
écrit différemment).

Cordialement,
Jean-Claude



Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub






--
Pour plus de facilité, veuillez préciser votre version d'Excel
Cordialement.
Daniel
Jean-Claude
Le #23644321
"Fabian" 4e421b44$0$5033$
Merci pour la solution.

Cependant, je n'ai pas bien compris comment l'utiliser.

Quelle partie du programme dois-je remplacer et par quoi ?

Merci d'avance.

Fabian




Si tu as un doute, remplace tout ce que tu as copié et collé dans ton
message initial, par tout ce qui est ci-dessous :
(mais seule la partie entre "Sub Remplir" et "End Sub" a été modifiée)
(pour l'utilisation, tu fais comme tu en avais l'habitude)


Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub

'Cette macro est lancée en premier
Sub Essai()
Dim LeChemin As String
Dim Lextension As String
Dim LeTitre As String
Dim LeMessage As String
Dim Arret As Boolean

LeTitre = "Répertoires et sous-répertoires"
LeMessage = "Taper le nom complet du répertoire"
Arret = False
Application.ScreenUpdating = False
Sheets.Add
Do
LeChemin = ChoisirDossier 'InputBox(LeMessage, LeTitre, LeChemin)
If Len(LeChemin) = 0 Then
Arret = True
Else
If Mid(LeChemin, Len(LeChemin), 1) <> "" Then
LeChemin = LeChemin + ""
End If
If Len(Dir(LeChemin, vbDirectory)) <> 0 Then
Lextension = InputBox("Taper le type de fichier à afficher",
LeTitre, "*.*")
Call Remplir(LeChemin, Lextension)
Arret = True
Else
LeMessage = "Répertoire introuvable...Recommencer ?"
End If
End If
Loop Until Arret
End Sub

Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:WindowsBureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function
Fabian
Le #23654511
Super ! Ca marche.

Un grand merci pour votre aide !


Fabian

"Jean-Claude" groupe de discussion : 4e427ebf$0$30772$

"Fabian" 4e421b44$0$5033$
Merci pour la solution.

Cependant, je n'ai pas bien compris comment l'utiliser.

Quelle partie du programme dois-je remplacer et par quoi ?

Merci d'avance.

Fabian




Si tu as un doute, remplace tout ce que tu as copié et collé dans ton
message initial, par tout ce qui est ci-dessous :
(mais seule la partie entre "Sub Remplir" et "End Sub" a été modifiée)
(pour l'utilisation, tu fais comme tu en avais l'habitude)


Sub Remplir(RepertParent, ExtFichier)
' Remplit la feuille courante avec le contenu du répertoire RepertParent
' Les noms de répertoires sont placés dans la colonne active à partir de
' la cellule active
' Les noms de fichiers correspondants à ExtFichier sont affichés dans la
' colonne de droite
' 14/02/2000 18:30, Gérard B, mpfe

Dim Compteur As Integer
Dim NbreRepert As Integer
Dim LeFichier As String
Dim LeDossier As String
Dim ExtLocale As String
Dim ParentLocal As String
Dim LeDossierLocal() As String

ExtLocale = ExtFichier

Dim fs, f, f1, s, sf, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(RepertParent)
Set sf = f.Files
n = 0
For Each f1 In sf
If f1.Name Like ExtFichier Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = f1.Name
ActiveCell.Offset(1, -1).Select
n = n + 1
End If
Next
If n = 0 Then
ActiveCell.Value = RepertParent
ActiveCell.Offset(1, 0).Select
End If

'Compter le nombre de sous-répertoires
Set sf = f.SubFolders
NbreRepert = sf.Count
ReDim LeDossierLocal(NbreRepert + 1)
Compteur = 1
For Each f1 In sf
LeDossierLocal(Compteur) = f1.Name
Compteur = Compteur + 1
Next
For Compteur = 1 To UBound(LeDossierLocal()) - 1
ParentLocal = RepertParent & LeDossierLocal(Compteur) & ""
Call Remplir(ParentLocal, ExtLocale)
Next

'Redéfinir la largeur des colonnes
Columns("A:A").ColumnWidth = 85
Columns("B:B").ColumnWidth = 50

End Sub

'Cette macro est lancée en premier
Sub Essai()
Dim LeChemin As String
Dim Lextension As String
Dim LeTitre As String
Dim LeMessage As String
Dim Arret As Boolean

LeTitre = "Répertoires et sous-répertoires"
LeMessage = "Taper le nom complet du répertoire"
Arret = False
Application.ScreenUpdating = False
Sheets.Add
Do
LeChemin = ChoisirDossier 'InputBox(LeMessage, LeTitre, LeChemin)
If Len(LeChemin) = 0 Then
Arret = True
Else
If Mid(LeChemin, Len(LeChemin), 1) <> "" Then
LeChemin = LeChemin + ""
End If
If Len(Dir(LeChemin, vbDirectory)) <> 0 Then
Lextension = InputBox("Taper le type de fichier à afficher",
LeTitre, "*.*")
Call Remplir(LeChemin, Lextension)
Arret = True
Else
LeMessage = "Répertoire introuvable...Recommencer ?"
End If
End If
Loop Until Arret
End Sub

Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:WindowsBureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function



Publicité
Poster une réponse
Anonyme