Bonjour,

Mon projet se base sur Access.
J'ail un formulaire à partir duquel je peux créer un fichier Autocad.Mon but est de sauvegarder un fichier dont le nom se trouve dans le champ NomFichier du formulaire . Le formulaire "Créer un Fichier" s'ouvre aprés la procédure AfterUpdate() sur le champ NomFichier.
En cliquant sur le bouton "OK" du formulaire "Créer un Fichier",j'ouvre autocad. Mais mon probléme, c'est que je n'arrive pas à sauvegarder le fichier.

Private Sub Ok_Click()

    Chemin = DLookup("Chemin", "PARAMETRE")
    CheminAcad = DLookup("CheminAcad", "PARAMETRE")
    N°Affaire = Forms![Affaire]![N°Affaire]
    NomAffaire = Forms![Affaire]![NomAffaire]
    NomFichier1 = Forms![Affaire]![DOCUMENTS ESQ2].Form![NomFichier2].Value
    NomFichier2 = Forms![Affaire]![DOCUMENTS APD2].Form![NomFichier2].Value
    CtlTab1 = Forms![Affaire]![CtlTab1]

    Select Case TypeFichier
     Case 2 'Ici c'est la case à cocher Word qui est sélectionnée
   
    Dim stAppName As String

    stAppName = CheminAcad
    Call Shell(stAppName, 1)
    NomFichier.SaveAs CheminAcad & "\" & N°Affaire & " - " & NomAffaire & "\" & "ESQ" & "\" & "Autocad" & "\" & NomFichier1   '-- enregistre le nouveau doc,mais je n'arrive pas à le sauvegarder
   
    End Select
    DoCmd.Close

Exit_Ok_Click:
    Exit Sub

Err_Ok_Click:
    MsgBox Err.Description
    Resume Exit_Ok_Click
       

End Sub

Au fait comment on fait pour mettre une image .
Merci d'avance.
kfid