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:

Envoi colone excel vers bloc note
Liste déroulante excel - Guide
Déplacer une colonne excel - Guide
Bloc note gratuit - Télécharger - Agendas & Calendriers
Bloc note windows - Télécharger - Traitement de texte
Formule excel - Guide

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?

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

Discussions similaires

Convertir une note sur 20 .

Colis en cours de transport vers votre site de livraison ?

'Votre colis est dans le site de livraison qui dessert votre adresse' que faire

Échec d’envoie message messenger

Discussions similaires

Newsletters