Discussion :

[Patouillou]

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
Aperçus pdf
Aperçus Excel

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
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 :

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
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 ,

[parmi]

Bonjour,

Je ne suis pas certain que ça puisse fonctionner avec PDF, mais j'essaierais

Code :

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

Range("A18").Value = Replace(TextBox1, vbcrlf, vbLf)

[Patouillou]

Et bah sacher que cela fonctione !!! Merci beaucoup de votre aide !!

[kiki29]

Salut, un détail, indépendamment de tout cela tu as rajouté des & "/" inappropriés.