Sujet Précédent Sujet Suivant

Exclure la première page dans une macro Excel 2003

Résolu/Fermé
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014 - 31 déc. 2013 à 17:18
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014 - 5 janv. 2014 à 16:27
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
A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
31 déc. 2013 à 17:46
Bonjour,

Essaie de rajouter 
.DifferentFirstPageHeaderFooter = True

A+
0
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014
31 déc. 2013 à 17:57
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
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
31 déc. 2013 à 18:21
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
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014
31 déc. 2013 à 18:38
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
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014
1 janv. 2014 à 11:54
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
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 janv. 2014 à 12:31
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
Réponse 2 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 janv. 2014 à 16:09
Effectivement, l'option "Première page différente" a dû apparaitre avec Excel 2007.

A+
0
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014
1 janv. 2014 à 16:30
OK,
Je vais trouver une autre solution.
Merci d'avoir passé du temps sur mon problème
à +
0
VELUTINA Messages postés 7 Date d'inscription mardi 31 décembre 2013 Statut Membre Dernière intervention 5 janvier 2014
5 janv. 2014 à 16:27
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