comment afficher le contenu d'un répertoire distant dans une liste de choix,
afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de
ce répertoire distant ?
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
Daniel.C
Bonjour.
Sub Choix() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "c:temp" .Show [A1].Value = .SelectedItems(1) End With End Sub
Cordialement. Daniel
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix, afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de ce répertoire distant ?
Je ne sais pas si je suis bien clair.
Merci d'avance
Bonjour.
Sub Choix()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "c:temp"
.Show
[A1].Value = .SelectedItems(1)
End With
End Sub
Cordialement.
Daniel
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix,
afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de ce
répertoire distant ?
Sub Choix() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "c:temp" .Show [A1].Value = .SelectedItems(1) End With End Sub
Cordialement. Daniel
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix, afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de ce répertoire distant ?
Je ne sais pas si je suis bien clair.
Merci d'avance
michdenis
Bonjour,
Une façon de faire : Ceci copie tous les fichiers ayant une extension ".xls" dans la plage "A1:Ax et attribue un "NOM" MesFichiers à la plage. Dans la liste de choix, tu peux utiliser le "NOM".
'---------------------------------- Sub test() Dim Chemin As String, Fichier As String Chemin = "c:UsersDMDocuments"
Fichier = Dir(Chemin & "*.xls")
With Worksheets("Feuil1") Do While Fichier <> "" a = a + 1 .Range("A" & a) = Fichier Fichier = Dir() Loop .Range("A1:A" & .Range("A65536"). _ End(xlUp).Row).Name = "Mesfichiers" End With
End Sub '----------------------------------
"JPaul" a écrit dans le message de groupe de discussion :
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix, afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de ce répertoire distant ?
Je ne sais pas si je suis bien clair.
Merci d'avance -- JPaulV
Bonjour,
Une façon de faire : Ceci copie tous les fichiers ayant
une extension ".xls" dans la plage "A1:Ax et attribue un
"NOM" MesFichiers à la plage. Dans la liste de choix, tu
peux utiliser le "NOM".
'----------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Chemin = "c:UsersDMDocuments"
Fichier = Dir(Chemin & "*.xls")
With Worksheets("Feuil1")
Do While Fichier <> ""
a = a + 1
.Range("A" & a) = Fichier
Fichier = Dir()
Loop
.Range("A1:A" & .Range("A65536"). _
End(xlUp).Row).Name = "Mesfichiers"
End With
End Sub
'----------------------------------
"JPaul" <msnews@spam.net> a écrit dans le message de groupe de discussion :
OIWxwOpwKHA.4636@TK2MSFTNGP06.phx.gbl...
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix,
afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de
ce répertoire distant ?
Une façon de faire : Ceci copie tous les fichiers ayant une extension ".xls" dans la plage "A1:Ax et attribue un "NOM" MesFichiers à la plage. Dans la liste de choix, tu peux utiliser le "NOM".
'---------------------------------- Sub test() Dim Chemin As String, Fichier As String Chemin = "c:UsersDMDocuments"
Fichier = Dir(Chemin & "*.xls")
With Worksheets("Feuil1") Do While Fichier <> "" a = a + 1 .Range("A" & a) = Fichier Fichier = Dir() Loop .Range("A1:A" & .Range("A65536"). _ End(xlUp).Row).Name = "Mesfichiers" End With
End Sub '----------------------------------
"JPaul" a écrit dans le message de groupe de discussion :
Bonjour,
Excel 2003
comment afficher le contenu d'un répertoire distant dans une liste de choix, afin de sélectionner et d'afficher dans une cellule le nom d'un fichier de ce répertoire distant ?
Je ne sais pas si je suis bien clair.
Merci d'avance -- JPaulV
JPaul
"Daniel.C" a écrit dans le message de news: %
Bonjour.
Sub Choix() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "c:temp" .Show [A1].Value = .SelectedItems(1) End With End Sub
Bonjour et merci,
désolé pour la réponse tardive
-- JPaulV
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23a76Y1pwKHA.5036@TK2MSFTNGP02.phx.gbl...
Bonjour.
Sub Choix()
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "c:temp"
.Show
[A1].Value = .SelectedItems(1)
End With
End Sub
Sub Choix() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "c:temp" .Show [A1].Value = .SelectedItems(1) End With End Sub
Bonjour et merci,
désolé pour la réponse tardive
-- JPaulV
JPaul
"michdenis" a écrit dans le message de news:
Bonjour,
Une façon de faire : Ceci copie tous les fichiers ayant une extension ".xls" dans la plage "A1:Ax et attribue un "NOM" MesFichiers à la plage. Dans la liste de choix, tu peux utiliser le "NOM".
Merci, j'ai adapté et ça fonctione nikel.
j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Je suis vraiment une buse :-(
-- JPaulV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
A696FA91-F79F-480B-B623-1559873E9197@microsoft.com...
Bonjour,
Une façon de faire : Ceci copie tous les fichiers ayant
une extension ".xls" dans la plage "A1:Ax et attribue un
"NOM" MesFichiers à la plage. Dans la liste de choix, tu
peux utiliser le "NOM".
Merci, j'ai adapté et ça fonctione nikel.
j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Une façon de faire : Ceci copie tous les fichiers ayant une extension ".xls" dans la plage "A1:Ax et attribue un "NOM" MesFichiers à la plage. Dans la liste de choix, tu peux utiliser le "NOM".
Merci, j'ai adapté et ça fonctione nikel.
j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Je suis vraiment une buse :-(
-- JPaulV
michdenis
| j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Tu ajoutes ceci à la macro :
Sous Excel 2007 : With Range("MesDonnées") .Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
| j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Tu ajoutes ceci à la macro :
Sous Excel 2007 :
With Range("MesDonnées")
.Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
| j'essaie depuis 15/20 mn a copier avec un tri croissant, mais sans succès.
Tu ajoutes ceci à la macro :
Sous Excel 2007 : With Range("MesDonnées") .Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
michdenis
J'ai omis de mentionner que si dans l'explorateur Windows tes fichiers étaient affichés selon le nom par ordre alphabétique tu obtiendrais directement ce que tu désires !
J'ai omis de mentionner que si dans l'explorateur Windows
tes fichiers étaient affichés selon le nom par ordre alphabétique
tu obtiendrais directement ce que tu désires !
J'ai omis de mentionner que si dans l'explorateur Windows tes fichiers étaient affichés selon le nom par ordre alphabétique tu obtiendrais directement ce que tu désires !
JPaul
"michdenis" a écrit dans le message de news:
J'ai omis de mentionner que si dans l'explorateur Windows tes fichiers étaient affichés selon le nom par ordre alphabétique tu obtiendrais directement ce que tu désires !
De ce que je comprends,
excel appelle explorer, lui dit de lister le répertoire puis excel intercepte les données recueillies par explorer, selon sa configuration, pour les afficher sur sa feuille... c'est ça ?
Tu ajoutes ceci à la macro :
Sous Excel 2007 : With Range("MesDonnées") .Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Ça, j'aurai pas trouvé tout seul :-D
Merci
-- JPaulV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
343FC776-CF85-4100-8D7B-24BF0DF5DBC5@microsoft.com...
J'ai omis de mentionner que si dans l'explorateur Windows
tes fichiers étaient affichés selon le nom par ordre alphabétique
tu obtiendrais directement ce que tu désires !
De ce que je comprends,
excel appelle explorer, lui dit de lister le répertoire puis excel
intercepte les données recueillies par explorer, selon sa configuration,
pour les afficher sur sa feuille...
c'est ça ?
Tu ajoutes ceci à la macro :
Sous Excel 2007 :
With Range("MesDonnées")
.Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
J'ai omis de mentionner que si dans l'explorateur Windows tes fichiers étaient affichés selon le nom par ordre alphabétique tu obtiendrais directement ce que tu désires !
De ce que je comprends,
excel appelle explorer, lui dit de lister le répertoire puis excel intercepte les données recueillies par explorer, selon sa configuration, pour les afficher sur sa feuille... c'est ça ?
Tu ajoutes ceci à la macro :
Sous Excel 2007 : With Range("MesDonnées") .Sort Key1:=.Item(2), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With
Ça, j'aurai pas trouvé tout seul :-D
Merci
-- JPaulV
michdenis
excel appelle explorer, lui dit de lister le répertoire puis excel intercepte les données recueillies par explorer, selon sa configuration, pour les afficher sur sa feuille... c'est ça ?
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur, tu as le loisir de choisir l'affichage des répertoires et des fichiers.
Ce dont je te dis, c'est que la procédure énumère les fichiers selon l'affichage qui est fait dans l'explorateur Windows.
Afin d'être indépendant de cet affichage, je t'ai donné un bout de code.
excel appelle explorer, lui dit de lister le répertoire puis excel
intercepte les données recueillies par explorer, selon sa configuration,
pour les afficher sur sa feuille...
c'est ça ?
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur,
tu as le loisir de choisir l'affichage des répertoires et des fichiers.
Ce dont je te dis, c'est que la procédure énumère les fichiers
selon l'affichage qui est fait dans l'explorateur Windows.
Afin d'être indépendant de cet affichage, je t'ai donné un bout
de code.
excel appelle explorer, lui dit de lister le répertoire puis excel intercepte les données recueillies par explorer, selon sa configuration, pour les afficher sur sa feuille... c'est ça ?
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur, tu as le loisir de choisir l'affichage des répertoires et des fichiers.
Ce dont je te dis, c'est que la procédure énumère les fichiers selon l'affichage qui est fait dans l'explorateur Windows.
Afin d'être indépendant de cet affichage, je t'ai donné un bout de code.
JPaul
"michdenis" a écrit dans le message de news:
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur, tu as le loisir de choisir l'affichage des répertoires et des fichiers. Ce dont je te dis, c'est que la procédure énumère les fichiers selon l'affichage qui est fait dans l'explorateur Windows.
j'avais prévenu que j'étais une buse ;-)
Afin d'être indépendant de cet affichage, je t'ai donné un bout de code.
oui et merci pour ça. Je pense m'en sortir sans y passer la nuit.
-- JPaulV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OAT50NFxKHA.3560@TK2MSFTNGP02.phx.gbl...
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur,
tu as le loisir de choisir l'affichage des répertoires et des fichiers.
Ce dont je te dis, c'est que la procédure énumère les fichiers
selon l'affichage qui est fait dans l'explorateur Windows.
j'avais prévenu que j'étais une buse ;-)
Afin d'être indépendant de cet affichage, je t'ai donné un bout
de code.
oui et merci pour ça.
Je pense m'en sortir sans y passer la nuit.
Ce qui précède n'a rien à voir avec Excel. Dans l'explorateur, tu as le loisir de choisir l'affichage des répertoires et des fichiers. Ce dont je te dis, c'est que la procédure énumère les fichiers selon l'affichage qui est fait dans l'explorateur Windows.
j'avais prévenu que j'étais une buse ;-)
Afin d'être indépendant de cet affichage, je t'ai donné un bout de code.
oui et merci pour ça. Je pense m'en sortir sans y passer la nuit.