Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel COPIE NOMS FICHIERS DS BASE DONNEES

COPIE NOMS FICHIERS DS BASE DONNEES

20 réponses
Avatar
Chantal Muret
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.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Gaspareau
Salut

Oui et j'ai corrigé les
sauts de lignes et ça ne fonctionne pas

Mais si ça me serait bien utile

Merci


"Clément Marcotte" a écrit dans le message
de news:%
Bonjour,

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


"Gaspareau" a écrit dans le message de news:
ef5XS$
Bonjour

Désolé mais ça ne fonctionne pas ici

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

Merci


"clahor" a écrit dans le message de
news:
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.














Avatar
Chantal Muret
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent en compte
ces fichiers ?


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" a écrit dans le
message de news:
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" a écrit dans le
message de news:
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" a écrit dans
le
message de news:
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" a écrit
dans
le
message de news:

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.






























Avatar
Chantal Muret
Bonjour,
J'ai également essayé cette macro mais elle ne fonctionne pas non plus, à la
première ligne il est indiqué le message "Erreur de compilation, erreur de
syntaxe"
Cordialement



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.






Avatar
clahor
bjr si en fait la macro de win...news fonctionne mais il faut que tous les
fichiers soient dans le meme dossier & en fait le copier collerque j'ai fait
de la macro a généré des passages a la ligne qu'il faut supprimer , voici la
macro , supprimer l'espace suivi d'un underscore des lignes 19 & 30 ( _)
[quote]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
[/quote]
Avatar
clahor
bjr

voici le fichier que j'ai uppé car le copier coller sur le site genere
d'autres retour a la igne qui enlevent de la lisibilité

http://cjoint.com/?fmpkgfTXNd

(a lire avec les remarques que j'ai faites concernant les passages a la
ligne (espace underscore aux lignes 19 & 30)


bjr si en fait la macro de win...news fonctionne mais il faut que tous les
fichiers soient dans le meme dossier & en fait le copier collerque j'ai fait
de la macro a généré des passages a la ligne qu'il faut supprimer , voici la
macro , supprimer l'espace suivi d'un underscore des lignes 19 & 30 ( _)
[quote]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
[/quote]


Avatar
Daniel
Bonsoir.
Essaie :
Sub ListePhotos()
Dim Rep As String, Fich As String, Ctr As Long
Dim Types(2) As String
Ctr = 1
Types(0) = "jpg"
Types(1) = "bmp"
Types(2) = "tif"
Do
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
On Error Resume Next
Rep = .SelectedItems(1)
If Err.Number <> 0 Then Exit Sub
End With
For i = 0 To 2
Fich = Dir(Rep & "*." & Types(i))
Do While Fich <> ""
Cells(Ctr, 1) = Rep & "" & Fich
Ctr = Ctr + 1
Fich = Dir
Loop
Next i
Loop
End Sub

"Chantal Muret" a écrit dans le
message de news:
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on
remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent en
compte
ces fichiers ?


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" a écrit dans le
message de news:
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" a écrit dans
le
message de news:
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" a écrit
dans
le
message de news:

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" a écrit
dans
le
message de news:

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.
































Avatar
Chantal Muret
Bonjour,
J'ai essayé cette macro mais elle bloque à ctr = 1 avec pour message
"intruction incorrecte à l'extérieur d'une procédure"
Merci



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

"Chantal Muret" a écrit dans le
message de news:
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on
remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent en
compte
ces fichiers ?


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" a écrit dans le
message de news:
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" a écrit dans
le
message de news:
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" a écrit
dans
le
message de news:

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" a écrit
dans
le
message de news:

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.





































Avatar
Daniel
Bonjour.
??? Peux-tu mettre ton classeur sur www.cjoint.com ?
Daniel
"Chantal Muret" a écrit dans le
message de news:
Bonjour,
J'ai essayé cette macro mais elle bloque à ctr = 1 avec pour message
"intruction incorrecte à l'extérieur d'une procédure"
Merci



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

"Chantal Muret" a écrit dans le
message de news:
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on
remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent en
compte
ces fichiers ?


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" a écrit dans
le
message de news:
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" a écrit
dans
le
message de news:

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" a écrit
dans
le
message de news:

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" a
écrit
dans
le
message de news:

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.







































Avatar
Chantal Muret
Bonjour,
Oui, c'est fait, c'est la première fois que j'utilise un tel procédé,
j'espère ne pas avoir fait de bêtise.
Merci encore
http://cjoint.com/?fslQJ7F8ww


Bonjour.
??? Peux-tu mettre ton classeur sur www.cjoint.com ?
Daniel
"Chantal Muret" a écrit dans le
message de news:
Bonjour,
J'ai essayé cette macro mais elle bloque à ctr = 1 avec pour message
"intruction incorrecte à l'extérieur d'une procédure"
Merci



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

"Chantal Muret" a écrit dans le
message de news:
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on
remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent en
compte
ces fichiers ?


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" a écrit dans
le
message de news:
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" a écrit
dans
le
message de news:

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" a écrit
dans
le
message de news:

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" a
écrit
dans
le
message de news:

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.












































Avatar
Daniel
Bonjour.
C'est pas tout à fait ça.
Va sur le site www.cjoint.com .
En dessous : "Joindre un fichier, une image, une photo (1)"
clique sur "parcourir" et cherche ton fichier.
Clique ensuite sur le lien "Créer le lien Cjoint".
Cordialement.
Daniel
"Chantal Muret" a écrit dans le
message de news:
Bonjour,
Oui, c'est fait, c'est la première fois que j'utilise un tel procédé,
j'espère ne pas avoir fait de bêtise.
Merci encore
http://cjoint.com/?fslQJ7F8ww


Bonjour.
??? Peux-tu mettre ton classeur sur www.cjoint.com ?
Daniel
"Chantal Muret" a écrit dans le
message de news:
Bonjour,
J'ai essayé cette macro mais elle bloque à ctr = 1 avec pour message
"intruction incorrecte à l'extérieur d'une procédure"
Merci



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

"Chantal Muret" a écrit dans
le
message de news:
Vraiment super, encore merci
Et encore une question, si on a d'autres fichiers type bmp tif, on
remplace
dans la macro le jpg ? ou on peut taper d'autres lignes qui prenent
en
compte
ces fichiers ?


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" a écrit
dans
le
message de news:

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" a écrit
dans
le
message de news:

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" a
écrit
dans
le
message de news:

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" a
écrit
dans
le
message de news:

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.














































1 2