XL2000 : Macro pour ouvrir le fichier la plus récemment utilisé

Traductions disponibles Traductions disponibles
Numéro d'article: 213758 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Résumé

Dans Microsoft Excel 2000, si vous activez la case à cocher derniers fichiers utilisés (dans l'onglet Général de la boîte de dialogue Options dans le menu Outils), les fichiers que vous avez utilisé plus récemment sont répertoriés dans le menu fichier. Cet article contient un exemple de macro que vous pouvez utiliser pour ouvrir par programme le fichier que vous avez utilisé le dernier.

Plus d'informations

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite, y compris, sans que cela soit limitatif, les garanties implicites de qualité marchande et/ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.
Si vous ne maîtrisez que partiellement la programmation, il convient contacter un partenaire certifié Microsoft ou les services de conseil Microsoft. Pour plus d'informations, visitez ces sites Web de Microsoft :

Microsoft certifié partners - https://partner.microsoft.com/global/30000104

Avis de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Pour plus d'informations sur les options de support technique disponibles et sur la façon de contacter Microsoft, reportez-vous au site Web de Microsoft à l'adresse suivante : http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Exemple de macro

Sub Open_Last_Used_File()

   Dim S as String

   'Set the variable S to the path and file name of the most recently used
   'file.
   S = Application.RecentFiles(1).Name

   'Open the file.
   Workbooks.Open S

End Sub
				

À l'aide de l'exemple de macro

Remarque : Si vous ne cliquez pas sur activez la case à cocher derniers fichiers utilisés et que vous exécutez une macro qui utilise la propriété RecentFiles de l'objet application, vous recevez message d'erreur suivantes :
Erreur d'exécution '9' :
Indice hors limites.
Pour empêcher la message d'erreur de s'afficher lorsque vous exécutez la macro, cliquez sur activez la case à cocher derniers fichiers utilisés est décrite dans la section "Résumé" avant d'exécuter la macro.

Pour utiliser l'exemple de macro, procédez comme suit :
  1. Créer un nouveau classeur dans Excel 2000.
  2. Appuyez sur ALT + F11 pour démarrer Microsoft Visual Basic Editor.
  3. Dans le menu Insertion, cliquez sur module.
  4. Tapez l'exemple de code de macro dans le module.
  5. Appuyez sur ALT + Q pour revenir à Excel.
  6. Dans le menu Outils, pointez sur macro et cliquez sur macros. Cliquez sur Open_Last_Used_File, puis cliquez sur exécuter pour exécuter la macro.
Lorsque vous exécutez la macro, il s'ouvre le premier fichier dans la liste des derniers fichiers utilisés.

Propriétés

Numéro d'article: 213758 - Dernière mise à jour: lundi 10 février 2014 - Version: 3.5
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 2000 Standard
Mots-clés : 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB213758 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 213758
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com