macro excel 2003 nom classeur dans cellule  
 
Bonjour,
 
Merci d 'accueillir le petit dernier dans votre grande famille.
Jeune retraité, je suis en pleine programmation macro sur excel pour mon ancien employeur.
J 'ai crée une macro pour ouvrir une fenêtre:2 sous forme de loupe pour faciliter la saisie par des malvoyants.
Macro:
 
Sub Loupe_classeur()
' Loupe de saisie
Windows("classeur:2" ).Activate
Sheets("feuille1" ).Select
End Sub
 
, ça marche trés bien.
 
Aprés sauvegarde du fichier sous un nom différent numéroté.
Il n 'est plus possible d'utiliser la macro ce qui est normal.
J 'ai donc généré le nom par formule dans la cellule "A1" sur "feuille1"
Formule:
 
=STXT(CELLULE("filename" );TROUVE("[";CELLULE("filename" ))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename" ))*{-1;1})-5)
 
et modifié ma macro comme ci-dessous:
 
Sub Loupe_classeur()
' Loupe de saisie
Dim Str As String
Dim nom As String
Range("A1" ).Select
nom = ThisWorkbook.Path & "\" & ActiveCell.Text & ".xls"":2"
Windows("Nom" ).Activate 'arrêt sur erreur 9
Sheets("feuille1" ).Select
End Sub
 
Problème d 'erreur 9
 
j'ai essayer aussi:
 
Sub Loupe_classeur()
' Loupe de saisie
Dim nom As String
Range("A1" ).Select
nom = ActiveCell.Text & ".xls:2"
Windows(nom).Activate
Sheets("Feuille1" ).Select
End Sub
 
j'ai même essayer avec ":2"
même erreur, l'indice n'appartient pas à la sélection
Merci de me rediriger.
 

Ne plus répondre j'ai trouvé la réponse.

ça peut être intéressant de la diffuser ici pour le prochain qui aura un problème similaire.

 
je voudrais juste dire que pour voir plus gros les caractères dans beaucoup d'écrans il faut faire Ctrl en même temps que la roulette de la souris et çà grossit ou diminue les caractères à volonté