ouverture de plusieurs classeurs

[jackymns]

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

 

[camarchepas]

Re : ouverture de plusieurs classeurs

Bonjour,

Oui , il suffit d'écrire

Chemin = thisworkbook.path & "\" & nomfichier et le tour est joué

 

[jackymns]

Re : ouverture de plusieurs classeurs

bonjour,
heu désolé mais la je comprend plus (grosse fatigue)
voila ce que j'ai fais:

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



mais ça marche pas, je patauge

 

[jackymns]

Re : ouverture de plusieurs classeurs

au secours
ya qqun ?

 

[camarchepas]

Re : ouverture de plusieurs classeurs

Bonjour,
Bon si tu veux l'écrire comme cela voici :

ThisWorkbooks ne prend pas de s

Private Sub Workbook_Open()
dim Chemin as string 
 chemin = ThisWorkbook.Path & "\" & "base de donnee.xlsm"
 Workbooks.Open Filename:= chemin

 End Sub

 

[Staple1600]

Re : ouverture de plusieurs classeurs

Bonjour à tous

Pas besoin de macros pour faire cela. Excel a tout prévu

1) Ouvres manuellement tous les classeurs "utiles"

2) Fichier/Enregistrer l'espace de travail
Tu donnes un nom explicite, exemple: FichiersBoulot.xlw

3) Tu fermes tous les classeurs

4) Tu ouvres FichiersBoulot.xlw et tous tes classeurs utiles seront ouvert automatiquement.


PS: Sauf que je viens de voir que tu parles de clé USB, ce qui qui complique la donne.