Envoi colone excel vers bloc note

nimbus -  
 nimbus -
Bonjour,

j'ai un problème que je n'arrive pas a résoudre
sur une feuille appeler formatage colone W2 à w800 j'ai des information à envoyer vers le bloc note pour une autre application.

ma formule en W est : si(R2="ok";N2;"") et ce jusqu'a W800
ce qui me donne


jusque la tous va bien sauf que mes info varies d'un mois sur l'autre elle peuvent aller de W2 à W30 ou bien W2 à W120 ect... dans ma mocro comment reprendre uniquement les celules contenant des infos et pas celle qui on "" car dans mon fichier texte il reprend bien mes lignes qui ont du texte mais aussi celle qui n'on rien jusq'à la ligne 800 et ca me bloc mon transfert vers l'autre appication
comment transferer dans le bloc note uniquement les lignes qui ont du texte

Merci à vous pour votre aide
A voir également:

1 réponse

Fxbrg Messages postés 715 Statut Membre 199
 
Salut,

Peux-tu mettre le code ta macro?
0
nimbus
 
Re bonsoir
merci pour ton aide
ci joint le code de ma macro


Dim Formatage As String, fengin As String
Formatage = ActiveWorkbook.Name
fengin = Replace(Formatage, ".xls", "")
Range("w2:w645").Copy
AppActivate Shell("C:\windows\Notepad.exe", 1)
SendKeys "^v"
SendKeys "^s"
SendKeys "C:\MR4G\fengin"
SendKeys "{ENTER}"
SendKeys "%{F4}"
SendKeys "{ESC}"
Sheets("formatage").Visible = False
Sheets("madsub").Select
0