ouvrir auto d'un 2eme class

[Domico]

bonjour à tous,

question:
Je voudrais ouvrir automatiquement un 2eme classeur en tapant un code(nom du class a ouvrir soit C20133)dans une cellule,
Merci d'avance

 

[AeroPlanneur]

bonjour Domico,

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

cordialement

 

[Dull]

Salut Domico, AeroPlaneur, Le Forum

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]

 

[Domico]

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

 

[Domico]

merci pour la réponse et jespère pouvoir recopier sans probleme.
Merci et bon week end

 

[Domico]

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.

 

[Dull]

Salut Domico, le Forum,

Pourquoi ça marche pas :huh: :huh: :huh:

L17C6 correspond à la cellule F17

remplace A1 par F17 et le tour est joué

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

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'

 

[Domico]

Merci super, question pour la programmation il est mieux d'utiliser les lettres que les chiffres (colonnes)?

 

[Dull]

re domico

Sinon

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

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

Message édité par: dull, à: 04/06/2006 09:48