Discussion :

[jackymns]

bonjour a tous,
je souhaiterais savoir si il est possible d'ouvrir plusieurs (2)classeur en simultané de manière automatique mais sans donner de chemin d’accès "précis", je m'explique:
j'ai environs 10 classeurs (1 a la fois) qui travaillent avec un autre qui est ma base de donnée.
j'ai donc mis dans thisworkbook de chacun de mess classeur l'ouverture de ma base de donnée et cela marche très bien sur mon ordi.
mon problème est que je voudrais rendre cela "portable" et que cela fonctionne depuis un dd portable, clef usb ou autre ordi.
sachant que tous ces fichiers sont toujours dans un dossier unique.
je souhaiterais donc savoir si il est possible de démarrer ma base de donne sans lui donner un chemin d’accès complet.

espérant avoir été assez clair sur mes explications
merci pour vos réponses

[Theze]

Bonjour,

Si les classeurs sont toujours dans le même dossier que le classeur qui sert de base de données, alors tu peux faire (adapter le nom bien sûr) :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
    Workbooks.Open (ThisWorkbook.Path & "\" & "Base de Données.xls")
 
End Sub

Hervé.

[jackymns]

merci pour ta réponse,
mais j'ai tout de même un soucis,
j'ai recopié la macro sur mon modèle (.xltm)
si je fais clic droit et ouvrir tout va bien et ça fonctionne
si je clique sur le modèle normalement (clic gauche) ,il ouvre le modele mais pas la base de donnée
erreur d'execution 1004

bonsoir a tous,
mon problème viens du fait que le fichier modèle s'ouvre sous le nom xxxxx1.xlsm et s'enregistre par défaut dans mes documents existerait il une macro a placer juste avant celle là qui permettrais de l'enregistrer dès l'ouverture dans le dossier ouvert, quel qu'il soit ?
merci

[Theze]

Bonsoir,

L'erreur est due au fait que le classeur ne se trouve pas dans le dossier indiqué. Dans ton cas, "ThisWorkbook.Path" retourne le chemin de ton "xltm" et si ton classeur servant de base de données ne s'y trouve pas, erreur 1004.

Hervé.