BD sur Excel

phlaurent55

Nous a quittés en 2020

Repose en paix

• 10 Mai 2008

• #2

Re : BD sur Excel

Salut Georges,

voici un code qui lors de l'ouverture de ton fichier principal, ouvrira les autres

Code:

Private Sub Workbook_Open()

    ChDir "C:\Mes documents\Mes EXCEL"
    Workbooks.Open Filename:= _
        "C:\Mes EXCEL\Chrono.xls"
    Workbooks.Open Filename:= _
        "C:\Mes EXCEL\monfichier.xls"
        
'à modifier suivant tes besoins

End Sub

à+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Mai 2008

• #3

Re : BD sur Excel

Salut,

phlaurent55, juste comme ça !

Si dans ton code tu utilises : CHDIR,
tu n'as pas besoin ensuite de mettre le chemin complet dans l'ouverture du fichier !
Puisque CHDIR change le chemin d'accès par défaut

Georges85, si tes fichiers sont tous dans le même dossier, tu peux utiliser :

Code:

Private Sub Workbook_Open()
  Dim VPath As String
  VPath = ThisWorkbook.Path
  Workbooks.Open VPath & "\Fichier1.xls"
  Workbooks.Open VPath & "\Fichier2.xls"
  Workbooks.Open VPath & "\Fichier3.xls"
  Workbooks.Open VPath & "\Fichier4.xls"
End Sub

Sachant que ce code ne sert réellement que si tu ouvres le premier fichier depuis l'explorateur windows.

A+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 10 Mai 2008

• #4

Re : BD sur Excel

Bonjour tout le monde

Autre solution.

1) Ouvre ton classeur de la base de donnée.
2) Ouvre les quatres fichiers annexes.
3) Sélectionne la fenêtre que tu souhaites voir en premier ou fait un fenêtre mosaïque.
4) Ensuite clique sur le menu Fichier/Enregistrer un environnement
5) Dans la boîte de dialogue, indique un nom de fichier, sauvegarde.

Maintenant il suffit d'ouvrir ce fichier d'environnement depuis l'explorateur de windows pour ouvrir les 5 fichiers en une seule fois.

Bonne journée

@+Jean-Marie

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 10 Mai 2008

• #5

Re : BD sur Excel

Bonjour le forum,

Pour la méthode de JeanMarie, avec excel 2007,

Change la 4e étape pour:

Va sous l'onglet Affichage , enregistrer l'espace de travail.

@+

Denis

 

Vote positif 0 Vote négatif

G

Georges85

Guest

• 10 Mai 2008

• #6

Re : BD sur Excel

Merci à tous !

Solution de Laurent = c'est noté,rien n'est perdu !

Dans mon cas, je vais tester les 2 autres façons de faire. Pour le moment, j'ai pris celle de Bruno et ça marche. Je vais voir celle de J-Marie et de Denis sur une copie.

 

Vote positif 0 Vote négatif

G

Georges85

Guest

• 16 Juin 2008

• #7

Re : BD sur Excel

Bonjour à tous !

Là, je m'adresse surtout à BrunoM45, qui m'avait déjà donné une solution !

J'ai eu un petit accident qui m'a fait laisser de côté ma petite BD.

J'aimerais, si possible demander à Bruno qu'il me construise mon code en y incluant le CHDIR dont il me parlait et, dont je ne connais rien !

En sachant que le Dossier se nomme "Oasis", qu'il contient 5 classeurs Excel qui sont pour le principal dans lequel je vais mettre le code : "Gestion Oasis", pour les 4 autres qui devront s'ouvrir au lancement de "Gestion Oasis", en 1 : "Planning", en 2 : "Chiffre_Affaire_TTC", en 3 : "Fournisseurs" et, en 4 : "Banque".

Je suis désolé de te faire perdre tu temps pour un débutant ignare de chez débutant !

D'avance, je te remercie et, vous souhaiite à tous, une EXCELlente semaine !

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Juin 2008

• #8

Re : BD sur Excel

Salut Georges85,
Ooooasis, oasis, c'est bon, c'est booonnn

J'aimerais, si possible demander à Bruno qu'il me construise mon code en y incluant le CHDIR dont il me parlait et, dont je ne connais rien !

Cliquez pour agrandir...

L'utilisation de CHDIR est au cas ou, ton fichier principal ne se trouve pas au même endroit que les autres 😉

Là ce n'est pas le cas, donc il suffit de faire :

Code:

Private Sub Workbook_Open()
  Dim VPath As String
  VPath = ThisWorkbook.Path
  Workbooks.Open VPath & "\Planning.xls"
  Workbooks.Open VPath & "\Chiffre_Affaire_TTC.xls"
  Workbooks.Open VPath & "\Fournisseurs.xls"
  Workbooks.Open VPath & "\Banque.xls"
End Sub

Essaye ça et tiens nous au courant.

Je suis désolé de te faire perdre tu temps pour un débutant ignare de chez débutant !

Cliquez pour agrandir...

Tu n'as pas à être désolé, ne t'en fait pas !
Sur ce forum, on répond si on à le temps de répondre 🙂

A+

 

Vote positif 0 Vote négatif

G

Georges85

Guest

• 16 Juin 2008

• #9

Re : BD sur Excel

Et ben non !!!!!!! Oasis c'est pas bon !!!!!!!!!!! (pour le moment)

Comme tu l'as compris, ça ne marche pas !

Je t'explique exactement comment je m'y prend !
1° j'ouvre mon classeur "Gestion Oasis"
2° je clique sur l'onglet "développeur" (je suis en 2007)
3° je clique tout à gauche sur "Visual Basic"
4° dans la fenêtre "Projet-VBAProject" je double-clique sur Thisworkbook et là, le code Open est fait et je dois le compléter. (Pour débuter, j'ai mis l'ordre d'ouverture pour le seul classeur "Planning")
5° j'ai enregistré et fermé le classeur "Gestion Oasis"

Lors de l'ouverture, il me dit ne pas trouver le classeur "Planning" et, met en surbrillance la ligne "Workbooks.Open VPath & "\Planning.xls"

Lors du 1er essais il y a plus d'un moi, il me disait la même chose mais j'avais pensé à la solution du CHDIR.

Bon, je fais silence et je te laisse réfléchir !

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Juin 2008

• #10

Re : BD sur Excel

Re,

Si tu es en Office 2007, est-ce que l'extension de tes fichiers est bien ".xls" !?

Je n'en suis pas sur, pour moi ce serait plutôt ".xlsx"

Auquel cas, il faut mettre cette extension à la fin du fichier à ouvrir 😉

A+

 

Vote positif 0 Vote négatif

G

Georges85

Guest

• 17 Juin 2008

• #11

Re : BD sur Excel

Bonjour Bruno, Bonjour à tous,

En effet, il était bien question d'extension que j'ai corrigé et, TOUT MARCHE!!!!

Merci beaucoup à toi Bruno mais, j'y pense .................. si on peut ouvrir plusieurs classeur à l'ouverture d'un seul, on doit pouvoir faire la même chose pour la fermeture non ?

Est-ce que c'est possible ??

 

Vote positif 0 Vote négatif