Z
zeltron
Guest
Bonjour à tous,
Voici mon pb:
J'ai 2 fichiers le fichier 'appli' et le fichier 'Base BDD'. Sachant que le fichier'Base BDD' est dans un dossier qui se trouve dans le même dossier que le fichier 'appli'.
Ce que je souhaite , c'est que lorsque j'ouvre le fichier 'appli', le fichier 'base BDD' s'ouvre automatiquement.Pour cela j'utilise le code suivant qui ce trouve dans 'this Worbook' du fichier 'appli'.
Private Sub Workbook_Open()
chemin = ActiveWorkbook.Path
ChDir chemin
Workbooks.Open Filename:='Bases\\Base BDD.xls'
End Sub
Ce code marche impec. Dès lors je souhaite la même chose lorsque je ferme le fichier 'appli', c'est a dire que le fichier 'base BDD' se ferme automatiquement; Dès lors j'ai voulu utiliser le code suivant:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemin = ActiveWorkbook.Path
ChDir chemin
Workbooks.Close Filename:='Bases\\Base BDD.xls'
End Sub
Et là j'ai un message avec point d'exclamation en VBA qui est:
'Erreur de compilation: Nombre d'arguments incorrect ou affectation de propriété incorrecte'
Ou est mon erreur dans le code??
Pouvez vous m'aider?
De plus j'aimerais protéger le fichier 'Base BDD en ouverture et ecriture, cependant lorsqu'en ouvrant le fichier 'appli' qui ouvre le fichier 'Base BDD', il me demande les codes d'ouverture et d'ecriture. Où dois je inserer ces codes en VBA afin qu'il les débloque automatiquement a l'ouverture et les remette à la fermeture?
Merci d'avance pour votre aide
Cordialement
Zeltron
Voici mon pb:
J'ai 2 fichiers le fichier 'appli' et le fichier 'Base BDD'. Sachant que le fichier'Base BDD' est dans un dossier qui se trouve dans le même dossier que le fichier 'appli'.
Ce que je souhaite , c'est que lorsque j'ouvre le fichier 'appli', le fichier 'base BDD' s'ouvre automatiquement.Pour cela j'utilise le code suivant qui ce trouve dans 'this Worbook' du fichier 'appli'.
Private Sub Workbook_Open()
chemin = ActiveWorkbook.Path
ChDir chemin
Workbooks.Open Filename:='Bases\\Base BDD.xls'
End Sub
Ce code marche impec. Dès lors je souhaite la même chose lorsque je ferme le fichier 'appli', c'est a dire que le fichier 'base BDD' se ferme automatiquement; Dès lors j'ai voulu utiliser le code suivant:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemin = ActiveWorkbook.Path
ChDir chemin
Workbooks.Close Filename:='Bases\\Base BDD.xls'
End Sub
Et là j'ai un message avec point d'exclamation en VBA qui est:
'Erreur de compilation: Nombre d'arguments incorrect ou affectation de propriété incorrecte'
Ou est mon erreur dans le code??
Pouvez vous m'aider?
De plus j'aimerais protéger le fichier 'Base BDD en ouverture et ecriture, cependant lorsqu'en ouvrant le fichier 'appli' qui ouvre le fichier 'Base BDD', il me demande les codes d'ouverture et d'ecriture. Où dois je inserer ces codes en VBA afin qu'il les débloque automatiquement a l'ouverture et les remette à la fermeture?
Merci d'avance pour votre aide
Cordialement
Zeltron