Discussion :

[ab1to]

Bonjour,

J'ai créé une macro pour récupérer du texte qui se trouve dans des cellules de mon fichier xls et l'utiliser pour créer mon en-tête.

Mon texte se trouve dans 4 cellules et se retrouve dans 3 lignes de mon en-tête.
Le problème est que la première ligne de mon en-tête est coupée.

Avez-vous une idée de ce qui pourrait provoquez cela ?

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Header_Footer()
 
Sheets("Macros").Select
 
Dim StudName As String
Dim CustName As String
Dim SegName As String
Dim TitleName As String
 
StudName = Range("B" & 14).Value
CustName = Range("B" & 15).Value
SegName = Range("B" & 16).Value
TitleName = Range("B" & 17).Value
 
 
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
        .CenterHeader = "&""Tahoma,Regular" & "&8&K002060" & StudName & Chr(10) & _
                        "&""Tahoma,Bold""&8&K002060" & CustName & " - " & SegName & Chr(10) & _
                        "&""Tahoma,Regular""&8&K002060Actieplan"
        .LeftFooter = "&""Tahoma,Regular""&8&K002060ICMA International"
        .CenterHorizontally = True
        .Orientation = xlLandscape
        .LeftMargin = Application.InchesToPoints(0.748031496062992)
        .RightMargin = Application.InchesToPoints(0.748031496062992)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.590551181102362)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .CenterHorizontally = True
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
End With
Next x
 
 
End Sub

Merci d'avance

Anthony

[ouskel'n'or]

Je n'ai pas lu ta question mais regarde ici, fring s'en fendu d'un tuto qui pourrait te rendre service
Bonne journée

[ab1to]

Malheureusement, ça ne m'aide pas.

Tout fonctionne sauf que le texte qui se trouve dans ma variable StudName est coupé. Le reste fonctionne très bien.

De plus, la différence avec le tuto est que je vais chercher le texte dans des cellules.

Anthony

[ouskel'n'or]

De plus, la différence avec le tuto est que je vais chercher le texte dans des cellules

Eh oui, et ce n'est sans doute pas le même texte non plus
Tu t'attendais à quoi ?
Bonne chance dans tes recherches

[GarnierFlorian]

Salut !

Essaye en supprimant la concaténation à la fin de la ligne :

Code :

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

.CenterHeader = "&""Tahoma,Regular" & "&8&K002060" & StudName & Chr(10) & _

Pour moi si tu fais un saut de ligne ta concaténation se fait avec rien ?!

Et sinon je ne vois pas ton TitleName ?


Petite modification : j'ai regardé le lien que t'a donné ouskel'n'or et je pense que tu peux tout à fait te débrouiller avec ! c'est en plus très clair donc aucun problème !!

Peace

[ab1to]

J'ai essayé sans les sauts de ligne, mais ça ne change rien.

Par-contre, j'ai supprimé Regular dans le premier "&""Tahoma,Regular" et ça fonctionne!

Si vous avez une explication, elle est la bienvenue ...

Merci à tous.

[GarnierFlorian]

Salut ! Ba écoute j'ai réfléchi à ton problème, et en fait je me suis dit qu'il est peut-être dû au fait que Tahoma Regular est une police particulière, donc non de base contrairement à Tahoma, donc si ça se trouve c'est tout simplement ça !

Bonne journée !

Peace