Modification d'un code
Bonsoir le Forum !!!
j'ai trouver un code qui liste les tous les fichiers d'un répertoire et j'aimerai le modifier pour pourvoir ouvrir un fichier par un double clic.
j'ai ajouter sur le code feuil1
le code suivant
"Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Workbooks.Open Filename:=Range("a2") & "\" & (Target.Value)
End Sub"
si je remplace
" Workbooks.Open Filename:=Range("a2") & "\" & (Target.Value) "
par
Workbooks.Open Filename:="C:\Users\Slijack\Pact\ES\2012\CHEVALEYRE Guy Roissy en brie.xlsx"
cela fonctionne.
si quelqu'un pouvait m'aider a trouver la modification je l'en remercie d'avance
je joint un fichier
Bonsoir,
Pas analysé tout ton code, mais dans la procédure de récupération de tous les fichiers, enlèves le chr(10) :
...
...
Range("Nom").Offset(-1, 0) = .SelectedItems(1)
...
...Bonne soirée
bonsoir le forum !!
tout abord merci à cousinhub pour son aide cela fonction lors que j'ouvre jusqu'au sous dossier contenant les fichiers, mais est-il possible de faire la même chose en ouvrant juste le répertoire.
il liste bien les fichiers d'un répertoire avec une arborescence, mais lors que je double clic sur un nom de fichier dans la liste il me renvoie un message d'erreur comme quoi le chemin est introuvable, quelqu'un peut-il voir pourquoi.