Discussion :

[Amariel30]

Bonsoir,

voila je fais une base de données access qui nécessite des fichiers joints.

Ma base va se trouvé sur un disque dur externe. Le soucis c'est qu'en changeant d'ordinateur sur lequel je vais branché mon disque, si la lettre change, je n'aurais plus accès à mes fichiers. Voici mon chemin d'accès actuel pour tout mon dossier: H (chez moi c'est la lettre de mon lecteur):/DisqueDurNono/Vidéothèque

Mon dossier contient ma base et des sous-dossiers (photos acteurs, photos réalisateurs, ziks films). Je voudrais savoir comment faire en sorte, que quelques soit où je me branche, il aille chercher mes images et autres fichiers dans le sous-dossier correspondant, sans tenir compte du H:/DisqueDurNono/Vidéothèque qui est commun à chaque fois. En gros il s'agit de squizzer une partie du chemin d'accès inutile car toujours identique.

Bien sûr je veux que la manip puisse être faite pour mes fichiers actuellement mis, mais également pour les suivants que je joindrais par la suite.

Mon père m'a parlé d'un code qui s'applique non pas à un bouton mais à la base en entière, mais il n'a pas été capable de me dire quoi mettre...

Merci d'avance pour votre aide et bonne soirée.

Amariel

[Simplifi]

Hello
dans une table paramètre, je stocke le texte du chemin du répertoire:
Formulaire_concerné='Export_compta',
texte: "H:\DisqueDurNonoVidéothèque\"
dans mes programmes, j'utilise ce genre de concaténation

Code :

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

1
2
3
4
Private Sub Export_Click()
Dim Rep_Export As String
Rep_Export = DLookup("texte", "Parametres", "Formulaire_concerné='Export_compta'")
DoCmd.OutputTo acOutputQuery, "Export_Achats", "Excel97-Excel2003Workbook(*.xls)", Rep_Export & "Export Achats " & Year(Fin) & ".xls"

Rep_Export & "Export Achats " & Year(Fin) & ".xls" est la concaténation qui me permet d'obtenir H:\DisqueDurNono\Vidéothèque\Export Achats 2011.xls

peut être devra tu adapter tout ça pour ton cas
Un inconvénient: je ne vois pas comment ce fonctionnement pourrait être transparent sous le clic sur un lien hypertexte, par contre, rien n'interdit de recomposer par VB le fonctionnement du lien hypertexte

[FreeAccess]

Bonjour,

Sauf erreur, ce post devrait régler ton problème..

Variable générale pour une base

...à voir