XL 2013 Enregistrer sous paint

  • Initiateur de la discussion Initiateur de la discussion MASSJIPE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
J'utilise le code suivant mais je voudrais une fois coller dans Paint c'est enregistrer sous un répertoire
comme dans Excel fichier enregistrer sous etc
Une idée
Merci
VB:
Sub COPIE()

' COPIE Macro

    ActiveWindow.SmallScroll Down:=-15
    Range("A1:K33").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Ret = Shell("C:\WINDOWS\system32\mspaint.exe", 1)
1: On Error Resume Next
AppActivate Ret, True
If Err Then On Error GoTo 0: GoTo 1
Application.SendKeys "^v", True

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
10
Affichages
547
Retour