2 pièce(s) jointe(s)
Apparition de "petits carrés" après convertion pdf
Bonjour,
J'ai un petit soucis de présentation lors de ma conversion en pdf d'une feuille excel.
Je vous explique la situation :
J'ai un userform qui contient un grand textbox dans lequel je peux ecrire un grand texte , en passant à la ligne avec la touche entrée.
Après validation, mon texte se range dans une grand case et tout va bien
Jusqu'au moment ou j'appuie sur mon bouton imprimer, tout ce passe comme prévu , il m'ouvre mon fichier .pdf
Et là, des petits carrés sont apparut à la fin de chaque ligne de la cellule ..
Je ne comprend pas l'erreur c'est pour cela que j'en viens à vous !
Voici des photos et le code 1: du bouton
2: de l'userfom
Pièce jointe 215949 Aperçus pdf
Pièce jointe 215950 Aperçus Excel
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub RAPPORT_Bouton6_Cliquer()
Dim LeParcours As String, LeRep As String
LeParcours = Range("G10").Value
Dim FSO As Object, sNomDossier As String
Set FSO = CreateObject("Scripting.FileSystemObject")
sNomDossier = "HYD" & LeParcours
sChemin = "C:\Users\emmanuel-baigne\Dropbox\HYD2014\" & sNomDossier & "/"
If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin)
Set FSO = Nothing
LeRep = "C:\Users\emmanuel-baigne\Dropbox\HYD2014" & "\" & sNomDossier & "/" ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & "HYD" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub |
Code:
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
| Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Range("A18:H42").Select$
Selection.Merge
With Selection
.NumberFormat = "@"
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("A18").Value = TextBox1
Unload Me
End Sub
Private Sub TextBox1_Change()
End Sub |
Merci de votre aide !
Cordialement ,
