Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 5 sur 5
  1. #1
    Membre du Club
    Inscrit en
    février 2009
    Messages
    129
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 129
    Points : 49
    Points
    49

    Par défaut Désactiver message presse papier

    Bonjour,

    J'ai une macro qui consiste à copier coller des valeurs d'un fichier excel à l'autre et qui ferme le premier fichier excel. Cependant lorsque ça ferme la feuille excel, j'ai un message me demandant ce que je veux faire avec les infos du presse papier ....

    Y'a-t-il un moyen de désactiver ce message ou de répondre non directement ?

    Merci

  2. #2
    Membre Expert Avatar de Krovax
    Inscrit en
    juillet 2008
    Messages
    1 889
    Détails du profil
    Informations personnelles :
    Âge : 28

    Informations forums :
    Inscription : juillet 2008
    Messages : 1 889
    Points : 1 890
    Points
    1 890

    Par défaut

    Pour enlever les messages d'alerte voici le code


    Code :
    1
    2
    3
    Application.DisplayAlerts = False
        'ton code...
    Application.DisplayAlerts = True
    Après je ne sais pas si cela marche à la fermeture, mais si la macro est lancé par le deuxième fichier (qui reste ouvert) ca devrai être bon.

  3. #3
    Membre Expert Avatar de aalex_38
    Inscrit en
    septembre 2007
    Messages
    1 630
    Détails du profil
    Informations forums :
    Inscription : septembre 2007
    Messages : 1 630
    Points : 1 801
    Points
    1 801

    Par défaut

    Bonjour,

    Pour ne pas garder dans le presse papier as-tu essayé


    Code :
    Application.CutCopyMode = False
    Je crois qu'il y a eu une discussion similaire sur le forum et que c'est ça qui manquait.


    Edit : la solution de Krovax, est toujours utile pour le arret des différentes alertes !

  4. #4
    Membre du Club
    Inscrit en
    février 2009
    Messages
    129
    Détails du profil
    Informations forums :
    Inscription : février 2009
    Messages : 129
    Points : 49
    Points
    49

    Par défaut

    Merci ça marche

  5. #5
    Membre du Club
    Profil pro Nicolas
    Ingénieur développement logiciels
    Inscrit en
    décembre 2006
    Messages
    131
    Détails du profil
    Informations personnelles :
    Nom : Nicolas
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : décembre 2006
    Messages : 131
    Points : 62
    Points
    62

    Par défaut

    il y a ça aussi:

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Sub ClearClipboard()
    Dim oDataObject As DataObject
     
    Set oDataObject = New DataObject
    oDataObject.SetText ""
    oDataObject.PutInClipboard
     
    Set oDataObject = Nothing
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •