Discussion :

[jpo]

salut

j'ouvre un modèle excel2007 (.xltx) à partir d'un winform : pas de souci

ce fichier comporte une zone d'impression bien définie : ok

qd je l'ouvre en double cliquant dessus, il garde la zone d'impression...
mais qd je l'ouvre par le code, il ne conserve pas la zone d'impression ...

qq'un a-t-il déjà rencontré ce problème !!!

si oui, qq'un a-t-il une idée ???

merci bcp !
jp
voici mon code pour info ... simple ...
Précision : tester sous vista et xp : même souci ...

Code :

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

1
2
3
4
5
6
7
8
9
Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();
excel.Visible = true;
 
Excel.Workbook classeur;
 
string chemin = @"C:\Users\jp.talbot\Desktop\classeur1.xltx";
object Omissing = Type.Missing;
object Otrue = true;
classeur = excel.Workbooks.Open(chemin, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing, Omissing);

[jpo]

détail

j'utilise le code suivant afin de sélectionner une plage de cellule de mon fichier excel ....

Code :

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

xlFeuill.get_Range("a1", "b10")

je n'arrive pas à la définir en tant que zone d'impression !!

merci d'avance pour vos idées!
jp

[draylen19]

bonjour, j'ose ramener le problème puisque j'ai le même, si ma feuille est une xlt (2003) tout marche, si c'est une 2007 excel renomme "zone_d_impression" en "print_area", comme s'il y avait un problème de langue mais je n'arrive pas a trouver lequel. Ainsi la zone d'impression disparait. merci

[jpo]

tu ouvres bien ton fichier via un code ?

[draylen19]

oui, par le code il mélange le français/anglais de la zone d'impression, si je l'ouvre par windows avec un double click, il se mélange pas.

[jpo]

salut
j'ai mis ce code vba dans mes modeles
ca fonctionne en .xlt et .xltx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Sheets("Feuil1").PageSetup.PrintArea = ""
    Sheets("Feuil2").PageSetup.PrintArea = ""
 
End Sub
 
Private Sub Workbook_Open()
 
    Sheets("Feuil1").PageSetup.PrintArea = "A1:J41"
    Sheets("Feuil2").PageSetup.PrintArea = "A1:G29"
 
End Sub

si ca peut t'aider
bon courage