Discussion :

[Tazzou]

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

[EricDgn]

Bonjour,

Vérifier que NomFichier ne comporte pas de caractère non admis, par exemple à l'aide d'un Debug.Print.
Pour NomFichier, un peu plus simple:

Code :

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

1
2
3
    NomFichier = "Cycle " & Me.Cycle & " modifié le " & Format(Now, "yyyy-mm-dd \à hh\hnn") & ".pdf"
    Debug.Print NomFichier
    DoCmd.OutputTo ...

Cordialement.

[Tazzou]

J'ai réussi en mettant un msgbox juste après l'ouverture des formulaires car j'avais ensuite le message disant que je ne peux rien faire pendant l'exécution d'une commande sur un formulaire qui avait une procédure sur timer

Merci de ton aide qui m'a tout de même servi.