Discussion :

[isarian]

Bonjour,

Voilà j'ai un code qui va cherché à un endroit X les fichiers s'y trouvant.

Le soucis est que pour validé les liens faut ensuite repasser sur le document et à chaque ligne faire "Enter" pour que le liens se valide.

Pourriez vous m'aider. J'ai essayé en rajoutant le code ascii de l'enter ou du retour chariot mais rien.

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
18
19
Sub TousFichiersDunDossier()
    Dim MyFileSystemObject As Object, MonDossier As Object
    Dim MesFichiers As Object
    Dim MaReponse, MonRepertoire, MonFichier ', MonCompteur
    Set MyFileSystemObject = CreateObject("Scripting.FileSystemObject")
    MaReponse = InputBox("Les noms et chemin du répertoire à lister, svp ?", "Saisie des noms et chemin du répertoire à lister", "c:\downloads")
    MonRepertoire = "\\reseau\Archive\" + MaReponse
    If MonRepertoire = "" Then Exit Sub
    Set MonDossier = MyFileSystemObject.getfolder(MonRepertoire)
    Set MesFichiers = MonDossier.Files
    If MesFichiers.Count <> 0 Then
        For Each MonFichier In MesFichiers
            MonFichier = MonFichier.Name
'           MonCompteur = MonCompteur + 1
            Selection.TypeText Text:="file:////" & MonRepertoire & "\" & MonFichier
            Selection.TypeParagraph
        Next MonFichier
    End If
End Sub

Merci d'avance

[Heureux-oli]

Salut,

Pourquoi ne pas passer par un Champ INCLUDETEXT ?

[isarian]

D'après ce que je lis sur INCLUDETEXT

Insère le texte et les images contenus dans le document nommé. Vous pouvez insérer la totalité du document ou une partie du document. Si le document est un document Microsoft Word, vous pouvez insérer seulement la partie référencée par un signet et si le document est un document XML, vous pouvez insérer uniquement le fragment référencé par une expression XPath. Ce champ était auparavant désigné sous le nom champ INCLUDE.

Je ne cherche pas à insérer du texte dans mon document. J'aimerais juste inserer le liens vers ce fichiers dans mon document.

Avec le code que j'ai, le lien est insérer mais ne fonctionne que si je l'active. Le soucis est que parfois j'ai plusieurs lignes.

Cordialement

[Heureux-oli]

Salut,

Que veux tu alors !

quand j'insère un champ Includetext, j'ai le chemin qui suit dans le champ et un F9 affiche le contenu du fichier dans mon document.

Code :

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

{ INCLUDETEXT "C:\Temp\monDoc.docm" }

[isarian]

ce que je veux:

J'ouvre un document vierge, Je clique sur ma macro, Il m'affiche une demande

J'entre mon nom de dossier (exemple blabla)

La macro va chercher dans \\dossier\sousdossier\blabla\ tous les fichiers s'y trouvant et me les lister donc j'aurais dans mon docments

"file:////" \\dossier\sousdossier\blabla\fichier1.pdf
"file:////" \\dossier\sousdossier\blabla\fichier2.pdf
"file:////" \\dossier\sousdossier\blabla\fichier3.pdf

Le soucis est que le lien n'est pas actif. Je dois passer sur les 3 lignes faire enter et la seulement je pourrais cliquer avec control pour ouvrir les document pdf.

[Heureux-oli]

Salut,

C'est un Hyperlien que tu veux avoir et pas un lien ?

[isarian]

oui Désoler de m'avoir mal exprimer

Je souhaiterais que le lien ( lien qui pointe vers mes fichiers se trouvant dans un dossier sur le serveur) que j'importe dans mon document soit actif.

Pour l'instant j'obtiens l'adresse vers mes fichiers mais pas possible de cliquer dessus.