Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ouverture de plusieurs classeurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jackymns

XLDnaute Nouveau
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
 
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
 
Re : ouverture de plusieurs classeurs

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

ThisWorkbooks ne prend pas de s

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

 End Sub
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
315
Réponses
4
Affichages
869
Réponses
9
Affichages
878
  • Question Question
Microsoft 365 Fichiers avec BDD
Réponses
2
Affichages
741
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…