Salut le forum !!!

Cela faisait un bon moment que je n'étais pas venu mais voici un soucis qui me bloque :

je souhaite créer un fichier PDF de 2 formulaires depuis un autre formulaire mais lorsque j'exécute cette programmation
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
If Dir("C:\Planning", vbDirectory) = "" Then
   MkDir ("C:\Planning")
Else
End If
 
If Dir("C:\Planning\SavePDF", vbDirectory) = "" Then
   MkDir ("C:\Planning\SavePDF")
Else
End If
 
If Dir("C:\Planning\SavePDF\" & Year(Me.DateDepart), vbDirectory) = "" Then
   MkDir ("C:\Planning\SavePDF\" & Year(Me.DateDepart))
Else
End If
 
If Dir("C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningTech", vbDirectory) = "" Then
   MkDir ("C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningTech")
Else
End If
 
If Dir("C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningIde", vbDirectory) = "" Then
   MkDir ("C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningIde")
Else
End If
 
DestinationT = "C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningTech"
DestinationI = "C:\Planning\SavePDF\" & Year(Me.DateDepart) & "\PlanningIde"
NomFichier = "Cycle " & Me.Cycle & " modifié le " & Replace(Date, "/", "-") & " à " & Hour(Now) & "h" & Minute(Now) & ".pdf"
 
'DoCmd.OutputTo acOutputReport, Etat, "PDF", Destination_BL & NomFichier_BL
DoCmd.OutputTo acOutputForm, "F_Planning_Imprimable_TA", "PDF", DestinationT & "\" & NomFichier
DoCmd.OutputTo acOutputForm, "F_Planning_Imprimable_I", "PDF", DestinationI & "\" & NomFichier
j'ai le message "la commande outputto a été annulée" avec ou sans " " autour du nom des formulaires à imprimer et la ligne 31 est surlignée

Avez vous une solution ???

Merci de votre aide rapide