Discussion :

[raivig]

Bonjour,
Ce sujet a déjà été traité, mais les propositions faites ici n'ont pas fonctionné chez moi.
Chaque cas peut être différent, certes.
Voici le mien...
J'ai une zone d'impression définie ainsi:
A1:M38
la mise à jour de cette liste au fur et à mesure fait que la liste à imprimer va s'agrandir...
la semaine prochaine ce sera de A1:M45
ensuite de A1:M55 etc...

J'ai essayé plein de choses, je n'y arrive pas.
D'avance, merci pour toute aide

(sachant que, mais vous l'aurez compris, que je ne suis pas expert...)

[ARTURO83]

Bonjour,

Fichier en exemple; ajoutez des lignes et cliquez sur le bouton (pensez à changer le nom de la feuille, en rouge dans le code)
Pour accéder au code, appuyez simultanément sur les touches : ALT et F11
Pièce jointe 497828

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Imprimer()
    On Error Resume Next
    ActiveWorkbook.Names("zone_d_impression").Delete
    DerLig = [A10000].End(xlUp).Row
    Range(Cells(1, "A"), Cells(DerLig, "M")).Select
    ActiveWorkbook.Names.Add Name:="zone_d_impression", RefersToR1C1:="=Feuil1!R1C1:R" & DerLig & "C13"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Cdlt

[78chris]

Bonjour à tous

Sauf si tu as des données à droite de M que tu ne souhaites pas imprimer, la zone d'impression ne sert à rien. Supprime-la afin qu'elle soit calculée dynamiquement par Excel

[raivig]

Merci pour votre réponse.
C'est exactement ce que je recherchais, je suis donc bien content du résultat.

Comment puis-je modifier ce code en changeant la destination de l'impression...
En fait je ne l'avais pas précisé, mais je souhaite surtout sauvegarder cette feuille en htm...
en utilisant la fonction "Enregistrer sous... type: page web (*.htm)
et donc utiliser cette zone imprimable...

(j'avais un autre code qui fonctionne, mais les boutons de mes macro apparaissent sur la page web
j'ai donc du déplacer ces boutons sur une autre feuille, ce qui n'est pas vraiment pratique).

[ARTURO83]

Bonjour,

Faites un enregistrement au format WEB(html) en utilisant l'enregistreur de macro, il n'y a plus qu'à récupérer le code obtenu et le coller à la place de la ligne d'impression du code fourni précédemment. Ce qui donne quelque chose dans ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.SaveAs Filename:="C:\Chemin\raivig_Zone imprimable variable.htm", FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

Cdlt

[raivig]

Bonjour,

Faites un enregistrement au format WEB(html) en utilisant l'enregistreur de macro, il n'y a plus qu'à récupérer le code obtenu et le coller à la place de la ligne d'impression du code fourni précédemment. Ce qui donne quelque chose dans ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.SaveAs Filename:="C:\Chemin\raivig_Zone imprimable variable.htm", FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

Cdlt

Merci beaucoup, je vis essayer ça dès que possible...
Ca me paraît un peu compliqué mais ça devrait aller

[anasecu]

Bonjo

mais les boutons de mes macro apparaissent sur la page web
j'ai donc du déplacer ces boutons sur une autre feuille, ce qui n'est pas vraiment pratique).

Pour que tes boutons ne soient pas imprimés, il suffit de décocher "imprimer l'objet" dans les propriétés de tes boutons

[raivig]

Je l'ai bien entendu fait... En page Web ça apparaît quand même...

[ARTURO83]

Mettez le bouton hors de la zone d'impression