Envoi colone excel vers bloc note
nimbus
-
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
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
- Bloc note gratuit - Télécharger - Traitement de texte
- Déplacer colonne excel - Guide
- Liste déroulante excel - Guide
- Trier colonne excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
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