Code VBA pour valeur de cellule dans ecriture

[Anais]

Bonjour,j'ai un petit problème,

Voilà, j'ai appliqué à une image, avec une macro, la destination d'un onglet lorsqu'on clique sur cette image.

Ce cose est le suivant:

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets('Arrivée').Select
End Sub

Je me suis dit que dès lors si dans une cellule ( exemple la cellule B4 de l'onglet départ), on pouvait écrire le nom de l'onglet de destination, et que le code VBA faisait référence à cette cellule, dès lors on pouvait changer , la destination pour la macro.

J'ai donc écrit dans le code :

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets [B4].Select
End Sub


Mais cela ne fonctionne pas.

Pouvez vous m'aider?

Merci

Anais

 

[Sylvain]

bonjour,

essaie ça, je sais pas pourquoi ça marche et sheets([b4]).select marche mais uniquement avec des numéros.. :

Sub et()
jl = [b4]
Sheets(jl).Select
End Sub

 

[Anais]

Merci Sylvain, pour ton aide. Mais je ne sais pas comment l'integrer dan smon code. Ja'i fait comme cela mais çà ne marche pas:

Sub et()
jl = [b4]
Sheets(jl).Select
End Sub


Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
Sheets(jl).Select
End Sub


Je suis débutante. Peux tu m'aider stp?

Merci

Anais

 

[Sylvain]

OK, jl est une variable dans laquelle j'ai mis la valeur de b4 donc il faut le faire dans ton code :

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
jl = [b4]
Sheets(jl).Select
End Sub

 

[Anais]

Ca marche, c'est génial, je te remercie beaucoup.

Sais tu si cela peux marcher pour une destination vers d'autres classseurs?

De toute manière je vais essayer, et je te tiens au courant

Merci


Anais

 

[Anais]

Cela ne fonctionne pas. Dans la case B4, j''ai inscrit le chemin suivant:

C:\\Test\\essai dossier\\classeur d'arrivée\\feuil2.xls

Cela donne le code suivant:


Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'

'
jl = [b4]
Sheets(jl).Select
End Sub

Mais cela ne fonctionne pas. Que dois je faire?


Merci


Anais


Anais

 

[Sylvain]

je ne sais pas, il s'agit d'un classeur déjà ouvert ? sinon il faut passer par open
Dans le cas où le classeur est ouvert, le plus simple est quand même d'utiliser 2 cellules, une pour la feuille ou pour le classeur

Sub Image2_QuandClic()
'
' Image2_QuandClic Macro
' Macro enregistrée le 05/11/2005 par Anais
'
nom_cla = [B3]
nom_feuil = [B4]

Workbooks(nom_cla).Activate
Sheets(nom_feuil).Activate

End Sub