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}"
Open "C:\Users\XXX\Documents\test.txt" For Append As #1
Après pour forcer la sauvegarde du bloc note je n'en ai aucune idée.
Mais si tu as beaucoup de cellules à recopier dans ton bloc note, tu devrais essayer la méthode décrite ci - dessus. L'injection se fait de manière instantanée et le résultat est bien plus fiable qu'avec l'utilisation de sendkey.
Si tu as les cellules A1 à A100 à recopier, tu peux même la transformer de cette façon pour avoir un code rapide, efficace et fiable :
Code:
Sub RecopieCells
For i = 1 to 100
Call InjecterTxt(Cells(i, 1))
Next
End Sub
Sub InjecterTxt(MonMessage as String)
Open "C:\Users\XXX\Documents\test.txt" For Append As #1
Print #1, MonMessage
Close #1
End Sub