Astuces Excel
  1. Astuces Excel
  3. Évitez les avertissements et les erreurs pour le button qui ouvre une cellule hyperliée
Intereting Posts
Comment puis-je augmenter la taille de la police de chaque cellule sur toute la feuille Excel efficacement? Utilisation de la bibliothèque closed XML C # Comment puis-je déterminer datatables qui causent cette erreur lors de l'logging Lecture de file Excel avec la string de connection Office 2007 Formatage de la feuille Excel en utilisant C #. Le style s'applique à toutes les cellules et non à une cellule Sauvegarde et restaure les parameters de locking / délocking de la cellule Excel Ajouter l'espace entre le time et PM / AM dans la feuille de calcul Recherchez la colonne Excel et décrivez la valeur d'une autre cellule qui se trouve dans la même ligne mais dans une autre colonne Notepad ++ regex réorganise le text un peu plus complexe Quelle est la meilleure façon de join / merge deux tables par correspondance de cellules de colonne dans Excel? Moyenne pour plusieurs colonnes et lignes pour une table Remplissez automatiquement la dernière ligne dans une colonne Comment get des nombres dans Lakhs avec une fraction de 4 numbers décimale décimale en excel? Importation de dates Excel dans MATLAB excel macro pour combiner les cellules de colonne B en fonction de la colonne A Excel 2010 VBA: Largeur automatique de DropDown combo

Évitez les avertissements et les erreurs pour le button qui ouvre une cellule hyperliée

J'ai le code suivant atsortingbué à un button dans une feuille de calcul Excel. 

Sub Hyperlink() Worksheets("Sheet Name").Cells(ActiveCell.Row, 3).Hyperlinks(1).Follow End Sub

Lorsque le button est cliqué, Excel ouvre le file attaché de la ligne active. Cela fonctionne bien tant qu'il existe un hyperlink dans la ligne active et l'user clique sur OK lorsque la window d'avertissement apparaît.

Si possible, Comment puis-je:

  1. Évitez l'avertissement d'ouvrir le file hyperlié?
  2. Évitez, désactivez ou personnalisez les messages d'erreur suivants.
    1. Filer vide ou aucun file hyperlié.
      • (Erreur d'exécution '9': Abonné hors de scope).
    2. En cliquant sur annuler, il existe un file hyperlié.
      • (Erreur d'exécution "-24147467260 (80004004) ': L'hyperlien ne peut pas être suivi pour la destination.)

Voici les captures d'écran des messages contextuels.

Je vous remercie.

J'ai également trouvé une façon de désactiver les avertissements hypertext ici.
Bien que je ne voulais pas le faire pour chaque user du classur …

Display.Alerts = False ne fonctionnera pas, sinon n'importe quel méchant pourrait désactiver les avertissements. Cela pourrait vous aider partiellement. 

 Sub Hyperlink() On Error Resume Next Worksheets("Sheet Name").Cells(ActiveCell.Row, 3).Hyperlinks(1).Follow If Error <> "" Then MsgBox ("Nowhere to go, Nothing to see") End Sub