Bonjour,
J'ai une macro qui vient vérifier les en têtes et pied de page avant l'impression. Seulement en passant par page.setup de VBA c'est lent.
J'aimerai utiliser Excel4Macro mais je n'y parvient pas.
Quand j'essaie de lancer le code ça plante. Faut il ajouter une référence?
Est ce possible d'utiliser Excel4Macro avec Excel 2003?
J'aimerai que cette macro soit utilisable sous excel 2007 est ce que ce sera possible?
J'ai essayé avec ça:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ExecuteExcel4Macro ("Page.Setup(""Hello"",""Testing"",0.75,0.75,1,1,FALSE,FALSE,FALSE,FALSE,2,9,TRUE,100,1,FALSE,360,0.5,0.5,FALSE,FALSE)")
mon code vba est celui ci il est placé dans thisworkbook sub before print:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For Each Sheet In ThisWorkbook.Sheets
    If Sheet.Name = "Feuille de Saisie" Then
    ns = Sheet.Cells(1, 9).Value
    chantier = Sheet.Cells(1, 4).Value
    With Sheet.PageSetup
        .LeftHeader = "                  &G"
        .CenterHeader = "&16" & "Tableau récapitulatif chantier n°" & Cells(1, 3).Value & Chr(10) & chantier & " à fin semaine " & ns '& Chr(10) & "&F"
        .RightHeader = "&14" & "Date de dernière  modification : &D" & Chr(10) & "&F"
        .LeftFooter = ""
        '.CenterFooter = ""
        .RightFooter = ""
    End With
    Else
    nom = Sheet.Cells(3, 1).Value
    With Sheet.PageSetup
        .LeftHeader = "                  &G"
        .CenterHeader = "&14" & "BILAN TACHE: " & nom
        .RightHeader = "Date de dernière  modification : &D"
        .LeftFooter = "&F"
        '.CenterFooter = ""
        .RightFooter = "Fiche de suivi "
    End With
    End If
Si vous êtes à l'aise avec les arguments du page.setup et que vous me doniez l'équivalent de ce que j'ai écrit ce serai parfait.
Sinon si vous savez le pourquoi du comment ça ne fonctionne pas pour moi je suis preneur.

Merci