SELECTION D'UNE PLAGE (changeante) pour copie
Bonjour,
Je souhaite pouvoir selctionner une plage de cellule entre deux critéres.
Cette selection devra faire partie d'une macro de transformation d'un fichier notepad en un fichier Excel. Ce fichier change tous les jours.
Pour être plus clair: tous les jours je dois copier entierement un fichier notepad (+ou - gros) sur excell, puis supprimer toutes les lignes qui ne m'interesse pas, ou selectionner sur une autre feuille celles qui m'interressent pour pouvoir ensuite appliquer mes conversions,
Quelqu'un peut-il m'aider ??
GLRM
Salut Glrm et le forum
Les critères, il faut que l'on devine
Un fichier exemple de ton notepad ou de ta feuille et les critères de choix
nous aideraient à mieux comprendre ton problème,
Mytå qui n'est pas encore un Devin...
Bonjour Myta,
tout dabord, merci pour ta réponse,
J'ai préparé un fichier exemple, ce que je souhaite accomplir, c'est de pouvoir extraire de ce fichier txt la plage qui se trouve entre "FUTURES CONFIRMATIONS" et "STOCK OPTIONS CONFIRMATIONS" soit en supprimant toutes les autresw lignes, soit en copier cette plage et la copier sur une autre feuille excell.
Le fichier d'origine est beaucoup plus important, on ne peut pas selectionner cette plage sans que cela soit trop lourd. De plus cette plage change quotidiennement.
Je souhaiterais juste un petit programme qui dise, dés que tu vois "FUTURES CONFIRMATIONS", copie ce qu'il y a en dessous et arretes tois dés que tu vois "STOCK OPTIONS CONFIRMATIONS".
https://www.excel-pratique.com/~files/doc/exemple.txt
Est-ce possible,
Merci mille fois merci pour ton aide.
Bonjour
Je ne sais pas comment copier un Notepad par Macro. J'ai donc effectué cette partie manuellement avec un "Sélectionner tout" sur le Notepad et ensuite je l'ai collé en A1 de la Feuille baptisée "Transfert" sur le classeur joint.
La Macro est une XL4 qui s'active avec les touches de raccourci CTRL+a (minuscule) ou par la commande de menu "Outils" "Macro" "Macros", sélectionner "Transfert" et valider.
La Feuille Macro est masquée. Pour la visualiser, commande de menu "Format" "Feuille" "Afficher"
Le résultat s'inscrit sur la Feuille "Résultat_du_jour"
Mytå, te l'écrira peut être en VB, ce n'est pas mon truc.
A ta disposition pour d'éventuelles modifications
Cordialement,
Amadéus
Bonjour,
Mille fois merci pour ta réponse je l'ai tester et cela fonctionne.
J'aimerais pouvoir te rendre un service mais moi à part le point de croix je n'ai pas de grandes expertises !!!
A bientôt,
GLRM
Salut le Forum
J'avais commencé mais je bloque sur le coller dans Excel, peut-être demain à
tête reposé...
Sub LireBlocNote()
' Lancement du bloc-notes :
AppActivate Shell("Notepad.exe", vbNormalFocus)
' CTRL+O pour ouvrir :
SendKeys "^o"
SendKeys "C:\Excel\exemple.txt"
' Comme si on cliquait sur OK :
SendKeys "{ENTER}"
' CTRL+A pour sélectionner :
SendKeys "^a"
' CTRL+C pour copier :
SendKeys "^c"
' Quitter le bloc notes avec ALT F4 :
SendKeys "%{F4}"
End SubMytå
Salut le forum
La macro qui fait tout. Le chemin du fichier est à adapter.
Sub CopierFichierTexte()
Dim Ligne As Single
On Error Resume Next
Cells.Delete
Range("A1").Select
Application.DisplayAlerts = False
Workbooks.OpenText "C:\Excel\Exemple.txt", xlWindows, _
1, xlDelimited, ConsecutiveDelimiter:=False, Tab:=True
Application.DisplayAlerts = True
If Err Then MsgBox Err.Description: Exit Sub
On Error GoTo 0
With Application
.ScreenUpdating = False
ActiveSheet.Cells.Copy
.DisplayAlerts = False
ActiveWorkbook.Close False
ActiveSheet.Paste
.CutCopyMode = False
.DisplayAlerts = True
End With
Range("A1").Select
Ligne = Columns(1).Find("*FUTURES CONFIRMATIONS*", [A1], , , , xlPrevious).Row
Range(Cells(1, 1), Cells(Ligne - 1, 1)).Delete
Ligne = Columns(1).Find("*STOCK OPTIONS CONFIRMATIONS*", [A1], , , , xlPrevious).Row
Range(Cells(Ligne, 1), Cells(Range("A65535").End(xlUp).Row, 1)).Delete
End SubMytå
Bonsoir
ça, je n'ai pas réussi à le faire en XL4.
Mais, j"ai pas mal de lacunes
Bravo!
Cordialement,
Amadéus
Merci beaucoup pour votre aide,
Eventuellement et si vous avez 5 minutes à consacrer à ce pb, maintenant que mon fichier est bien délimité, je souhaite pouvoir ne selectionner que les lignes qui m'interressent. C'est à dire sans ligne vide ou bien sans lignes inutiles, pour cela le plus simple est de faire un trie et de supprimer les lignes qui me gènent. Je souhaite pouvoir automatiser cela, sachant qu'il n'y a jamais le même nombre de ligne dans un fichier. Ceci me permettra ensuite de convertir mon fichier par colonne etc...
Merci de votre aide
PS : vous ne donneriez pas des cours par hasard???
GLRLM
Bonjour
Oui, mais comment reconnait-on les lignes qui te gênent, en dehors des lignes vides, bien sur?
Pour les cours, c'est tous les jours en regardant les questions et les réponses sur le Forum.
Cordialement,
Amadéus
Hello,
Dans le fichier que je vous ai envoyé il n'y a pas le détail, mais en fait les lignes qui m'interressent commencent toutes par une date au format mmm jj
Merci,,
Pour les cours, je vais être assidue à vos réponses maintenant !
A+
Bonjour
Que fait-on des lignes de titres ?
on peut les supprimer je les rajouterais apres conversion dans une macro toute simple.
Merci
A+
Bonjour
Dans le fichier que je vous ai envoyé il n'y a pas le détail, mais en fait les lignes qui m'interressent commencent toutes par une date au format mmm jj
Comment des cellules issues d'une base texte peuvent elles êtres au format "mmm jj" ?
Envoie moi une ligne compléte que je me rende compte de la présentation.
Jun 07 28 201B6222(C 0706) 222.5 1.95 5,460,000 \par
Bonsoir
essaie celle là, mais sans le vrai fichier c'est difficile.
Cordialement,
Amadéus
Salut le forum
Comme le dit bien Amadéus un vrai fichier texte en exemple, et la une macro
vraiment adapter pourrait être faite sur mesure.
Mais à toi de voir GLRM....
Mytå_Qc
Merci beaucoup de votre aide,
voici un fichier texte tel qu'on le reçoit. par contre, la macro peut simplement commencer depuis la copie du fichier texte sous excel, cela me suffira.
Merci,
GLRM
Bonjour à tous,
Je n'ai toujours pas eu de réponse à mon dernier e mail joint du fichier txt demandé, peut-être ai-je trop demandé, je suis désolé
Merci pour ce forum je pense que j'y reviendrai,
GLRM
Salut le forum
GLRM, tu as bien fait de remonter le fil de discussion, on t'avait oublier.
Pour nous faire pardonner, regarde la pièce jointe et tu nous dit les lignes
que tu veux garder, on poursuivera le travail ensuite.
Le fichier Importation
Mytå