Discussion :

[seiya18]

Bonjour à tous, voila mon problème:

Dans ma boite, ils travaillent avec une base access, dans cette base ils ont eu la mauvaise idée d'enregistrer des fichier Word. Maintenant que la base fait presque 2Go, je dois extraire tous ces fichieret les remplacer par un lien.

J'aimerai le faire en vba. Pour cela ,j'ai fait ma requete SQL se séléction de tous ces fichiers. Maintenant, 1 par un j'aimerai les ouvril dans Word et les enregister ailleur. Comment faire? voici le petit bout de coude déjà écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub essai()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
  Set db = CurrentDb
    sSQL = "SELECT * FROM REX"
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    If Not rst.EOF Then
      Do While Not rst.EOF
           Que dois-je mettre ici ???
            rst.MoveNext
       Loop
   End If
  rst.Close ' Fermeture du Recordset
   Setdb = Nothing
 
End Sub

Merci d'avance à tous.....

[Jean-Philippe André]

bonjour,
tu peux nous donner les champs de ta table rex stp ?
en principe, tu vas pouvoir faire le traitement suivant :
- ouvrir fichier
- enregistrer fichier sous
- fermer fichier
- mettre à jour base avec le path d'archivage.

[seiya18]

biensur voici les champs :

Numero_affaire

Document (c'est là ou est stocké un fichier par affaire)


Merci pour ta réponse

[Jean-Philippe André]

ok,
et le type du champs document ?

je t'avoue que je n'ai jamais vraiment stocker des documents en tant que tels dans une base, mais plus simplement leur path d'archivage...

[seiya18]

texte pour Numero_affaire
Objet OLE pour le document

[seiya18]

C'est vrai que moi non plus j'ai jamais stocké des fichier dans access, mais je vien d'arriver dans cette boite...

la base devient lourde et instable, donc ils veulent extraire.....

[Jean-Philippe André]

tu dois pouvoir ouvrir le fichier OLE en principe, comme info tu as donc normalement le nom du fichier ouvert.
- soit tu l'ouvres avec shell execute
- si tu sais que le fichier est toujours du même type
- manipuler avec un objet Word.Application
- sinon tu testes le type du fichier ouvert
- soit tu le manipules en l'ouvrant directement avec Word.Application

[seiya18]

Le problème c'est justement pour l'ouverture, cela ne fonctionne pas avec la syntaxe habituelle du style

Code :

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

1
2
3
4
5
6
7
Set wrd = CreateObject("Word.Application")
   wrd.Application.DisplayAlerts = False
   wrd.Documents.Open (rst("Document")) 'rst est le résultat de la requete sql
        wrd.Visible = True
    wrd.Application.ActiveDocument.SaveAs (chemin) 'chemin est l'endroit
                                                 'ou exporter
wrd.ActiveDocument.Close("Word.Application")

[seiya18]

j'ai vu quelque par qu'on pouvais utiliser textcopy.exe, je cherche comment s'en servir, en espérant que ça m'aidera....

[seiya18]

Textcopy.exe est apparament réservé à SqlServer... cette piste est donc abandonnée...

Quelqu'un à une autre idée?

[Jean-Philippe André]

Et utiliser ShellExecute sur document ?