Envoyé par
dysorthographie
Un fois enregistré et refermé, tu l'ouvre avec nonpad et tu recherche la balise ouvrante et fermante de ton image qu'il faudra utiliser dans une fonction!
Quand dans Access tu exporteras en rtf tu placeras à la place de ton image <logo> et tu exportera!
Il te restera que ouvrir ton fichier en vba comme un ficher texte et remplacer <logo> par le résultat de la fonction précédent cité!!
Salut Dysorthographie,
Mon niveau Access/vba est nettement inférieur au tiens.
Peux tu m'expliquer comment trouver les balises ouvrantes et fermantes de l'image? Je ne comprends presque rien au langage qu'affiche le notepad.
J'ai repéré quelques mots clés qui peuvent m'aiguiller mais je m'y perd.
1 2
| {\sp{\sn wzName}{\sv Image 1}}{\sp{\sn dhgt}{\sv 251658240}}{\sp{\sn fHidden}{\sv 0}}{\sp{\sn fLayoutInCell}{\sv 1}}} ou
{\pict\picscalex100\picscaley100\piccropl0\piccropr0\piccropt0\piccropb0\picw5027\pich2037\picwgoal2850\pichgoal1155\wmetafile8\bliptag1634844975\blipupi96{\*\blipuid 6171c12f1fabe130cfdc8b94b532c986} ou encore autre chose? |
Et une fois avoir localiser ces balises, de quelle fonction parles tu?
Merci pour ces précisions,
--------------
Edit : à ma manière, après 5h de chipotage cela a fonctionné. Mais quand j'ai enregistré puis relancé un message d'erreur ("le membre de la collection requis n'existe pas") est apparu à cette ligne
Windows("pv241.rtf [Mode de compatibilité]").Activate
récapitulatif des étapes :
1) Macro Access d'ExportationAvecMiseenForme (créé et ouvre le rtf)
2) Macro Access d'ouverture du fichier word contenant la macro
1 2 3
| Sub Normal_Open()
Application.Run MacroName:="Pv36macro_Open"
End Sub |
3) Celle-ci lance :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub Pv36macro_Open()
Dim Repertoire As String
Dim Extension As String
Dim Fichier As String
Windows("pv241.rtf [Mode de compatibilité]").Activate
Repertoire = "\\serveurA\Régie\bdd"
'Saisie du type d'extension
Extension = ".png"
'Récupération du fichier du répertoire
Fichier = Dir(Repertoire & "logo" & Extension, vbDirectory)
'insertion de l'image
Selection.InlineShapes.AddPicture FileName:= _
"\\serveurA\Régie\bdd\logo.png" _
, LinkToFile:=False, SaveWithDocument:=True
End Sub |
_____________________
Etant donné que cela a fonctionné juste avant que j'enregistre puis que cela n'a de nouveau plus fonctionné, je me demande de quelle collection parlent-ils et comment faire pour ajouter ces collections.
Merci d'avance, je commence à devenir fou.
Partager