Ouverture de deux classeurs simultane

bonjour a tous,

je souhaiterais savoir si il est possible d'ouvrir plusieurs 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 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 et de remplacer le "C:\Users\JACKY\Desktop\base de donnée......., par "un sais pas quoi " qui resterais dans le dossier

espérant avoir été assez clair sur mes explications

merci pour vos réponses

mon premier fichier qui marche sur mon poste:

Private Sub Workbook_Open()

chemin = ActiveWorkbook.Path

ChDir "C:\Users\JACKY\Desktop\essais base de donnée comune"

Workbooks.Open Filename:= _

"C:\Users\JACKY\Desktop\essais base de donnée comune\base de donnee.xlsm"

End Sub

et ce que j'ai essayé mais qui marche pas:

Private Sub Workbook_Open()

' chemin = ActiveWorkbook.Path

' ChDir "C:\Users\JACKY\Desktop\essai base de donnée"

chemin = ThisWorkbooks.Path & "\" & "base de donnee.xlsm"

Workbooks.Open Filename:= _

"base de donnee.xlsm"

End Sub

au secours, ya qqun?

Bonsoir,

Ce code :

Private Sub Workbook_Open()

' chemin = ActiveWorkbook.Path
' ChDir "C:\Users\JACKY\Desktop\essai base de donnée"
chemin = ThisWorkbooks.Path & "\" & "base de donnee.xlsm"

Workbooks.Open Filename:= _
"base de donnee.xlsm"

End Sub

et en particulier ce bout là :

Workbooks.Open Filename:= _
"base de donnee.xlsm"

Ne peut pas fonctionner car tu ne lui indique que le nom du classeur, il faut aussi indiquer le chemin, donc :

Private Sub Workbook_Open()

    ' chemin = ActiveWorkbook.Path
    ' ChDir "C:\Users\JACKY\Desktop\essai base de donnée"
    chemin = ThisWorkbooks.Path & "\" & "base de donnee.xlsm"

    Workbooks.Open chemin

End Sub

Hervé.

MERCI