Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier que
je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
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
anonymousA
bonjour,
oui.
A+
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
bonjour,
oui.
A+
Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier que
je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
Daniel
Bonjour. Essaie :
Sub Test() Dim Fich As String, Rep As String, Trouve As Boolean Rep = InputBox("Entrez le nom du ficier à chercher") Range("a1").Select Trouve = False Fich = Dir("c:temp*") Do While Fich <> "" ActiveCell.Value = Fich If Fich = Rep Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.microsoft.fr/", TextToDisplay:=Fich Trouve = True End If ActiveCell.Offset(1, 0).Select Fich = Dir Loop If Trouve = False Then MsgBox "Fichier sans correspondance" End Sub
Cordialement. Daniel "Crazy cutter" a écrit dans le message de news: %23ypjh%
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
Bonjour.
Essaie :
Sub Test()
Dim Fich As String, Rep As String, Trouve As Boolean
Rep = InputBox("Entrez le nom du ficier à chercher")
Range("a1").Select
Trouve = False
Fich = Dir("c:temp*")
Do While Fich <> ""
ActiveCell.Value = Fich
If Fich = Rep Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.microsoft.fr/", TextToDisplay:=Fich
Trouve = True
End If
ActiveCell.Offset(1, 0).Select
Fich = Dir
Loop
If Trouve = False Then MsgBox "Fichier sans correspondance"
End Sub
Cordialement.
Daniel
"Crazy cutter" <toto@titi.fr> a écrit dans le message de news:
%23ypjh%23qtFHA.3500@TK2MSFTNGP09.phx.gbl...
Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier
que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Sub Test() Dim Fich As String, Rep As String, Trouve As Boolean Rep = InputBox("Entrez le nom du ficier à chercher") Range("a1").Select Trouve = False Fich = Dir("c:temp*") Do While Fich <> "" ActiveCell.Value = Fich If Fich = Rep Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.microsoft.fr/", TextToDisplay:=Fich Trouve = True End If ActiveCell.Offset(1, 0).Select Fich = Dir Loop If Trouve = False Then MsgBox "Fichier sans correspondance" End Sub
Cordialement. Daniel "Crazy cutter" a écrit dans le message de news: %23ypjh%
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
Daniel
Bonjour. Pourquoi tant de laconisme ? ;-) Bien à toi Daniel "anonymousA" a écrit dans le message de news: 4323f531$0$308$
bonjour,
oui.
A+
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
Bonjour.
Pourquoi tant de laconisme ? ;-)
Bien à toi
Daniel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4323f531$0$308$7a628cd7@news.club-internet.fr...
bonjour,
oui.
A+
Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier
que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Bonjour. Pourquoi tant de laconisme ? ;-) Bien à toi Daniel "anonymousA" a écrit dans le message de news: 4323f531$0$308$
bonjour,
oui.
A+
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
anonymousA
bonjour,
c'était pour le rassurer , de savoir que ca pouvait se faire !!!. Mais j'avais pas le temps de développer. Mais je vois que tu l'as fait.On va attendre pour savoir si ca convient à notre interlocuteur
Cordialement,
A+
Bonjour. Pourquoi tant de laconisme ? ;-) Bien à toi Daniel "anonymousA" a écrit dans le message de news: 4323f531$0$308$
bonjour,
oui.
A+
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
bonjour,
c'était pour le rassurer , de savoir que ca pouvait se faire !!!. Mais
j'avais pas le temps de développer.
Mais je vois que tu l'as fait.On va attendre pour savoir si ca convient
à notre interlocuteur
Cordialement,
A+
Bonjour.
Pourquoi tant de laconisme ? ;-)
Bien à toi
Daniel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4323f531$0$308$7a628cd7@news.club-internet.fr...
bonjour,
oui.
A+
Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier
que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
c'était pour le rassurer , de savoir que ca pouvait se faire !!!. Mais j'avais pas le temps de développer. Mais je vois que tu l'as fait.On va attendre pour savoir si ca convient à notre interlocuteur
Cordialement,
A+
Bonjour. Pourquoi tant de laconisme ? ;-) Bien à toi Daniel "anonymousA" a écrit dans le message de news: 4323f531$0$308$
bonjour,
oui.
A+
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
marc servais
Merci pour ta réponse. Celle d'anonymousA n'était pas mal, mail la tienne est plus pratique !!!
Amicalement "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub Test() Dim Fich As String, Rep As String, Trouve As Boolean Rep = InputBox("Entrez le nom du ficier à chercher") Range("a1").Select Trouve = False Fich = Dir("c:temp*") Do While Fich <> "" ActiveCell.Value = Fich If Fich = Rep Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.microsoft.fr/", TextToDisplay:=Fich Trouve = True End If ActiveCell.Offset(1, 0).Select Fich = Dir Loop If Trouve = False Then MsgBox "Fichier sans correspondance" End Sub
Cordialement. Daniel "Crazy cutter" a écrit dans le message de news: %23ypjh%
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Marc
Merci pour ta réponse. Celle d'anonymousA n'était pas mal, mail la tienne
est plus pratique !!!
Amicalement
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u4SIUMrtFHA.1028@TK2MSFTNGP12.phx.gbl...
Bonjour.
Essaie :
Sub Test()
Dim Fich As String, Rep As String, Trouve As Boolean
Rep = InputBox("Entrez le nom du ficier à chercher")
Range("a1").Select
Trouve = False
Fich = Dir("c:temp*")
Do While Fich <> ""
ActiveCell.Value = Fich
If Fich = Rep Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.microsoft.fr/", TextToDisplay:=Fich
Trouve = True
End If
ActiveCell.Offset(1, 0).Select
Fich = Dir
Loop
If Trouve = False Then MsgBox "Fichier sans correspondance"
End Sub
Cordialement.
Daniel
"Crazy cutter" <toto@titi.fr> a écrit dans le message de news:
%23ypjh%23qtFHA.3500@TK2MSFTNGP09.phx.gbl...
Bonjour,
je cherche à récupérer en colonne la liste des fichiers contenu dans un
répertoire (toujours le même) et créer un lien hypertexte si le fichier
que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
Merci pour ta réponse. Celle d'anonymousA n'était pas mal, mail la tienne est plus pratique !!!
Amicalement "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub Test() Dim Fich As String, Rep As String, Trouve As Boolean Rep = InputBox("Entrez le nom du ficier à chercher") Range("a1").Select Trouve = False Fich = Dir("c:temp*") Do While Fich <> "" ActiveCell.Value = Fich If Fich = Rep Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www.microsoft.fr/", TextToDisplay:=Fich Trouve = True End If ActiveCell.Offset(1, 0).Select Fich = Dir Loop If Trouve = False Then MsgBox "Fichier sans correspondance" End Sub
Cordialement. Daniel "Crazy cutter" a écrit dans le message de news: %23ypjh%
Bonjour, je cherche à récupérer en colonne la liste des fichiers contenu dans un répertoire (toujours le même) et créer un lien hypertexte si le fichier que je recherche s'y trouve à l'aide d'une boite de dialogue. Possible ?
