Discussion :

[saninx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[saninx]

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

[Invité]

es tu sur de ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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é.

[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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
auto_Open
End Sub