Discussion :

[saninx]

Bonjour à tous,

J'ai un soucis au niveau du code de ma macro (ERREUR 9).
en effet je veux lancer à l'ouverture d'une feuille excel, une autre feuille qui servira de base de données, mais je veux que ce classeur base de données soit caché ou complètement invisible à l'utilisateur. voici mon code :

Code :

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

1
2
3
4
5
6
Dim xlBook As New Workbook
Function IsOpen(Classeur$) As Boolean
    On Error Resume Next
    IsOpen = Not Workbooks(Classeur) Is Nothing
    Err.Clear
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
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

c'est sur cette ligne que se trouve l'erreur :

Code :

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

Windows(ActiveWorkbook.Name).Visible = False

Merci de votre aide !

[Gado2600]

Bonjour,

Tentes plutôt quelque chose comme ceci (non testé) :

Code :

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

1
2
3
4
dim AppExcel as object
set AppExcel = CreateObject("Excel.Application")
Set xlBook = AppExcel.Workbooks.Open("C:\macros\Production\corporate\Décès Collectif\BASE.xlsx")
AppExcel.Visible = false

Cordialement,

[saninx]

sa ne fonctionne pas, le fichier base ne s'ouvre pas en même temps que le fichier qui contient la macro.
*Merci quand même.

[clementmarcotte]

Bonjour,

Ceci fonctionne chez-moi:

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim classeur As Workbook
    Set classeur = Workbooks.Open("vitefait.xlsx")
    Windows(classeur.Name).Visible = False
    ActiveWorkbook.Sheets("Feuil1").Range("a1").Value = classeur.Sheets("Feuil1").Range("a1").Value
    classeur.Close
End Sub

[Djohn92]

Code :

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

Application.workoobs(tonworkbook).windows(2_ouunnom).visible= false

?

[saninx]

J'ai toujour la même erreur au niveau de la ligne .visible

Code :

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

   Windows(classeur.Name).Visible = False

mais l'erreur se produit quand je l'implémente sur le serveur et nom en local.

J'ai plutot l'erreur objet requis !

[Marc-L]

Bonjour,

p'tite question de logique : le classeur ouvert est donc la fenêtre active alors à quoi bon vouloir désigner une fenêtre ?!

ActiveWindow …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Djohn92]

Code :

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

Application.workoobs(tonworkbook).windows(2_ouunnom).visible= false

?

oops erreur de frappe

Code :

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

Application.Workbooks(1).Windows(2).Visible = False

1
2
met tes paramètres