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
Partager