Macro pour ouvrir les classeurs, Excel VBA

Pour ouvrir un classeur, vous devez connaître le nom du fichier et le chemin dans lequel il se trouve. Utilisez la méthode Open pour ouvrir un classeur.

Sub OuvrirLeClasseur ()

Const Lw = "c: \"

Const path = "c: \ mon fichier"

Const file = "Classeur2.xls"

     ChDrive Lw

     ChDir path

     On Error Resume Next

     Workbooks.Open file

End Sub

Jetez un œil à la ligne avant la commande Ouvrir. L’instruction On Error Resume Next garantit que la macro ne génère pas d’erreur si le classeur souhaité est introuvable. Dans ce cas, Excel ignorerait simplement la commande.

La façon dont vous pouvez utiliser une fonction pour vérifier si un classeur existe est expliquée dans l’un de nos artcles publiers.

La méthode Open a en grande partie les mêmes arguments que vous avez déjà connus avec la méthode SaveAs. Ceux-ci peuvent être trouvés dans l’aide en ligne.

La syntaxe complète de la méthode Open est:

Workbooks.Open(FileName, UpdateLinks, ReadOnly,  _
 Format, Password, WriteResPassword,_
 IgnoreReadOnlyRecommended, Origin, Delimiter, _
 Editable, Notify, Converter, AddToMRU)

L’argument UpdateLinks est particulièrement important. Vous avez probablement déjà reçu un message lorsque vous avez ouvert un classeur, que vous souhaitiez ou non mettre à jour les liens du classeur. Vous pouvez supprimer cette requête en faisant correspondre un   de l’argument 0-3. La signification des différentes valeurs peut être trouvée dans le tableau suivant:

Tableau : Les constantes de la méthode Open

Par exemple, la ligne signifie

Workbooks.Open filename: = "Classeur.xls", UpdateLinks: = 0,

les liens ne sont pas mis à jour.

Si vous souhaitez généralement mettre à jour les liens lors de l’ouverture des classeurs, vous pouvez sélectionner la commande OPTIONS dans le menu OUTILS, passer à l’onglet MODIFIER et désactiver la case à cocher CONFIRMER LA MISE À JOUR DES LIENS AUTOMATIQUES. Vous pouvez également définir cette modification à l’aide d’une macro.

Sub ToujoursMettreJour ()

   Application.AskToUpdateLinks = False

End Sub

Définissez la propriété AskUpdateLinks sur la valeur True pour afficher à nouveau la requête de mise à jour lorsque les classeurs sont ouverts.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x