[VB]ouvrir un dossier bo

[jazziestan]

voici mon problème est visiblement basique et je n'y parvient tout de même pas.

A partir d'une macro je voudrais ouvrir un autre fichier BO (.rep)

please HELP

[Adelys]

dans une de mes macros j'ai quelque chose qui pourrait t'aider:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim strCurrentFile AS String
    Dim strDocPath AS String
 
 
    'intialisation du répertoire de travail
    strDocPath = Application.GetInstallDirectory(boDocumentDirectory) & "\"
 
    'initialise du nom de fichier avec chemin complet
    strCurrentFile = Dir(strDocPath & "*.rep")
 
 
    Do While strCurrentFile <> ""
        IF strCurrentFile <> ThisDocument.Name & ".rep" Then
            SET docMyDocument = Application.Documents.Open(strDocPath & strCurrentFile, True)
            IF docMyDocument.Name <> "" Then
            ...
            End IF
 
        ' Document suivant
        strCurrentFile = Dir
    Loop

[jazziestan]

là j'ai rien suivi ou presque

on est bien d'accord : je veux ouvrir un fichier BO déjà existant s'appellant : coucou.rep


ton code me semble bien compliqué pour cela mais je ne dis pas que c'est faut BO étant tellement bizarre que cela ne m'étonne qu'à moitier

[Ashaar]

Bonjour,

Le code ci-dessous devrait répondre à ton besoin :

Code :

1
2
3
4
5
 Sub ouvRep()
Dim Chem AS String
    Chem = "C:\Coucou.rep"
    Application.Documents.Open (Chem)
End Sub

Cdlt

[jazziestan]

j'allucine, j'ai tout essayé comme sunthaxe sauf celle ci qui ne me parraissait pas cohérente.

J'essais dès mardi et si cela me permet d'aboutir à mon but ce sera génial


MERCI

[Adelys]

Oui c'est vrai mon code était un peu compliqué pour ouvrir un état BO particulier.. j'étais partie pour parcourir tous les états du répertoire UserDocs