Programmation VBA/Excel

giiu10 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,

J'ai réaliser une macro à l'aide de VBA qui produit le résultat souhaité; cependant, ma macro fait intervenir des ouvertures de fichiers successives et à chaque ouverture de fichier une boite de dialogue s'ouvre me demandait si je souhaite l'ouvrir en lecture seule ou non.

Ma question est de savoir si il existe un code VBA qui permettrait de répondre automatiquement à cette boite de dialogue ?

La boite de dialogue est la suivante: 'calcul prob.xlsm' (mon fichier) devrait être ouvert en lecture seule à moins que vous n'ayez besoin d'enregistrer des modifications. Voulez-vous l'ouvrir en lecture seule ?

J'aimerai donc une ligne de code qui répondrait non à cette question.

Je vous remercie d'avance pour votre aide.

Julien.

3 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    En étant aussi flou, cela parait difficile de t'aider

    envoie la macro en questions ou mieux le classeur sans donnérs confidentielles
    0
    1. giiu10 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
       
      En fait la macro est très longue et compliquée et cela importe peu que vous la voyez pour me répondre.

      Il faut juste savoir que dans celle-ci il ya des formules qui ouvrent d'autres classeurs. Celle-ci par exemple:
      Workbooks.Open ("T:\Users\Julien\Test Macro\Calcul Prob.xlsm")

      A chaque fois que la macro arrive à cette ligne, je dois répondre à un message s'affichant me demandant si je souhaite l'ouvrir en lecture seule. Je voulais simplement savoir s'il était possible d'insérer une instruction qui répondrait directement à cette question sans mon intervention.
      0
  2. MiB
     
    Bonjour,

    Application.DisplayAlerts = False

    ' ... to code

    Application.displayAlerts = True

    devrait fonctionner

    Michel B.
    Cdt
    0
    1. giiu10 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
       
      merci. Je met ceci après l'instruction:

      Workbooks.Open ("T:\Users\Julien\Test Macro\Calcul Prob.xlsm")
      0
    2. MiB
       
      avant :
      Application.DisplayAlerts = False

      après :
      Application.displayAlerts = True

      Michel B.
      Cdt
      0
    3. giiu10 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
       
      Merci cela marche super ! Cependant en mettant cela, que donne t'il comme réponse à la question ?
      0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Une toute petite réflexion te donneras la solution...
    Sauve le classeur en question et tu verras ce qui en résulte.
    A+
    0