ce code déclenche l'ouverture du fichier lorsque l'on double-clique sur la cellule A1 :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = [A1] Then
nomFichier = 'C:' & Target & '.xls'
Workbooks.Open nomFichier
End If
End Sub
ce code est à placer dans le module de la feuille où se trouve la cellule A1
Quasi la même chose qu'AeroPlaneur (Mais comme j'etais en train de plancher dessus...)
A mettre dans le même dossier que ceux que tu veut ouvrir [file name=Domico.zip size=6920]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Domico.zip[/file]
Merci pour la réponse tres rapide, je crois que je vais occuper ma soirée.j'espere me débrouiller car jai un gros programme a monter.
Bon week end et merci
Merci grace a l'envoi de votre fichier je suis arrivé à ouvrir mon 2eme classeur, mais je rencontre nouveau problème car ce qui fontionne pour la cellule A1 ne fonctionne par pour ma cellule (L17C6)pourriez vous m'indiquer la bonne syntaxe.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = Range('F17') Then
fichier = ActiveWorkbook.Path & '\\' & Target & '.xls'
Workbooks.Open fichier
End If
End Sub
et pour le code d'AeroPlaneur
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = [F17] Then
nomFichier = 'C:' & Target & '.xls'
Workbooks.Open nomFichier
End If
End Sub
Sinon va dans Outils--Options
Onglet général et décoche 'Style de référence L1C1'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
fichier = ActiveWorkbook.Path & '\\' & Target & '.xls'
Workbooks.Open fichier
End Sub
dans chaque cellule ou il y aura un nom de classeur (valide), Double clic, il s'ouvrira
même punition pour celui de mon ami
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
nomFichier = 'C:' & Target & '.xls'
Workbooks.Open nomFichier
End Sub
EDIT: A chacun son style personnellement je préfere A1 que L1C1