Appel macro

Fermé
Phil97214 Messages postés 5 Date d'inscription dimanche 25 février 2018 Statut Membre Dernière intervention 7 juillet 2021 - Modifié le 25 févr. 2018 à 16:50
Phil97214 Messages postés 5 Date d'inscription dimanche 25 février 2018 Statut Membre Dernière intervention 7 juillet 2021 - 25 févr. 2018 à 18:21
Bonjour,
Étant autodidacte en la matière, VBA me réserve bien des surprises.
J'ai un classeur qui via une macro m'ouvre une photo dans une nouvelle feuille. Je voudrais qu'en cliquant sur cette photo, fermer cette feuille (sans macro) et me positionner sur une cellule déterminée comportant le nom d'une autre photo de façon à créer une boucle de visualisation.

Code essayé :

Workbooks.Add Template:=xlWorksheet
NomFe = ActiveWorkbook.Name
Workbooks(NomProg).Sheets("Feuil2").Range("i1") = NomFe
ActiveSheet.Pictures.Insert(Rep + Fic).Select
With Selection
    .Top = Range("A1")
    .Left = Range("A1")
    .onaction = Application.Run "'nomprog'!Module5.suivant"    ← ne fonctionne pas !
End With
ActiveWindow.Zoom = True


Pouvez-vous m'aider?
A voir également:

2 réponses

yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 474
Modifié le 25 févr. 2018 à 18:10
bonjour, "ne fonctionne pas"=? message d'erreur, comportement inattendu, ?
0
Phil97214 Messages postés 5 Date d'inscription dimanche 25 février 2018 Statut Membre Dernière intervention 7 juillet 2021
25 févr. 2018 à 18:21
Bonjour,
sur la ligne :
.onaction=Application.Run "'nomprog'!Module5.suivant"
j'ai le message «Erreur de compilation
Erreur de syntaxe»
la variable NomProg récupérant le nom du classeur principal...
précision : si je remplace ma variable par le nom du classeur, ça ne change rien, j'ai le même message d'erreur.
0
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 474
25 févr. 2018 à 18:19
je pense que tu dois mettre le nom d'une macro dans .onaction
exemple:
.onaction = "lenomdemamacro"
0