Exclure la première page dans une macro Excel 2003

Résolu
VELUTINA Messages postés 7 Statut Membre -  
VELUTINA Messages postés 7 Statut Membre -
Bonjour,
Je ne suis pas très doué en VB mais j'ai réussi à créer cette macro pour recopier des cellules dans le pied de page.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightFooter = "&P"
.LeftFooter = Range("B11")
.CenterFooter = Range("C13")

End With
End Sub

Je voudrais que ça ne s'imprime pas sur la 1ère page.

Si quelqu'un peut me corriger la macro je lui en serait reconnaissant.

Merci d'avance

2 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie de rajouter
    .DifferentFirstPageHeaderFooter = True

    A+
    0
    1. VELUTINA Messages postés 7 Statut Membre
       
      Merci de ta réponse rapide.
      Je l'ajoute à quel endroit ?
      J'ai essayé après
      With ActiveSheet.PageSetup
      ça marche pas
      Après
      .CenterFooter = Range("C13")
      ça marche pas non plus
      Merci de ta réponse
      0
    2. Gyrus Messages postés 3360 Statut Membre 526
       
      Tu peux faire le test avec le fichier joint et voir où le bât blesse.
      La première page ne contient pas les valeurs de B11, C13 et le numéro de page.

      https://www.cjoint.com/c/CLFssjsIGTO

      A+
      0
    3. VELUTINA Messages postés 7 Statut Membre
       
      Merci Gyrus
      j'ai essayé mais ça ne marche pas ça m'imprime le pied de page sur la 1ère et les suivantes
      quand j'appuie sur test dans ton fichier ça me dit ; propriété ou méthode non gérée par cet objet
      bon je dois aller au réveillon
      je verrai demain si j'ai les idées plus claires
      merci encore et passe un bon réveillon
      0
    4. VELUTINA Messages postés 7 Statut Membre
       
      Bon j'ai testé à tête reposée.
      ça ne fonctionne pas.
      Le pied de page apparait toujours sur la 1ère page
      Merci de votre aide.
      Je doit terminer ce travail pour lundi matin.
      à +
      0
    5. Gyrus Messages postés 3360 Statut Membre 526
       
      Je suis bien ennuyé pour te répondre car quand je lance la macro que je t'ai adressée, j'obtiens bien un aperçu avant impression qui montre une première page sans indications de pied de page et une seconde page avec ces indications.
      J'ai du mal à comprendre pourquoi tu n'obtiens pas le même résultat avec ce même classeur.

      A+
      0
  2. Gyrus Messages postés 3360 Statut Membre 526
     
    Effectivement, l'option "Première page différente" a dû apparaitre avec Excel 2007.

    A+
    0
    1. VELUTINA Messages postés 7 Statut Membre
       
      OK,
      Je vais trouver une autre solution.
      Merci d'avoir passé du temps sur mon problème
      à +
      0
    2. VELUTINA Messages postés 7 Statut Membre
       
      Salut Gyrus.
      Juste pour te tenir informé compte tenu du temps passé avec moi.
      J'ai chargé Office 2007 hier et effectivement la maco fonctionne parfaitement.
      Sauf que j'aime pas trop 2007, trop compliqué à mon goût et je n'ai pas trop de temps à consacrer à mon apprentissage et du coup de suis revenu à V2003
      J'ai trouvé une autre soluce pour mes pied de page.
      J'avais déjà passé la version Office 2000 l'année dernière et c'était pareil que V2007
      Merci encore
      à +
      0