ManuelPHP.com

bonjour a tous merci de votre aide, j'ai réussi a me débrouiller tout seul plus difficile mais bon en fait pour ce que j'ai voulu fair j'ai créé une macro qui récupéré les propriété et qui les écrit dans un fichier .txt ensuite ma page web récupéré ces valeur et les instancié dans une variable php pour ensuite les inséré dans une BDD mysql

bonjour voila la macro qui me permet de récupéré les propriété d'un document word pour les écrire dans un fichier .txt pour que ma page web puisse récupéré ces info

code :


' Macro enregistrée le 24/02/08 par  blachuta maxime
'
Dim objDoc As Word.Document
Dim strnom As String

' ici prend le nom du document word pour le changer en .txt

strnom = Application.ActiveDocument
longueur = Len(strnom)
longueur = longueur - 3
strnom = Left(strnom, longueur)
strnom = strnom & "txt"

Set objDoc = Application.ActiveDocument

'ici on ouvre un fichier .txt qui porte le même nom que le fichier .doc

Open "C:\document\" & strnom For Output As #1
'ici on écri les propriétés dans le .txt
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyKeywords)
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyComments)
Print #1, objDoc.BuiltInDocumentProperties(wdPropertyTitle)
' on ferme le .txt
Close #1
' on ferme le document word
objDoc.Application.Quit (wdDoNotSaveChanges)


et voici la même chose pour excel :

' Macro enregistrée le 25/02/2008 par Blachuta maxime
'
' Touche de raccourci du clavier: Ctrl+w

Dim numFic As Integer
Dim valeur As Integer
Dim strTitre, strMotsCle, strCommentaire, strNomDocument As String

strnom = ActiveWorkbook.Name
longueur = Len(strnom)
longueur = longueur - 3
strnom = Left(strnom, longueur)
strnom = strnom & "txt"

numFic = FreeFile

Open "C:\document\" & strnom For Output As #numFic

strTitre = ActiveWorkbook.BuiltinDocumentProperties("Title").Value
strMotsCle = ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value
strCommentaire = ActiveWorkbook.BuiltinDocumentProperties("Comments").Value

Write #numFic, strMotsCle
Write #numFic, strCommentaire
Write #numFic, strTitre
Close #numFic
' racourci clavier pour fermer excel (alt+F4)
SendKeys ("%{F4}")