COPIE NOMS FICHIERS DS BASE DONNEES

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,
(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller, mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car ensuite je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,
(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller, mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

La macro suivante te permet de choisir un répertoire. Elle affiche ce
répertoire dans une boîte message. A toi de l'utiliser suivant tes besoins.

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: E1C96566-57DA-40DE-BD7D-756348CCE9EE@microsoft.com...

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car ensuite je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,
(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

J'ai dû faire une fausse manip mais je ne sais pas où.
J'ai fait outil macro dans excel, j'ai créé la macro "répertoire"
J'ai copié cette macro mais elle ouvre l'explorateur mais ne me permet pas
de faire autre chose, je n'ai pas de "boite de message", il apparaît ensuite :
Erreur d'exécution '5'
la ligne MsgBox... apparaît surlignée jaune
Argument ou appel de procédure incorrect
Encore merci pour votre aide

La macro suivante te permet de choisir un répertoire. Elle affiche ce
répertoire dans une boîte message. A toi de l'utiliser suivant tes besoins.

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: E1C96566-57DA-40DE-BD7D-756348CCE9EE@microsoft.com...

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car ensuite je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,
(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

La macro te permet de choisir un répertoire. Clique sur celui de ton choix,
puis sur "OK". J'ai l'erreur d'exécution 5 quand je clique sur "annuler".
Pour éviter ceci, modifie comme suit :

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
On Error Resume Next
MsgBox .SelectedItems(1)
End With
End Sub

Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 52AB56E9-B666-48C1-8006-2580C68C9A7F@microsoft.com...

J'ai dû faire une fausse manip mais je ne sais pas où.
J'ai fait outil macro dans excel, j'ai créé la macro "répertoire"
J'ai copié cette macro mais elle ouvre l'explorateur mais ne me permet pas
de faire autre chose, je n'ai pas de "boite de message", il apparaît
ensuite :
Erreur d'exécution '5'
la ligne MsgBox... apparaît surlignée jaune
Argument ou appel de procédure incorrect
Encore merci pour votre aide

La macro suivante te permet de choisir un répertoire. Elle affiche ce
répertoire dans une boîte message. A toi de l'utiliser suivant tes
besoins.

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: E1C96566-57DA-40DE-BD7D-756348CCE9EE@microsoft.com...

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car ensuite
je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton
disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans
le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de
données
excel,
(j'ai plus de 500 photos classées sous différents répertoires)
comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

Ok cela marche, mais cela ne répond pas à ce que je veux faire, ou alors je
ne sais pas m'en servir.
Je veux dans un fichier excel avoir une liste de noms de fichiers qui sont
placés dans un répertoire sans avoir à taper ces noms de fichiers les uns
après les autres, en somme un copier coller des noms de fichiers dans une
feuille excel.

Merci

La macro te permet de choisir un répertoire. Clique sur celui de ton choix,
puis sur "OK". J'ai l'erreur d'exécution 5 quand je clique sur "annuler".
Pour éviter ceci, modifie comme suit :

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
On Error Resume Next
MsgBox .SelectedItems(1)
End With
End Sub

Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 52AB56E9-B666-48C1-8006-2580C68C9A7F@microsoft.com...

J'ai dû faire une fausse manip mais je ne sais pas où.
J'ai fait outil macro dans excel, j'ai créé la macro "répertoire"
J'ai copié cette macro mais elle ouvre l'explorateur mais ne me permet pas
de faire autre chose, je n'ai pas de "boite de message", il apparaît
ensuite :
Erreur d'exécution '5'
la ligne MsgBox... apparaît surlignée jaune
Argument ou appel de procédure incorrect
Encore merci pour votre aide

La macro suivante te permet de choisir un répertoire. Elle affiche ce
répertoire dans une boîte message. A toi de l'utiliser suivant tes
besoins.

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: E1C96566-57DA-40DE-BD7D-756348CCE9EE@microsoft.com...

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car ensuite
je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton
disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans
le
message de news: 39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de
données
excel,
(j'ai plus de 500 photos classées sous différents répertoires)
comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

bjr pour faire avancer le schmilblik , windowsnews dans le N° de nov 04 a
donné une macro permettant de lister dans 1 fichier excel les fichiers
contenus dans un repertoire avec lien hypertexte vers ces fichiers .....je
veux bien donner cette macro quoique ce ne soit un peu long
chez moi ça fonctionne

"Sub ContenuDossier()
Dim vFSO As Object, vDossier As Object
Dim vListeFichiers As Object
Dim vFeuille As Worksheet
Dim vEnTetes, vArrFSO
Dim vNomDossier, vFichier, vLecteur
Dim i As Integer
Application.ScreenUpdating = False
Set vFSO = CreateObject("Scripting.FileSystemObject")
vLecteur = Left(InputBox("lettre de lecteur", "liste des fichiers"), 1) & ":/"
If vLecteur = "" Then Exit Sub
vNomDossier = ChoixDossierFichier(vLecteur)
If vNomDossier = "" Then Exit Sub
Set vDossier = vFSO.GetFolder(vNomDossier)
Set vListeFichiers = vDossier.Files
If vListeFichiers.Count <> 0 Then
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
vEnTetes = Array("Chemin", "Nom", "Création", "Dernière modification",
"Dernier accès", "Taille", "Type", "Attribut(s)")
With ActiveSheet.Range("A1:H1")
.Value = vEnTetes
.Font.Bold = True
.Interior.ColorIndex = 15
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
i = 1
For Each vFichier In vListeFichiers
i = i + 1
ActiveSheet.Cells(i, 1) = vFichier.ParentFolder
ActiveSheet.Hyperlinks.Add Anchor:¬tiveSheet.Cells(i, 2),
Address:=vFichier.ParentFolder & "" & vFichier.Name,
TextToDisplay:=vFichier.Name
ActiveSheet.Cells(i, 3) = vFichier.DateCreated
ActiveSheet.Cells(i, 4) = vFichier.DateLastModified
ActiveSheet.Cells(i, 5) = vFichier.DateLastAccessed
ActiveSheet.Cells(i, 6) = vFichier.Size
ActiveSheet.Cells(i, 7) = vFichier.Type
ActiveSheet.Cells(i, 8) = Attributs(vFichier.Attributes)
Next
End If
ActiveSheet.UsedRange.EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter
Set vFSO = Nothing
Set vFeuille = Nothing
Set vDossier = Nothing
Set vFichier = Nothing
End Sub
Function Attributs(pAttrib)
Dim vRésultat
If pAttrib = 0 Then vRésultat = "-"
If pAttrib And 1 Then vRésultat = vRésultat & "L"
If pAttrib And 2 Then vRésultat = vRésultat & "C"
If pAttrib And 4 Then vRésultat = vRésultat & "S"
If pAttrib And 32 Then vRésultat = vRésultat & "A"
Attributs = vRésultat
End Function
Function ChoixDossierFichier(pRacine)
Dim objShell, objFolder, vChemin, SecuriteSlash, FlagChoix&, vMessage,
vDoublePoint
vMessage = "Choisissez un fichier :"
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, vMessage, &H4000&, pRacine)
vDoublePoint = InStr(objFolder.Title, ":")
If vDoublePoint > 0 Then
vChemin = Mid(objFolder.Title, vDoublePoint - 1, 2) & ""
Else
vChemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
End If
If objFolder.Title = "" Then
vChemin = ""
End If
ChoixDossierFichier = vChemin
End Function"

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données excel,
(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller, mais on
ne peut pas choisir que le nom. Merci de vos réponses.

Alors :

Sub ListePhotos()
Dim Rep As String, Fich As String, Ctr As Long
Ctr = 1
Do
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
On Error Resume Next
Rep = .SelectedItems(1)
If Err.Number <> 0 Then Exit Sub
End With
Fich = Dir(Rep & "*.jpg")
Do While Fich <> ""
Cells(Ctr, 1) = Rep & "" & Fich
Ctr = Ctr + 1
Fich = Dir
Loop
Loop
End Sub

Les fichiers JPG sont listés en colonne de la feuille active avec leur
chemin. Pour finir, clique sur annuler de la boîte de dialogue.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 7DC7C1E9-17C7-4989-B828-D272940EDDFC@microsoft.com...

Ok cela marche, mais cela ne répond pas à ce que je veux faire, ou alors
je
ne sais pas m'en servir.
Je veux dans un fichier excel avoir une liste de noms de fichiers qui sont
placés dans un répertoire sans avoir à taper ces noms de fichiers les uns
après les autres, en somme un copier coller des noms de fichiers dans une
feuille excel.

Merci

La macro te permet de choisir un répertoire. Clique sur celui de ton
choix,
puis sur "OK". J'ai l'erreur d'exécution 5 quand je clique sur "annuler".
Pour éviter ceci, modifie comme suit :

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
On Error Resume Next
MsgBox .SelectedItems(1)
End With
End Sub

Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans le
message de news: 52AB56E9-B666-48C1-8006-2580C68C9A7F@microsoft.com...

J'ai dû faire une fausse manip mais je ne sais pas où.
J'ai fait outil macro dans excel, j'ai créé la macro "répertoire"
J'ai copié cette macro mais elle ouvre l'explorateur mais ne me permet
pas
de faire autre chose, je n'ai pas de "boite de message", il apparaît
ensuite :
Erreur d'exécution '5'
la ligne MsgBox... apparaît surlignée jaune
Argument ou appel de procédure incorrect
Encore merci pour votre aide

La macro suivante te permet de choisir un répertoire. Elle affiche ce
répertoire dans une boîte message. A toi de l'utiliser suivant tes
besoins.

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
MsgBox .SelectedItems(1)
End With
End Sub

Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit dans
le
message de news: E1C96566-57DA-40DE-BD7D-756348CCE9EE@microsoft.com...

Bonjour,

Non je veux seulement copier les chemins d'accès aux images car
ensuite
je
les insère dans mon document sous forme texte ou sous forme image

Merci

Bonjour.
Est-ce que tu veux enregistrer toutes les photos présentes sur ton
disque
dans ta base ?
Cordialement.
Daniel
"Chantal Muret" <ChantalMuret@discussions.microsoft.com> a écrit
dans
le
message de news:
39A29EF1-2FAB-413D-B574-ECF37948CB08@microsoft.com...

Bonjour,
Je veux faire un album photo dans publisher comprenant les images
et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de
données
excel,
(j'ai plus de 500 photos classées sous différents répertoires)
comment
puis-je faire ? J'ai essayé dans l'explorateur par un
copier/coller,
mais
on
ne peut pas choisir que le nom. Merci de vos réponses.

Bonjour

Désolé mais ça ne fonctionne pas ici

Tu peux mettre dans un fichier et mettre sur
http://cjoint.com/

Merci


"clahor" <clahor@discussions.microsoft.com> a écrit dans le message de
news:1E4D8B5D-50AE-4373-81BB-A5E32A87178E@microsoft.com...

bjr pour faire avancer le schmilblik , windowsnews dans le N° de nov 04 a
donné une macro permettant de lister dans 1 fichier excel les fichiers
contenus dans un repertoire avec lien hypertexte vers ces fichiers .....je
veux bien donner cette macro quoique ce ne soit un peu long
chez moi ça fonctionne

"Sub ContenuDossier()
Dim vFSO As Object, vDossier As Object
Dim vListeFichiers As Object
Dim vFeuille As Worksheet
Dim vEnTetes, vArrFSO
Dim vNomDossier, vFichier, vLecteur
Dim i As Integer
Application.ScreenUpdating = False
Set vFSO = CreateObject("Scripting.FileSystemObject")
vLecteur = Left(InputBox("lettre de lecteur", "liste des fichiers"), 1) &
":/"

If vLecteur = "" Then Exit Sub
vNomDossier = ChoixDossierFichier(vLecteur)
If vNomDossier = "" Then Exit Sub
Set vDossier = vFSO.GetFolder(vNomDossier)
Set vListeFichiers = vDossier.Files
If vListeFichiers.Count <> 0 Then
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
vEnTetes = Array("Chemin", "Nom", "Création", "Dernière modification",
"Dernier accès", "Taille", "Type", "Attribut(s)")
With ActiveSheet.Range("A1:H1")
.Value = vEnTetes
.Font.Bold = True
.Interior.ColorIndex = 15
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
i = 1
For Each vFichier In vListeFichiers
i = i + 1
ActiveSheet.Cells(i, 1) = vFichier.ParentFolder
ActiveSheet.Hyperlinks.Add Anchor:¬tiveSheet.Cells(i, 2),
Address:=vFichier.ParentFolder & "" & vFichier.Name,
TextToDisplay:=vFichier.Name
ActiveSheet.Cells(i, 3) = vFichier.DateCreated
ActiveSheet.Cells(i, 4) = vFichier.DateLastModified
ActiveSheet.Cells(i, 5) = vFichier.DateLastAccessed
ActiveSheet.Cells(i, 6) = vFichier.Size
ActiveSheet.Cells(i, 7) = vFichier.Type
ActiveSheet.Cells(i, 8) = Attributs(vFichier.Attributes)
Next
End If
ActiveSheet.UsedRange.EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter
Set vFSO = Nothing
Set vFeuille = Nothing
Set vDossier = Nothing
Set vFichier = Nothing
End Sub
Function Attributs(pAttrib)
Dim vRésultat
If pAttrib = 0 Then vRésultat = "-"
If pAttrib And 1 Then vRésultat = vRésultat & "L"
If pAttrib And 2 Then vRésultat = vRésultat & "C"
If pAttrib And 4 Then vRésultat = vRésultat & "S"
If pAttrib And 32 Then vRésultat = vRésultat & "A"
Attributs = vRésultat
End Function
Function ChoixDossierFichier(pRacine)
Dim objShell, objFolder, vChemin, SecuriteSlash, FlagChoix&, vMessage,
vDoublePoint
vMessage = "Choisissez un fichier :"
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, vMessage, &H4000&, pRacine)
vDoublePoint = InStr(objFolder.Title, ":")
If vDoublePoint > 0 Then
vChemin = Mid(objFolder.Title, vDoublePoint - 1, 2) & ""
Else
vChemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
End If
If objFolder.Title = "" Then
vChemin = ""
End If
ChoixDossierFichier = vChemin
End Function"

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,

(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais on

ne peut pas choisir que le nom. Merci de vos réponses.

Bonjour,

As-tu enlevé tout ce qui traîne à gauche de Sub ?


"Gaspareau" <123@234> a écrit dans le message de news:
ef5XS$QdGHA.3352@TK2MSFTNGP03.phx.gbl...

Bonjour

Désolé mais ça ne fonctionne pas ici

Tu peux mettre dans un fichier et mettre sur
http://cjoint.com/

Merci


"clahor" <clahor@discussions.microsoft.com> a écrit dans le message de
news:1E4D8B5D-50AE-4373-81BB-A5E32A87178E@microsoft.com...

bjr pour faire avancer le schmilblik , windowsnews dans le N° de nov 04 a
donné une macro permettant de lister dans 1 fichier excel les fichiers
contenus dans un repertoire avec lien hypertexte vers ces fichiers
.....je
veux bien donner cette macro quoique ce ne soit un peu long
chez moi ça fonctionne

"Sub ContenuDossier()
Dim vFSO As Object, vDossier As Object
Dim vListeFichiers As Object
Dim vFeuille As Worksheet
Dim vEnTetes, vArrFSO
Dim vNomDossier, vFichier, vLecteur
Dim i As Integer
Application.ScreenUpdating = False
Set vFSO = CreateObject("Scripting.FileSystemObject")
vLecteur = Left(InputBox("lettre de lecteur", "liste des fichiers"), 1) &
":/"

If vLecteur = "" Then Exit Sub
vNomDossier = ChoixDossierFichier(vLecteur)
If vNomDossier = "" Then Exit Sub
Set vDossier = vFSO.GetFolder(vNomDossier)
Set vListeFichiers = vDossier.Files
If vListeFichiers.Count <> 0 Then
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
vEnTetes = Array("Chemin", "Nom", "Création", "Dernière
modification",
"Dernier accès", "Taille", "Type", "Attribut(s)")
With ActiveSheet.Range("A1:H1")
.Value = vEnTetes
.Font.Bold = True
.Interior.ColorIndex = 15
.Borders.LineStyle = xlContinuous
.HorizontalAlignment = xlCenter
End With
i = 1
For Each vFichier In vListeFichiers
i = i + 1
ActiveSheet.Cells(i, 1) = vFichier.ParentFolder
ActiveSheet.Hyperlinks.Add Anchor:¬tiveSheet.Cells(i, 2),
Address:=vFichier.ParentFolder & "" & vFichier.Name,
TextToDisplay:=vFichier.Name
ActiveSheet.Cells(i, 3) = vFichier.DateCreated
ActiveSheet.Cells(i, 4) = vFichier.DateLastModified
ActiveSheet.Cells(i, 5) = vFichier.DateLastAccessed
ActiveSheet.Cells(i, 6) = vFichier.Size
ActiveSheet.Cells(i, 7) = vFichier.Type
ActiveSheet.Cells(i, 8) = Attributs(vFichier.Attributes)
Next
End If
ActiveSheet.UsedRange.EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter
Set vFSO = Nothing
Set vFeuille = Nothing
Set vDossier = Nothing
Set vFichier = Nothing
End Sub
Function Attributs(pAttrib)
Dim vRésultat
If pAttrib = 0 Then vRésultat = "-"
If pAttrib And 1 Then vRésultat = vRésultat & "L"
If pAttrib And 2 Then vRésultat = vRésultat & "C"
If pAttrib And 4 Then vRésultat = vRésultat & "S"
If pAttrib And 32 Then vRésultat = vRésultat & "A"
Attributs = vRésultat
End Function
Function ChoixDossierFichier(pRacine)
Dim objShell, objFolder, vChemin, SecuriteSlash, FlagChoix&, vMessage,
vDoublePoint
vMessage = "Choisissez un fichier :"
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, vMessage, &H4000&,
pRacine)
vDoublePoint = InStr(objFolder.Title, ":")
If vDoublePoint > 0 Then
vChemin = Mid(objFolder.Title, vDoublePoint - 1, 2) & ""
Else
vChemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
End If
If objFolder.Title = "" Then
vChemin = ""
End If
ChoixDossierFichier = vChemin
End Function"

Bonjour,
Je veux faire un album photo dans publisher comprenant les images et
les
chemins d'accès,
je veux éviter de taper chaque chemin d'accès dans ma base de données
excel,

(j'ai plus de 500 photos classées sous différents répertoires) comment
puis-je faire ? J'ai essayé dans l'explorateur par un copier/coller,
mais on

ne peut pas choisir que le nom. Merci de vos réponses.