XL 2019 désélectionner un graph

[Bruce68]

bonjour à tous
J'ai cette macro pour visualiser mes 12 graphiques, il m'arrive de sélectionner un grap pour faire une modif, mais quand je sélectionne un graph par macro
c'est celui sélectionné que je vois, j'ai rajouté la ligne: Range("A1").Select mais cela ne fonctionne pas.
Que faut il faire pour déselectionner le graph avant visualisation.
Je vous remercie de votre aide

Sub ImpJanvier()
With Sheets("Mensuel")
Range("A1").Select
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("B4:M42").Address
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End Sub

 

[Hasco]

bonjour,

Oublié le . devant Range("A1").Select ?
si la macro est lancée alors qu'une autre feuille est active, c'est le A1 de l'autre feuille qui est sélectionné.
La ligne .PageSetup.PrintArea = "" est inutile, le printArea étant écrasé à la ligne suivante.

Cordialement

 

[Bruce68]

Bonjour Hasco et le forum
Merci pour la réponse même comme cela la macro ne fonctionne pas :erreur 104
Sub ImpJanvier()
With Sheets("Mensuel")
.Range("A1").Select ici : erreur 1004 la méthode select de la classe range à échoué
.PageSetup.PrintArea = .Range("B4:M42").Address
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End Sub

 

[Hasco]

Re,

Bon on va pas tourner autour du pot bien longtemps. Joignez un fichier !

Si la feuille "Mensuel" Existe et qu'elle est la feuille active il n'y a pas de raison que ça ne fonctionne pas.

Sans fichier, ce sera mon dernier mot !

 

[Bruce68]

Voici le fichier

 

[Hasco]

Re,

Bon, ben c'est bien ce que je vous disais, il faut activer la feuille !
Pour pouvoir sélectionner quelque chose dans une feuille, il faut que celle-ci soit la feuille active.

La macro ci-dessous fonctionne :

Sub ImpJanvier()
    With Sheets("Mensuel")
        .Activate
        .Range("A1").Select
        .PageSetup.PrintArea = .Range("B4:M42").Address
        .PageSetup.Orientation = xlLandscape
        .PrintPreview
    End With
 End Sub

Cordialement

 

[Bruce68]

Merci Hasco pour la macro ça marche comme je voulais.
Bonne soirée à tous