IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Erreur d’entrée/sortie de périphérique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Inscrit en
    Janvier 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 2
    Par défaut Erreur d’entrée/sortie de périphérique
    Bonjour,

    J’ai un problème avec VBA sur Excel. Et j’ai besoin de votre aide

    En fait à chaque fois que je ferme un fichier Excel contenant des macros VBA, un nouveau
    'vbaproject ' se créée dans l’éditeur VBA et il porte le nom du classeur fermer.

    Je suis obligé de fermer l'application pour pouvoir supprimer ce vbaproject.

    Sinon, à l’ouverture de ce fichier, je me trouve avec deux 'vbaproject’ portant le même nom.
    Et parfois j’ai un message d’erreur « Erreur d’entrée/sortie de périphérique ».


    Comment faire pour résoudre ce problème ?
    Merci pour votre aide.

    Red1

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juin 2009
    Messages
    652
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Juin 2009
    Messages : 652
    Par défaut
    Bonjour,

    Peut-être en utilisant l'instruction Set WB = Nothing comme dans les exemples suivants

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Sub Par_Workbooks_Open()
    Dim WB As Workbook
    Set WB = Workbooks.Open("c:\essai.xls") 'adapter le path
    WB.Close False
    Set WB = Nothing '/// détruit l'objet
    End Sub
     
    Sub Par_GetObject()
    Dim WB As Workbook
    Set WB = GetObject("c:\essai.xls") 'adapter le path
    WB.Windows(1).Visible = True
    WB.Close False
    Set WB = Nothing  '/// détruit l'objet
    End Sub
    Cordialement.

    PMO
    Patrick Morange

Discussions similaires

  1. Réponses: 2
    Dernier message: 18/08/2009, 11h17
  2. chm HtmlHelpA erreur à la sortie
    Par ouiouioui dans le forum Débuter
    Réponses: 5
    Dernier message: 21/05/2009, 18h05
  3. [Mail] Erreur en sortie
    Par la2002 dans le forum Langage
    Réponses: 4
    Dernier message: 29/04/2009, 22h33
  4. Gestion des erreurs entre sorties sans la STL
    Par Djobird dans le forum SL & STL
    Réponses: 2
    Dernier message: 13/02/2007, 21h22
  5. Erreur à la sortie du programme
    Par Sachiel31 dans le forum C++
    Réponses: 19
    Dernier message: 26/07/2006, 09h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo