Bonjour à tous,
Je viens à vous pour un problème de code vba. Je souhaiterais, à l'ouverture d'un classeur (classeur1) faire les choses suivantes :
1/Vérifier si classeur2 est présent => si non msgbox et fermeture du classeur1
2/Vérifier si classeur2 est ouvert => si oui msgbox et fermeture du classeur1
3/Bloquer l'ouverture du classeur2 par un autre utilisateur tant que le classeur1 et ouvert (et donc à sa fermeture autoriser l'accès au classeur2.
Ci-dessous ce que j'ai réussi à faire ds le classeur1 (simplement vérifier si le classeur2 est présent) pour le reste ça plante..
Sub Autpen()
Sheets("accueil").Activate
If Dir("F:\Classeur2.xlsx") = "" Then
MsgBox ("Aucune mise à jour ne sera possible." & Chr(10) & "Les éléments nécessaires aux contrôles des achats sont manquants.")
ActiveWorkbook.Close
End If
End Sub
Merci pour votre aide
Je viens à vous pour un problème de code vba. Je souhaiterais, à l'ouverture d'un classeur (classeur1) faire les choses suivantes :
1/Vérifier si classeur2 est présent => si non msgbox et fermeture du classeur1
2/Vérifier si classeur2 est ouvert => si oui msgbox et fermeture du classeur1
3/Bloquer l'ouverture du classeur2 par un autre utilisateur tant que le classeur1 et ouvert (et donc à sa fermeture autoriser l'accès au classeur2.
Ci-dessous ce que j'ai réussi à faire ds le classeur1 (simplement vérifier si le classeur2 est présent) pour le reste ça plante..
Sub Autpen()
Sheets("accueil").Activate
If Dir("F:\Classeur2.xlsx") = "" Then
MsgBox ("Aucune mise à jour ne sera possible." & Chr(10) & "Les éléments nécessaires aux contrôles des achats sont manquants.")
ActiveWorkbook.Close
End If
End Sub
Merci pour votre aide