Probleme Displayalerts
Bonsoir,
J'ai un code qui me permets de copier des cellules dans le bloc note.
Par contre, je souhaite enregistrer a chaque fois par dessus, mais je n'arrive pas à éviter le message 'fichier existe deja.......)
J'ai essayé Application.DisplayAlerts = False à plusieurs endroits, mais j'ai toujours l'avertissement.
Mon code ci-dessous
Merci d'avance pour l'aide
Doudom
Sub BlocNote()
range("EQ3:EU22").Copy
AppActivate Shell("C:\windows\Notepad.exe", 1)
SendKeys "^v"
SendKeys "^s"
Application.DisplayAlerts = False
SendKeys "C:\Users\XXX\Documents\test.txt"
' Comme si on cliquait sur OK :
SendKeys "{ENTER}"
Application.DisplayAlerts = True
End SubBonjour,
Application.DisplayAlerts supprime les messages d'Excel mais si je suis bien ce que tu veux faire le message que tu reçois provient de Notepad
En place de Notepad emploi Word, cette appli supporte le VBA
A+
Bonsoir,
Merci pour la réponse, je vais essayer d'adapter mon code pour word.
L'équivalent n'existe pas dans notepad ?
Bonne soirée
Doudom
Ont ne peu pas tout connaitre mais à mon avis non, ça ne fait pas partie de la suite Office.
Avec Word tu dois faire avec du VBA et pas avec des SendKey si tu veux maîtriser aussi le message de Word.
A+
Et autre remarque, pourquoi passer par NotePad, Excel peu enregistrer en Txt.