macro de démarrage automatique

Version imprimable

Bonjours,

J'ai un soucis avec ma macro de démarrage automatique. ce bout de programme a pour but de lancer la base de données associée a mes applicatifs au démarrage de ceux ci pour qu'ils puisse voir les données. cependant lorsque je lance ceux ci elle ne démarre pas toujours, donc la base de données reste souvent invisilble.

quelqu'un aurait une meilleure solution ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub auto_Open() Dim xlApp As New Excel.Application ' déclarer Public si dans un module Dim xlBook As New Excel.Workbook 'Ouvrir le classeur dont on a besoin avec tout le chemin... Set xlBook = xlApp.Workbooks.Open(Filename:="C:\macros\Production\corporate\Retraite Collective\BASE.xlsx") End Sub
j'ai placé ce code dans la partie generale - déclaration de ma macro.

Bonjour,

Et avec "Workbook_Open" à la place de "auto_Open" ? A mettre dans le module du classeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
 
    Dim xlApp As New Excel.Application ' déclarer Public si dans un module
    Dim xlBook As New Excel.Workbook
 
 
    'Ouvrir le classeur dont on a besoin avec tout le chemin...
    Set xlBook = xlApp.Workbooks.Open(Filename:="C:\macros\Production\corporate\Retraite Collective\BASE.xlsx")
 
End Sub

Hervé.

20/04/2015, 16h34
saninx

Avec Workbook_open il ne s'ouvre pas du tout . merci quand même.

es tu sur de ça?

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
 
    Dim xlApp As New Excel.Application ' déclarer Public si dans un module
    Dim xlBook As  Workbook
 xlApp.visible=true
 
    'Ouvrir le classeur dont on a besoin avec tout le chemin...
    Set xlBook = xlApp.Workbooks.Open(Filename:="C:\macros\Production\corporate\Retraite Collective\BASE.xlsx")
 
End Sub

20/04/2015, 16h39
Theze

Tu crée une deuxième instance d'Excel, elle ne s'ouvre pas ? Ne charge pas le classeur ? Ou n'est pas visible ? Est-il vraiment nécessaire de créer une seconde instance ?

Hervé.
20/04/2015, 17h04
saninx

elle charge le classeur et l'ouvre avec auto_open(), mais souvent ne le fait pas, ce qui peut être désagréable pour l'utilisateur !

mais avec workbook_open() elle ne charge pas du tout peut être que je la déclare dans une mauvaise partie

Code:

1
2
3
Private Sub Workbook_Open()
auto_Open
End Sub

20/04/2015, 17h29
saninx

Désolé mais je ne comprend pas trop ce dernier code, vu que je cherche à auto ouvrir n autre fichier que celui sur lequel je clic

pour ce que j'ai remarqué, lorsque j'ouvre le fichier la première fois, l'autre ne démarre pas , mais a partir de la deuxième il démarre proprement, jusqu'à ce que je passe à un autre fichier, et pareil pour chaque fichier qui appel la base excel

Bonjour,

Et en l'ouvrant dans la même instance ?

Code:

1
2
3
4
5
6
7
8
9
 
Dim xlBook As Workbook
 
Private Sub Workbook_Open()
 
    'Ouvrir le classeur dont on a besoin avec tout le chemin...
    Set xlBook = Workbooks.Open(Filename:="C:\macros\Production\corporate\Retraite Collective\BASE.xlsx")
 
End Sub

Hervé.

21/04/2015, 10h07
saninx

MERCI.

cette reponse marche mieux mais avec auto_open à la place de workbook_open, le seul hic est que la base s'ouvre après le fichier à utiliser donc le cache à l'ouverture au lieu de l'inverse.
y aurait-il une possibilité de rendre le classeur de la base ouvert mais invisible avec la propriété "visible" !

Bonjour à tous,

la macro auto_open() est-elle dans le classeur à utiliser ?

si oui alors rajoute thisworkbook.activate:
Code:

1 2 3 4 5 6 7 8 9 10 Dim xlBook As Workbook Private Sub auto_open() () 'Ouvrir le classeur dont on a besoin avec tout le chemin... Set xlBook = Workbooks.Open(Filename:="C:\macros\Production\corporate\Retraite Collective\BASE.xlsx") thisworkbook.activate End Sub

Merci pour votre aide, j'ai pu resoudre mon probleme avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim xlBook As New Workbook
Function IsOpen(Classeur$) As Boolean
    On Error Resume Next
    IsOpen = Not Workbooks(Classeur) Is Nothing
    Err.Clear
End Function
Private Sub auto_Open()
         Dim Name As String
        'Ouvrir le classeur dont on a besoin avec tout le chemin...
 
         If IsOpen("BASE.xlsx") = False Then
            Set xlBook = Workbooks.Open("C:\macros\Production\corporate\Décès Collectif\BASE.xlsx")
            Name = "BASE.xlsx"
            Windows(ActiveWorkbook.Name).Visible = False
         End If
 End Sub