macros pour ne plus imprimer à partir d'une date
Dernière réponse : dans Programmation
salut les codeurs fous!!!
ne sachant faire que des maros enregistrement d'etapes qui satisfait ma direction ...
il me faut une macro qui:
jusquà une date limite le fichier xls s'ouvre et on enregistre dessus sans problème
passer la date limite la macro:
1er solutions: efface tout le contenu des feuilles du fichier meme protégé par un mot de passe puis se ferme automatiquement
ou
2éme: laisse le fichier intacte mais bloque les impressions de toutes les feuilles (impossibilité de choisir une imprimante, le ctrl+p ne marchant plus)
je préfère le n2 ça passera mieux aupès de ma direction. si ça imprime plus.
Merci par avance
cad37
PS Merci à zeb pour le début de l'entretien...
ne sachant faire que des maros enregistrement d'etapes qui satisfait ma direction ...
il me faut une macro qui:
jusquà une date limite le fichier xls s'ouvre et on enregistre dessus sans problème
passer la date limite la macro:
1er solutions: efface tout le contenu des feuilles du fichier meme protégé par un mot de passe puis se ferme automatiquement
ou
2éme: laisse le fichier intacte mais bloque les impressions de toutes les feuilles (impossibilité de choisir une imprimante, le ctrl+p ne marchant plus)
je préfère le n2 ça passera mieux aupès de ma direction. si ça imprime plus.
Merci par avance
cad37
PS Merci à zeb pour le début de l'entretien...
Autres pages sur : macros imprimer partir date
Lassé par la pub ? Créez un compte
La solution 2 n'est pas possible, on peut toujours imprimer....
Tu veux un fichier qui s'auto-détruise ?
Une macro ne peut pas supprimer le classeur au sens du système.
Bon, il te reste donc la possibilité de vider chaque onglet et s'enregistrement.
L'enregistreur de macro devrait t'aider. Poste ton code quand il ressemble à quelque chose, on t'aidera à en faire un truc utile
Tu veux un fichier qui s'auto-détruise ?
Une macro ne peut pas supprimer le classeur au sens du système.
Bon, il te reste donc la possibilité de vider chaque onglet et s'enregistrement.
L'enregistreur de macro devrait t'aider. Poste ton code quand il ressemble à quelque chose, on t'aidera à en faire un truc utile
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 04/10/2006 par -
'
'
Sheets("Feuil2").Select
Cells.Select
Selection.ClearContents
Selection.ColumnWidth = 2
Selection.RowHeight = 6.75
Sheets("Feuil3").Select
Cells.Select
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ColumnWidth = 1.71
Selection.RowHeight = 10.5
Sheets("Feuil1").Select
Cells.Select
Selection.ClearContents
Selection.ColumnWidth = 2
Selection.RowHeight = 12
Range("A1").Select
End Sub
je ne peux faire que ça mais ce n'est pas ce que je veux
je ne sais pas inséré la date ou la macro se met en route
et qu'elle se lance automatiquement.
le problème aussi est que si quelqu'un ouvre la macro il voit le but de celle-ci
et çà c'est ma pas bon pour moi...une solution furtive serait très bien,
ou des lignes de commande mélangés à d'autres qui ne sert à rien ou qui génère une date un truc inutile pour me couvrir.
Voila tout
ne trouvant aucune solution tout en lisant les autres sujets, je ne sais comment faire
une autre macro laissant le fichier intacte mais qui imprime une page blanche
au lieu la sélection prédéfini, n imprimé plus qu'une cellule soit "rein"
cela me conviendrait
toujours le souci de lancer la macro à une date précise celle ci qui sur chaque feuille donne en impression la cellule A1
COMPRENDO TYPE
Mais le souci c'est qu' il me demande de cliqué OK pour faire ce que je veux
Rien n'est automatique et ça me blaze
QUE FAIRE???
CAD37
une autre macro laissant le fichier intacte mais qui imprime une page blanche
au lieu la sélection prédéfini, n imprimé plus qu'une cellule soit "rein"
cela me conviendrait
toujours le souci de lancer la macro à une date précise celle ci qui sur chaque feuille donne en impression la cellule A1
COMPRENDO TYPE
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/10/2006 par -
'
'
ActiveWindow.View = xlPageBreakPreview
Range("A1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1"
End Sub
Mais le souci c'est qu' il me demande de cliqué OK pour faire ce que je veux
Rien n'est automatique et ça me blaze
QUE FAIRE???
CAD37
RpF_LiGhT a dit :
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 04/10/2006 par -
'
'
Sheets("Feuil2").Select
Cells.Select
Selection.ClearContents
Selection.ColumnWidth = 2
Selection.RowHeight = 6.75
Sheets("Feuil3").Select
Cells.Select
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ClearContents
Selection.ColumnWidth = 1.71
Selection.RowHeight = 10.5
Sheets("Feuil1").Select
Cells.Select
Selection.ClearContents
Selection.ColumnWidth = 2
Selection.RowHeight = 12
Range("A1").Select
End Sub
je ne peux faire que ça mais ce n'est pas ce que je veux
je ne sais pas inséré la date ou la macro se met en route
et qu'elle se lance automatiquement.
le problème aussi est que si quelqu'un ouvre la macro il voit le but de celle-ci
et çà c'est ma pas bon pour moi...une solution furtive serait très bien,
ou des lignes de commande mélangés à d'autres qui ne sert à rien ou qui génère une date un truc inutile pour me couvrir.
Voila tout
Grr... Pas de Select/Selection. L'utilisateur ne verra rien.
Il y a plein de trucs à virer après un passage par l'enregistreur de macros. Et comprendre chaque ligne. Il en reste qu'il te faut faire quelque chose comme ça :
For i = 1 to Sheets.Count
Sheets(1).Cells.ClearContents
Next
Sheets(1).Cells.ClearContents
Next
Pour lancer une macro au démarrage, utilise l'événement Open de l'objet ThisWorkbook. Tu devrais obtenir la procédure Workbook_Open
Lassé par la pub ? Créez un compte
- Contenus similaires :
- ForumImprimer étiquettes à partir fichier exel
- ForumImprimer a partir souris avec fire fox
- ForumJe ne peux plus imprimer avec firefox
- ForumProbleme epson dx8450 ne veut plus imprimer
- ForumJ'arrive plus a imprimer
- articlesImprimer en couleur quand plus de noir
- ForumMon imprimante lexmark ne veut plus imprimer
- ForumMa canon s600 ne veut plus imprimer
- ForumImprimer page web avec texte plus grand
- ForumCalcul age a partir date precise excel
- Voir plus