macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

[casamartin]

J'ai réaliser une macro pour naviguer dans 2 fenêtres avec des caractéristiques différentes pour favoriser la saisie par des mals voyants voir modèle épuré ci-dessous:

Cette macro se trouve dans la Feuil1
Sub loupe_classeur1()
'
Application.ScreenUpdating = False
Windows("Devis:2").Activate
Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

Une autre macro avec compteur numéroteur sauvegarde le Devis sous un autre nom, (0001 Devis).
Pour modification, on rappelle le classeur sauvegardé.
La macro loupe ne fonctionne plus, ce qui est normal.
Comment remplacer le nom Devis par le nom 001 Devis dans une cellule.
La fonction thisworkbook fonctionne bien pour la sauvegarde mais pas pour activer.
Merci d'avance, je suis bloqué.

 

[Pierrot93]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Bonjour,

essaye ceci

ThisWorkbook.Windows(2).Activate

bonne journée
@+

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Merci ça fonctionne, c'était simple bonne journée aussi.

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Encore un dernier souci et mes macros sont terminées.
même problème que précédemment mais ne peut-être résolu de la même manière.
Voici la macro:
Sub slogo_1()
'
'supprime logo1'

ActiveSheet.Shapes("slogo1").ZOrder msoSendToBack
'Déprotection
Application.ScreenUpdating = False
Sheets("Feuil1").Select
ActiveSheet.Unprotect mdp
Sheets("Feuille2").Select
'Sélection adresse"
Windows("Menu1.xls").Activate
Sheets("Feuil1").Select
Range("C3:C6").Select
Selection.Copy
'Supprime adresse
Sheets("Feuil2").Select
Range("P6").Select
ActiveSheet.Paste
'Supprime logo
Windows("0001 Devis:1").Activate ' (je dois remplacer par nom dans cellule du classeur menu)
Sheets(")").Select
ActiveSheet.Shapes("galva").Select
Selection.Delete
Sheets("Feuil1").Select
ActiveSheet.Shapes("Logo1").Select
Selection.Delete
Sheets("Feuil2").Select
ActiveSheet.Shapes("Logo1").Select
Selection.Delete
'Protection
ActiveSheet.Protect mdp
Sheets("Roulage TO(0)").Select
ActiveSheet.Protect mdp
Sheets("Pliage TO(0)").Select
ActiveSheet.Protect mdp
Sheets("Devis TO(0)").Select
ActiveSheet.Protect mdp
Application.ScreenUpdating = True
End Sub

Je déprotège pour supprimer des Logos, je copie l'adresse qui ce trouve dans un classeur contenant tous les paramêtres de 3 sociétés.
Mais comment revenir quand le nom du classeur devis à changé et qu'il se trouve dans une cellule dudit classeur.

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Je pense qu'il faut d'abord que je copie le nom du classeur 0001 devis dans le classeur menu mais aprés ? je ne sais plus

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Voici une macro simplifiée pour expliquer mon problème

Sub slogo()
'
'vers nom classeur dans cellule "Q5"
'

Dim nom As String
Range("F4").Select
Selection.Copy
Windows("menu.xls").Activate
Range("Q5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
nom = ActiveCell & ".xls:1"
ActiveWindows nom
End Sub

J'ai copié la cellule contenant le nom du classeur
Pour retourner vers le nouveau classeur, je bloque sur la dernière ligne.

 

[Pierrot93]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Re,

peut être :

Windows(nom).Activate

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

OK j'ai trouvé le code ThisWorkbook.Activate
j'ai aussi transféré ma macro dans un module du classeur concerné.

Problème résolu.

Merci Pierrot93

 

[casamartin]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Avec Windows(nom).Activate ça ne marche pas, j'ai essayé.

 

[Pierrot93]

Re : macro navigation avec double fenêtre obsolète quand le nom du classeur à changé

Re,

A voir ce que contient ta variable nom....