Macro VBA de création de PDF automatique depuis un fichier EXCEL
Bonjour,
Je suis finalement arrivée à bout d'une macro qui me permet de générer de manière automatique depuis un fichier EXcel une multitude de fichier PDF remplissant la condition mise dans mon code VBA ci-dessous. Le seul problème et pas des moindres, c'est que le libellé pris pour enregistrer les PDF est parfois tronqué et de manière aléatoire. Je n'ai aucune idée pourquoi. Quelque soit le libellé, il est tronqué! Exemple de libellé testé "ARRONDISSEMENT BAGNERES DE BIGORRE" ou encore "ZONAGE A FACON 01" ou encore "01". Bref, j'ai tout essayé et je ne vois pas pourquoi il va me retirer dans "ARRONDISSEMENT BAGNERES DE BIGORRE" le "ARROND".
QUelqu'un a t-il une idée sur ce problème ou peut-être même l'aurait déjà rencontré. Merci par avance pour votre aide. Virginie
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 29 30 31 32 33 34 35 36 37
| Sub CREATION_ZONAGE_SPECIFIQUE()
'
' CREATION_ZONAGE_SPECIFIQUE Macro
' Macro enregistrée le 22/11/2011 par C481604
'
' Touche de raccourci du clavier: Ctrl+q
'
Dim mois, annee As String
mois = Month(Sheets("plages graph").Range("A4"))
annee = Year(Sheets("plages graph").Range("A4"))
Dim chemin As String
Dim nom As String * 34
Dim i As Integer
chemin = "S:\"
For i = 2 To 37
If Sheets("zones").Cells(i + 2, 19) > 0 Then
Sheets("Synthèse").Range("E6") = Sheets("zones").Cells(i + 2, 18)
nom = Sheets("zones").Cells(i + 2, 20).Value
bandeau
zonetXT
Sheets("Zonage à façon specifique").Select
ThePath = chemin
TheFullName = nom
SendKeys = ThePath & TheFullName
SendKeys ("{ENTER}")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, ActivePrinter:="Adobe PDF"
End If
Next
End Sub |