Sujet Précédent Sujet Suivant

Envoi colone excel vers bloc note

Fermé
nimbus - 12 mars 2008 à 15:32
 nimbus - 12 mars 2008 à 17:05
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

Réponse 1 / 1
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 198
12 mars 2008 à 15:36
Salut,

Peux-tu mettre le code ta macro?
0
nimbus
12 mars 2008 à 17:05
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

Discussions similaires

Colis en cours de transport vers votre site de livraison ?
Ninan_5568 -
JulieVdr -

7 réponses
Convertir une note sur 20 .
zino44 -
rolala... -

35 réponses
'Votre colis est dans le site de livraison qui dessert votre adresse' que faire
relakztek82 -
Unemeuf -

25 réponses
Échec d’envoie message messenger
Kris68 -
Colibri -

2 réponses