Discussion :

[l'indien_obscur]

Bonjour,

Grâce au logiciel PDF Creator que nous a presenté Cafeine, je peux exporter des etats PDF automatiquement (avec AutoSave) vers un répertoire défini (C:\Temp)
Je souhaite copier les états obtenus vers le répertoire de mon choix dont le nom dépend d'une variable d'un menu déroulant dans le formulaire principal. Pour ça j'ai un bouton de commande qui exécute le code suivant :

Private Sub Commande199_Click()

Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFolder "C:\Temp", "C:\...\sorties etat\" & "[intitops]=[Forms]![accueil]![intitops]", True
Set fso = Nothing

End Sub

"intitops" etant la variable dans le menu déroulant du formulaire "accueil". Pour l'instant je n'obtiens pas la création d'un répertoire du nom de la variable mais celui d'un répertoire qui s'appelle "[intitops]=[Forms]![accueil]![intitops]".

Alternativement j'ai le code suivant qui sort les etats en PDF :

Function PDF()
On Error GoTo PDF_Err

DoCmd.OpenReport "fiche programme", acViewNormal, "", "[intitops]=[Forms]![accueil]![intitops]", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True

PDF_Exit:
Exit Function

PDF_Err:
MsgBox Error$
Resume PDF_Exit

End Function

Peut-être est-il plus simple de rajouter une ligne ici qui copie le fichier PDF obtenu vers le répertoire du nom de la variable "intitops" ?

Merci pour votre aide.

[Sonic]

Vu ta ligne de code c'est normal, tu indiques une chaine de caractères là
Essaie plutot ca :

Code :

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

fso.CopyFolder "C:\Temp", "C:\...\sorties etat\" & [Forms]![accueil]![intitops], True

tout simplement