lors de l'ajout d'un attachement dans un champ RT celui-ci s'affiche en style v2 (bas du form)!
Voila mon code!
- Code : Tout sélectionner
Call uidoc.Refresh(True) ' Important: forcer le Refresh uidoc pour charger le richtext field dans le doc en back-end!!!!
Set rtitemBody = doc.GetFirstItem("piecejointe")
If Not doc.HasEmbedded Then 'si pas d'attachements: insertion et controle doublon
filepath=GetSingleFileName("Sélection de pièces jointes","*.*")
If filepath<>"" Then
fileName = Dir$(filepath, 0)
doc.FilePath=filepath
Else
doc.FilePath=""
Exit Sub
End If
Call rtitemBody.EmbedObject ( EMBED_ATTACHMENT, "", filePath)
Else
AttachementsNames =Evaluate(|@attachmentnames|,doc)
filepath=GetSingleFileName("Sélection de pièces jointes","*.*")
If filepath<>"" Then
fileName = Dir$(filepath, 0)
doc.FilePath=filepath
Else
'Messagebox "Fichier introuvable", 16, "Sélection de fichier"
Exit Sub
End If
Forall a In AttachementsNames
If a=filename Then
Messagebox "Votre dossier contient déjà ce fichier en pièce jointe", 16, "Contrôle des fichiers attachés"
doc.FilePath=""
Exit Sub
End If
End Forall
' <<<<<<<<<<< refresh du Body pour faire apparaitre l'attachement >>>>>>>>>
doc.saveoptions="0"
Call uidoc.Close
If Not doc Is Nothing Then
Call rtitemBody.Update
Set uidocnew= ws.EditDocument( True , doc,,,,True)
Delete uidoc
Call uidocnew.Document.RemoveItem("Saveoptions")
End If
' <<<<<<<<<<< refresh du Body pour faire apparaitre l'attachement >>>>>>>>>
End If
A l'enregistrement le doc attaché n'est plus dans le RT. Je ne veux pas sauvegarder le doc avant! J'ai l'impression d'avoir oublié un truc.
MErci pour vos lumières.
cdt
camille
