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