CONNEXION
  • RetourJeux
    • Sorties
    • Hit Parade
    • Les + populaires
    • Les + attendus
    • Soluces
    • Tous les Jeux
    • Gaming
  • RetourActu Gaming
    • News
    • Astuces
    • Tests
    • Previews
    • Toute l'actu gaming
  • RetourBons plans
    • Bons plans
    • Bons plans Smartphone
    • Bons plans Hardware
    • Bons plans Image et Son
    • Bons plans Amazon
    • Bons plans Cdiscount
    • Bons plans Decathlon
    • Bons plans Fnac
    • Tous les Bons plans
  • RetourJVTech
    • Actus High-Tech
    • Intelligence Artificielle
    • Smartphones
    • Mobilité urbaine
    • Hardware
    • Image et son
    • Tutoriels
    • Tests produits High-Tech
    • Guides d'achat High-Tech
    • JVTech
  • RetourCulture
    • Actus Culture
    • Culture
  • RetourVidéos
    • A la une
    • Gaming Live
    • Vidéos Tests
    • Vidéos Previews
    • Gameplay
    • Trailers
    • Chroniques
    • Replay Web TV
    • Toutes les vidéos
  • RetourForums
    • Hardware PC
    • PS5
    • Switch 2
    • Xbox Series
    • Switch
    • Pokemon pocket
    • FC 25 Ultimate Team
    • League of Legends
    • Tous les Forums
  • PC
  • PS5
  • Xbox Series
  • Switch 2
  • PS4
  • One
  • Switch
  • iOS
  • Android
  • MMO
  • RPG
  • FPS
En ce moment Genshin Impact Valhalla Breath of the wild Animal Crossing GTA 5 Red dead 2
Liste des sujets

Incrémentation date à chaque impression

WhiteEagles
WhiteEagles
Niveau 10
09 juillet 2021 à 14:03:03

Bonjour,

J'ai déjà une formule qui me permet d'incrémenter la date à chaque impression quand j'en fais 50 d'afiilés par exemple mais le problème c'est qu'à chaque fois je dois retirer les 2 feuilles des samedi et dimanche dont je n'ai pas besoin.

Comment puis-je rajouter une macro pour faire cette exception et ainsi ne pas imprimer les dates qui correspondent au week-end ?

Voici la macro actuellement :

Sub Imprimer()
Dim n As Variant
1 n = InputBox("Nombre de copies :", "Imprimer")
If n = "" Then Exit Sub
If Val(n) = 0 Then GoTo 1
Application.EnableEvents = False 'évite le lancement de BeforePrint
With ActiveSheet
For n = 4 / 1 / 2021 To Val(n)
.[A1] = .[A1] + 1 'numérotation
.PrintOut
Next
End With
Application.EnableEvents = True
End Sub

Merci :-)

godrik
godrik
Niveau 30
09 juillet 2021 à 14:19:22

On parle de MS Excel, j'imagine?

WhiteEagles
WhiteEagles
Niveau 10
09 juillet 2021 à 14:20:07

Pardon oui, j'ai pas précisé :desole:

Rupo
Rupo
Niveau 8
10 juillet 2021 à 13:32:10

Moyen de voir le fichier en question pour essayer de répondre à la question ?

WhiteEagles
WhiteEagles
Niveau 10
10 juillet 2021 à 14:28:59

Aucun problème, si ça peut aider.

https://www.transfernow.net/dl/20210710AD5r3Tve

Je souhaite donc qu'à chaque impression, la date en haut a gauche change, mais en sautant les week-end.

Et autre chose aussi, je cherche à imprimer en recto/verso mais pas trouver la solution non plus.

Message édité le 10 juillet 2021 à 14:31:07 par WhiteEagles
Rupo
Rupo
Niveau 8
10 juillet 2021 à 15:43:10

Tu peux tester ça :
https://www.cjoint.com/c/KGknQx4kTns

Par contre pour le recto verso c'est spécifique aux imprimantes donc je peux pas faire grand chose

Message édité le 10 juillet 2021 à 15:43:25 par Rupo
WhiteEagles
WhiteEagles
Niveau 10
10 juillet 2021 à 15:59:24

Super, je testerai ça dès lundi.

Pour l'imprimante c'est ce que j'ai lu un peu partout oui. Pourtant mon imprimante imprime bien par défaut en recto/verso.
Aucun moyen de faire comprendre en macro qu'il faut prendre cette caractéristique là ?

Tant pis pour l'économie de papier :(

Merci à toi

Sous forums
  • Aide à l'achat Mac
  • Macintosh
  • Création de Jeux
  • Programmation
  • Création de sites web
  • Linux
  • Internet
  • Steam Deck
  • Hardware
La vidéo du moment