Bonjour
Dans un dossier j'ai un fichier Accueil.xls qui comme son nom
l'indique me sert d'e d=E9part.
Je souhaiterai qu'=E0 son ouverture, tous les autres fichiers .xls
s'ouvrent en arri=E8re fond.
Pour ce faire, j'ai =E9cris, avec l'aide et la correction de MichD,
Dans ThisWorkbook
'--------------------------------
Private Sub Workbook_Open()
Dim Chemin As String
Chemin =3D ThisWorkbook.Path & "\"
Workbooks.Open Filename:=3DChemin & "P=F4le 2011 MOIS N.xls"
Workbooks.Open Filename:=3DChemin & "BdD_L.xls"
Workbooks.Open Filename:=3DChemin & "BdD_R.xls"
End Sub
'--------------------------------
Maintenant je souhaiterai
1) afficher automatiquement la feul1 de "Accueil au P=F4le"
2) pouvoir naviguer sur les differents fichiers gr=E2ce =E0 des boutons de
commandes.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
Bonjour,
Pour activer un classeur particulier, C'est le même principe général, peu importe le classeur. Ce dernier doit être ouvert
'-------------------------------- with Workbooks("NomDuClasseur.xls") .Activate 'Active à l'écran le classeur With Worksheets("NomDeLaFeuille") .Activate 'Active la feuille de ce classeur à l'écran with .Range("A1") .value = "toto" 'Attribue à la cellule A1 de la feuille : "toto" end with End with End with '--------------------------------
MichD -------------------------------------------- "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons de commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Bonjour,
Bonjour,
Pour activer un classeur particulier,
C'est le même principe général, peu importe le classeur.
Ce dernier doit être ouvert
'--------------------------------
with Workbooks("NomDuClasseur.xls")
.Activate 'Active à l'écran le classeur
With Worksheets("NomDeLaFeuille")
.Activate 'Active la feuille de ce classeur à l'écran
with .Range("A1")
.value = "toto" 'Attribue à la cellule A1 de la feuille : "toto"
end with
End with
End with
'--------------------------------
MichD
--------------------------------------------
"JeanYvesGascon" a écrit dans le message de groupe de discussion :
77b819d1-5a17-4a0a-8e1e-bc20d3fe7e48@z3g2000prz.googlegroups.com...
Bonjour
Dans un dossier j'ai un fichier Accueil.xls qui comme son nom
l'indique me sert d'e départ.
Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls
s'ouvrent en arrière fond.
Pour ce faire, j'ai écris, avec l'aide et la correction de MichD,
Dans ThisWorkbook
'--------------------------------
Private Sub Workbook_Open()
Dim Chemin As String
Chemin = ThisWorkbook.Path & ""
Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls"
Workbooks.Open Filename:=Chemin & "BdD_L.xls"
Workbooks.Open Filename:=Chemin & "BdD_R.xls"
End Sub
'--------------------------------
Maintenant je souhaiterai
1) afficher automatiquement la feul1 de "Accueil au Pôle"
2) pouvoir naviguer sur les differents fichiers grâce à des boutons de
commandes.
Pour activer un classeur particulier, C'est le même principe général, peu importe le classeur. Ce dernier doit être ouvert
'-------------------------------- with Workbooks("NomDuClasseur.xls") .Activate 'Active à l'écran le classeur With Worksheets("NomDeLaFeuille") .Activate 'Active la feuille de ce classeur à l'écran with .Range("A1") .value = "toto" 'Attribue à la cellule A1 de la feuille : "toto" end with End with End with '--------------------------------
MichD -------------------------------------------- "JeanYvesGascon" a écrit dans le message de groupe de discussion :
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons de commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Frederic LE GUEN
On Feb 5, 3:40 pm, JeanYvesGascon wrote:
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Bonjour, Pourquoi n'utilise-tu pas l'outils "Enregistrer l'espace de travail" dans le menu affichage Tu génères un fichier xlw qui va enregistrer tous tes classeurs et quand tu ouvres le xlw tous tes classeurs s'ouvriront
On Feb 5, 3:40 pm, JeanYvesGascon <jeanyves.gas...@gmail.com> wrote:
Bonjour
Dans un dossier j'ai un fichier Accueil.xls qui comme son nom
l'indique me sert d'e départ.
Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls
s'ouvrent en arrière fond.
Pour ce faire, j'ai écris, avec l'aide et la correction de MichD,
Dans ThisWorkbook
'--------------------------------
Private Sub Workbook_Open()
Dim Chemin As String
Chemin = ThisWorkbook.Path & ""
Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls"
Workbooks.Open Filename:=Chemin & "BdD_L.xls"
Workbooks.Open Filename:=Chemin & "BdD_R.xls"
End Sub
'--------------------------------
Maintenant je souhaiterai
1) afficher automatiquement la feul1 de "Accueil au Pôle"
2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e
commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Bonjour,
Pourquoi n'utilise-tu pas l'outils "Enregistrer l'espace de travail"
dans le menu affichage
Tu génères un fichier xlw qui va enregistrer tous tes classeurs et
quand tu ouvres le xlw tous tes classeurs s'ouvriront
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Bonjour, Pourquoi n'utilise-tu pas l'outils "Enregistrer l'espace de travail" dans le menu affichage Tu génères un fichier xlw qui va enregistrer tous tes classeurs et quand tu ouvres le xlw tous tes classeurs s'ouvriront
LSteph
Bonjour,
Sans Macro tu Enregistre un environnement selon version ou Enregistrer espace de travail
Avec les fichiers de ton choix ouverts Cela te crée un .xlw lorsque tu l'ouvres tous les fichiers sont réouverts et leur navigation existe déjà aussi cela s'appelle le Menu Fenêtre qui doit trouver son équivalent dans le ruban pour les versions > 07
Cordialement.
-- LSteph
On 5 fév, 15:40, JeanYvesGascon wrote:
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e commandes.
Merci de vos précieuses collaborations
Cordialement
Jean6Yves
Bonjour,
Sans Macro tu Enregistre un environnement selon version ou
Enregistrer espace de travail
Avec les fichiers de ton choix ouverts
Cela te crée un .xlw lorsque tu l'ouvres tous les fichiers sont
réouverts et leur navigation existe déjà aussi cela s'appelle le Menu
Fenêtre
qui doit trouver son équivalent dans le ruban pour les versions >=2007
Cordialement.
--
LSteph
On 5 fév, 15:40, JeanYvesGascon <jeanyves.gas...@gmail.com> wrote:
Bonjour
Dans un dossier j'ai un fichier Accueil.xls qui comme son nom
l'indique me sert d'e départ.
Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls
s'ouvrent en arrière fond.
Pour ce faire, j'ai écris, avec l'aide et la correction de MichD,
Dans ThisWorkbook
'--------------------------------
Private Sub Workbook_Open()
Dim Chemin As String
Chemin = ThisWorkbook.Path & ""
Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls"
Workbooks.Open Filename:=Chemin & "BdD_L.xls"
Workbooks.Open Filename:=Chemin & "BdD_R.xls"
End Sub
'--------------------------------
Maintenant je souhaiterai
1) afficher automatiquement la feul1 de "Accueil au Pôle"
2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e
commandes.
Sans Macro tu Enregistre un environnement selon version ou Enregistrer espace de travail
Avec les fichiers de ton choix ouverts Cela te crée un .xlw lorsque tu l'ouvres tous les fichiers sont réouverts et leur navigation existe déjà aussi cela s'appelle le Menu Fenêtre qui doit trouver son équivalent dans le ruban pour les versions > 07
Cordialement.
-- LSteph
On 5 fév, 15:40, JeanYvesGascon wrote:
Bonjour Dans un dossier j'ai un fichier Accueil.xls qui comme son nom l'indique me sert d'e départ. Je souhaiterai qu'à son ouverture, tous les autres fichiers .xls s'ouvrent en arrière fond. Pour ce faire, j'ai écris, avec l'aide et la correction de MichD, Dans ThisWorkbook '-------------------------------- Private Sub Workbook_Open() Dim Chemin As String Chemin = ThisWorkbook.Path & "" Workbooks.Open Filename:=Chemin & "Pôle 2011 MOIS N.xls" Workbooks.Open Filename:=Chemin & "BdD_L.xls" Workbooks.Open Filename:=Chemin & "BdD_R.xls" End Sub '--------------------------------
Maintenant je souhaiterai 1) afficher automatiquement la feul1 de "Accueil au Pôle" 2) pouvoir naviguer sur les differents fichiers grâce à des boutons d e commandes.