j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce
chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec
un espace et que ensuite il prenne en compte des caracteres et m'ouvre le
répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus
dans ce répertoire.
exemple:
en A::
2900
ce qui donnerai
"facture 2900 et des caracteres"
il ouvre le répertoire
"v:\facture 2900 et des caracteres"
et m'affiche dans un userform la liste des fichiers contenu dans ce
répertoire.
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
JB
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers conten us dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
Bonjour,
Private Sub UserForm_Initialize()
'repertoire = "v:Facture " & [A1] & " et des caracteres"
nf = Dir(repertoire & "*.*")
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir
Loop
End Sub
JB
On 27 fév, 08:39, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce
chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec
un espace et que ensuite il prenne en compte des caracteres et m'ouvre le
répertoire sur le lecteur "v:" et m affiche la liste des fichiers conten us
dans ce répertoire.
exemple:
en A::
2900
ce qui donnerai
"facture 2900 et des caracteres"
il ouvre le répertoire
"v:facture 2900 et des caracteres"
et m'affiche dans un userform la liste des fichiers contenu dans ce
répertoire.
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers conten us dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
stephprod
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
merci JB mais dans ce truc
'repertoire = "v:Facture " & [A1] & " et des caracteres"
----- & " et des caracteres" est variable.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
63a6441c-0c3e-4665-91c1-3bf9f9a7a853@p43g2000hsc.googlegroups.com...
Bonjour,
Private Sub UserForm_Initialize()
'repertoire = "v:Facture " & [A1] & " et des caracteres"
nf = Dir(repertoire & "*.*")
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir
Loop
End Sub
JB
On 27 fév, 08:39, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce
chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec
un espace et que ensuite il prenne en compte des caracteres et m'ouvre le
répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus
dans ce répertoire.
exemple:
en A::
2900
ce qui donnerai
"facture 2900 et des caracteres"
il ouvre le répertoire
"v:facture 2900 et des caracteres"
et m'affiche dans un userform la liste des fichiers contenu dans ce
répertoire.
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
francois.forcet
Bonjours Stéphane
Soit Feuil1 Cellule A1 le numéro résultat en colonne A à partir de la 1° cellule libre Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres" With Application.FileSearch .LookIn = "C:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes cette ligne :
Sheets("Feuil1").Range("A65535")
Pour une Feuil2 colonne B il faut mettre :
Sheets("Feuil2").Range("B65535")
Celà devrait te convenir
Dis moi !!!!
Bonjours Stéphane
Soit Feuil1 Cellule A1 le numéro
résultat en colonne A à partir de la 1° cellule libre
Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres"
With Application.FileSearch
.LookIn = "C:" & Répertoire
.FileType = msoFileTypeAllFiles
.Execute
End With
With Application.FileSearch
For I = 1 To .FoundFiles.Count
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) =
Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) -
Len(.LookIn) + 2)
Next I
End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes
cette ligne :
Soit Feuil1 Cellule A1 le numéro résultat en colonne A à partir de la 1° cellule libre Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres" With Application.FileSearch .LookIn = "C:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes cette ligne :
Sheets("Feuil1").Range("A65535")
Pour une Feuil2 colonne B il faut mettre :
Sheets("Feuil2").Range("B65535")
Celà devrait te convenir
Dis moi !!!!
stephprod
ca y est j'ai réussi à faire mon truc j'ai utilisé Worksheets(an$).Cells(I, 29).Value = Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule mon chemin se trouve en colonne AC ou 29 je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" a écrit dans le message de news: 47c517ff$0$853$
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
ca y est j'ai réussi à faire mon truc j'ai utilisé
Worksheets(an$).Cells(I, 29).Value =
Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule
mon chemin se trouve en colonne AC ou 29
je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un
userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" <prodiag290@orange.fr> a écrit dans le message de news:
47c517ff$0$853$ba4acef3@news.orange.fr...
merci JB mais dans ce truc
'repertoire = "v:Facture " & [A1] & " et des caracteres"
----- & " et des caracteres" est variable.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
63a6441c-0c3e-4665-91c1-3bf9f9a7a853@p43g2000hsc.googlegroups.com...
Bonjour,
Private Sub UserForm_Initialize()
'repertoire = "v:Facture " & [A1] & " et des caracteres"
nf = Dir(repertoire & "*.*")
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir
Loop
End Sub
JB
On 27 fév, 08:39, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce
chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant
avec
un espace et que ensuite il prenne en compte des caracteres et m'ouvre le
répertoire sur le lecteur "v:" et m affiche la liste des fichiers
contenus
dans ce répertoire.
exemple:
en A::
2900
ce qui donnerai
"facture 2900 et des caracteres"
il ouvre le répertoire
"v:facture 2900 et des caracteres"
et m'affiche dans un userform la liste des fichiers contenu dans ce
répertoire.
ca y est j'ai réussi à faire mon truc j'ai utilisé Worksheets(an$).Cells(I, 29).Value = Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule mon chemin se trouve en colonne AC ou 29 je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" a écrit dans le message de news: 47c517ff$0$853$
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane
stephprod
SI je repredn ton code si je l'ai bien compris et tout d'abord merci. Répertoire = cellule AC 'contenant mon chemin du répertoire LookIn = "v:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With
MAIS JE NE COMPRENDS PAS CETTE PARTIE QUI SUIT: With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
a écrit dans le message de news:
Bonjours Stéphane
Soit Feuil1 Cellule A1 le numéro résultat en colonne A à partir de la 1° cellule libre Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres" With Application.FileSearch .LookIn = "C:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes cette ligne :
Sheets("Feuil1").Range("A65535")
Pour une Feuil2 colonne B il faut mettre :
Sheets("Feuil2").Range("B65535")
Celà devrait te convenir
Dis moi !!!!
SI je repredn ton code si je l'ai bien compris et tout d'abord merci.
Répertoire = cellule AC 'contenant mon chemin du répertoire
LookIn = "v:" & Répertoire
.FileType = msoFileTypeAllFiles
.Execute
End With
MAIS JE NE COMPRENDS PAS CETTE PARTIE QUI SUIT:
With Application.FileSearch
For I = 1 To .FoundFiles.Count
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) -
Len(.LookIn) + 2)
Next I
End With
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
36958f5d-585d-4252-9405-9c09761e1eb2@71g2000hse.googlegroups.com...
Bonjours Stéphane
Soit Feuil1 Cellule A1 le numéro
résultat en colonne A à partir de la 1° cellule libre
Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres"
With Application.FileSearch
.LookIn = "C:" & Répertoire
.FileType = msoFileTypeAllFiles
.Execute
End With
With Application.FileSearch
For I = 1 To .FoundFiles.Count
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) -
Len(.LookIn) + 2)
Next I
End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes
cette ligne :
SI je repredn ton code si je l'ai bien compris et tout d'abord merci. Répertoire = cellule AC 'contenant mon chemin du répertoire LookIn = "v:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With
MAIS JE NE COMPRENDS PAS CETTE PARTIE QUI SUIT: With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
a écrit dans le message de news:
Bonjours Stéphane
Soit Feuil1 Cellule A1 le numéro résultat en colonne A à partir de la 1° cellule libre Le code :
Répertoire = "facture " & Range("A1") & " et des caracteres" With Application.FileSearch .LookIn = "C:" & Répertoire .FileType = msoFileTypeAllFiles .Execute End With With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Si tu souhaites rapporter le résultat dans d'autres cellules adaptes cette ligne :
Sheets("Feuil1").Range("A65535")
Pour une Feuil2 colonne B il faut mettre :
Sheets("Feuil2").Range("B65535")
Celà devrait te convenir
Dis moi !!!!
JB
Si on clique sur A2:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then UserForm1.Show End If End Sub
JB
On 27 fév, 09:07, "stephprod" wrote:
ca y est j'ai réussi à faire mon truc j'ai utilisé Worksheets(an$).Cells(I, 29).Value = Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule mon chemin se trouve en colonne AC ou 29 je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" a écrit dans le message de news: 47c517ff$0$853$
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Si on clique sur A2:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" Then
UserForm1.Show
End If
End Sub
JB
On 27 fév, 09:07, "stephprod" <prodiag...@orange.fr> wrote:
ca y est j'ai réussi à faire mon truc j'ai utilisé
Worksheets(an$).Cells(I, 29).Value =
Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule
mon chemin se trouve en colonne AC ou 29
je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un
userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" <prodiag...@orange.fr> a écrit dans le message de news:
47c517ff$0$853$ba4ac...@news.orange.fr...
merci JB mais dans ce truc
'repertoire = "v:Facture " & [A1] & " et des caracteres"
----- & " et des caracteres" est variable.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
63a6441c-0c3e-4665-91c1-3bf9f9a7a...@p43g2000hsc.googlegroups.com...
Bonjour,
Private Sub UserForm_Initialize()
'repertoire = "v:Facture " & [A1] & " et des caracteres"
nf = Dir(repertoire & "*.*")
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir
Loop
End Sub
JB
On 27 fév, 08:39, "stephprod" <prodiag...@orange.fr> wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce
chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant
avec
un espace et que ensuite il prenne en compte des caracteres et m'ouvre le
répertoire sur le lecteur "v:" et m affiche la liste des fichiers
contenus
dans ce répertoire.
exemple:
en A::
2900
ce qui donnerai
"facture 2900 et des caracteres"
il ouvre le répertoire
"v:facture 2900 et des caracteres"
et m'affiche dans un userform la liste des fichiers contenu dans ce
répertoire.
merci à tous ceux qui veulent bien m'aider
stephane- Masquer le texte des messages précédents -
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then UserForm1.Show End If End Sub
JB
On 27 fév, 09:07, "stephprod" wrote:
ca y est j'ai réussi à faire mon truc j'ai utilisé Worksheets(an$).Cells(I, 29).Value = Workbooks(doss_cour$).Sheets("ORDRE_MISSION").Range("NO_DOSSIER").Value
mais je pêche sur le fait de reprendre ma cellule mon chemin se trouve en colonne AC ou 29 je sais lui rajouter le chemin du disk dur...(" v: ")
maintenant comment, lors d'un click sur la cellule, qu'il m ouvre un userform avec le contenu de ce répertoire?
merci d'avance
"stephprod" a écrit dans le message de news: 47c517ff$0$853$
merci JB mais dans ce truc 'repertoire = "v:Facture " & [A1] & " et des caracteres" ----- & " et des caracteres" est variable.
"JB" a écrit dans le message de news:
Bonjour,
Private Sub UserForm_Initialize() 'repertoire = "v:Facture " & [A1] & " et des caracteres" nf = Dir(repertoire & "*.*") Do While nf <> "" Me.ListBox1.AddItem nf nf = Dir Loop End Sub
JB
On 27 fév, 08:39, "stephprod" wrote:
Bonjour,
Voila j'expose mon truc:
j'ai une cellule qui contient un numéro dans un tableau allant de A:Z ce chiffre est indiqué en colonne A
je voudrais qu'une macro prenne ce chiffre qui rajoute facture devant avec un espace et que ensuite il prenne en compte des caracteres et m'ouvre le répertoire sur le lecteur "v:" et m affiche la liste des fichiers contenus dans ce répertoire.
exemple:
en A:: 2900 ce qui donnerai "facture 2900 et des caracteres" il ouvre le répertoire "v:facture 2900 et des caracteres" et m'affiche dans un userform la liste des fichiers contenu dans ce répertoire.
merci à tous ceux qui veulent bien m'aider
stephane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
francois.forcet
Rebonjours à toi
La partie :
With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Qui veut dire
With Application.FileSearch : Avec l'instruction FileSearch qui recherche des fichiers avec les paramètres déterminés précédemment
For I = 1 To .FoundFiles.Count
Une variable "I" allant de 1 jusqu'au nombre de fichier trouvé
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = : La première cellule vide de la colonne A Feuil1 est égale à
Mid (la partie) .FoundFiles(I) (Chemin du fichier x) Len(.LookIn) + 2 (à partir du caractère dont le numéro est détermin é par la longueur du paramètre LooKin précisé dans la première partie, te concernant c'est : "v:" & Répertoire, auquel on rajoute 2) Len(.FoundFiles(I)) - Len(.LookIn) + 2 (Jusqu'au caractère dont le numéro est déterminé par la différence entre la longueur du chemin d u fichier x et la la longueur du paramètre LooKin précisé dans la première partie
En prenant un exemple
Soit "Mon fichier.xls" Ayant pour chemin : "C:RépertoireMon fichier.xls" FoundFiles(I) = "C:RépertoireMon fichier.xls" LookIn = "C:Répertoire"
With Application.FileSearch
For I = 1 To .FoundFiles.Count
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) =
Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) -
Len(.LookIn) + 2)
Next I
End With
Qui veut dire
With Application.FileSearch : Avec l'instruction FileSearch qui
recherche des fichiers avec les paramètres déterminés précédemment
For I = 1 To .FoundFiles.Count
Une variable "I" allant de 1 jusqu'au nombre de fichier trouvé
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = : La
première cellule vide de la colonne A Feuil1 est égale à
Mid (la partie)
.FoundFiles(I) (Chemin du fichier x)
Len(.LookIn) + 2 (à partir du caractère dont le numéro est détermin é
par la longueur du paramètre LooKin précisé dans la première partie,
te concernant c'est : "v:" & Répertoire, auquel on rajoute 2)
Len(.FoundFiles(I)) - Len(.LookIn) + 2 (Jusqu'au caractère dont le
numéro est déterminé par la différence entre la longueur du chemin d u
fichier x et la la longueur du paramètre LooKin précisé dans la
première partie
En prenant un exemple
Soit "Mon fichier.xls"
Ayant pour chemin :
"C:RépertoireMon fichier.xls"
FoundFiles(I) = "C:RépertoireMon fichier.xls"
LookIn = "C:Répertoire"
With Application.FileSearch For I = 1 To .FoundFiles.Count Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = Mid(.FoundFiles(I), Len(.LookIn) + 2, Len(.FoundFiles(I)) - Len(.LookIn) + 2) Next I End With
Qui veut dire
With Application.FileSearch : Avec l'instruction FileSearch qui recherche des fichiers avec les paramètres déterminés précédemment
For I = 1 To .FoundFiles.Count
Une variable "I" allant de 1 jusqu'au nombre de fichier trouvé
Sheets("Feuil1").Range("A65535").End(xlUp).Offset(1, 0) = : La première cellule vide de la colonne A Feuil1 est égale à
Mid (la partie) .FoundFiles(I) (Chemin du fichier x) Len(.LookIn) + 2 (à partir du caractère dont le numéro est détermin é par la longueur du paramètre LooKin précisé dans la première partie, te concernant c'est : "v:" & Répertoire, auquel on rajoute 2) Len(.FoundFiles(I)) - Len(.LookIn) + 2 (Jusqu'au caractère dont le numéro est déterminé par la différence entre la longueur du chemin d u fichier x et la la longueur du paramètre LooKin précisé dans la première partie
En prenant un exemple
Soit "Mon fichier.xls" Ayant pour chemin : "C:RépertoireMon fichier.xls" FoundFiles(I) = "C:RépertoireMon fichier.xls" LookIn = "C:Répertoire"
