Help VB

Bonjour et merci de votre aide.
je recherche une méthode qui me permette de récupérer un fichier pdf dans un repertoire et de l'enregistrer dans un aure repertoire

Const default_dir As String = "d:\tmp\"
Const outpath As String = "d:\toto\"
Const filename As String = "titi.pdf"
Dim objet As Object
Dim directory As Document

Set directory = objet.Documents(default_dir & filename)
directory.SaveAs outpath

le problème c'est qu'il ne reconnait pas l'objet mais je n'ai pas acrobat dans la bibliothèque de references.
Comment est-il possible d'arranger le code pour juste copier le fichier filename dans un autre repertoire?Avez-vous une idée?
Merci encore.
Edgar

3 réponses

  1. pfff tu te compliques la vie à donf pour rien mon pauvre ami.

    tu vas dans les références et tu coches le microsoft scripting runtime

    ensuite dans ton code:
    dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.copyfile "c:\toto\edgar.pdf" "d:\titi\"

    et voila, le fichier edgar.pdf (fichier totalement ininteressant) qui se trouve dans toto est copié dans titi
    1. hop erreur

      c'est:
      dim fso,r
      Set fso = CreateObject("Scripting.FileSystemObject")
      r=fso.copyfile "c:\toto\edgar.pdf" "d:\titi\"
      1. ok merci.
        je te donne juste le contexte pour que tu me prenne pas trop pour un abruti(je débute!!)
        je fais un printout vers une imprimante pdf virtuelle pour laquelle je dois configurer par defaut un repertoire de destination.
        Ce repertoire de destination du pdf doit pouvoir etre modifié au gre de l'utilisateur donc passé en paramètres. Comme je ne peux pas modifier dynamiquement le nom du repertoire je le fichier dans un autre repertoire.
        Petite question débile (tu aimes?) Je n'ai pas besoin d'une reference acrobat pour tout ça?
    2. t'inquiètes pas, je te prends pas pour un abruti
      moi aussi g débuté en vb

      eeett non! pas besoin d'acrobat reader
      ce que je t filé c le code pour copier des fichiers
      donc c valable pour tous les fichiers
      c un code très utile
      1. Merci Dworf.
        A bientôt