suppression aprés impression

[phil69]

bonjour le forum



Grace au forum j'ai une macro qui me selectionne la zone d'une feuille cachée et me l'imprime , j'ai rajouté un code pour effacer le contenue d'une zone aprés impression mais cela ne marche pas

mon code

Application.ScreenUpdating = False
With Sheets("ancvexterieur")
.Visible = True
.Unprotect Password:=cedra
.PageSetup.PrintArea = .Range("A6😀" & _
.Range("A200").End(xlUp).Row).Address
.PrintOut
Range("A8😀150").Select
Selection.ClearContents
Range("A8").Select
.Protect Password:=cedra
.Visible = False
End With
End Sub

merci

phil69

 

[tototiti2008]

Re : suppression aprés impression

Bonjour phil69,

ce qui me saute aux yeux :

.Unprotect Password:="cedra"

.Protect Password:="cedra"

maintenant, si ce n'est pas ça, peux tu dire où ça plante et comment ça plante ?

 

[phil69]

Re : suppression aprés impression

re

j'ai essayé de mettre les " mais cela n'a rien changé, quand je lance la macro pas de bloquage, tout fonctionne ,la zone, l'impression,mais je n'ai pas la suppression de la zone selectionné (dans l'exemple,le contenu du tableau)

phil69

 

[phil69]

Re : suppression aprés impression

re bonjour le forum


suite à ma question d'hier j'ai beau essayer je n'arrive pas a supprimer le contenu des cellule selectionnées ,le probleme est que je suis nul en VBA
quelqu'un aurait-il une idée

merci

phil69

 

[ledzepfred]

Re : suppression aprés impression

salut phil69

tu peux mettre ton fichier en pj pour voir ce qui se passe

a+

 

[jmd2]

Re : suppression aprés impression

hello

fais des essais en faisant 2 macros séparées, une M1 pour imprimer, une autre M2 pour effacer.

si M2 parvient à effacer, c'est que dans la grande macroM1+M2, Excel n'a pas fini de lancer l'impression que déjà il doit effacer. Mettre une temporisation entre impression et effacement.

*****