Piloter le bloc note depuis excel

[Lu K]

Bonjour à toutes et à tous,

Voilà, je souhaite après avoir copié une plage de cellule dans excel (par VBA), ouvrir le bloc note, coller et enregistrer le tout dans un chemin spécifié.

Mon problème, c'est la base ! Ouvrir le bloc note avec excel. Le reste je pense (j'ai bien je pense!) pouvoir y arriver.

Si toutefois vous connaisser une solution pour faire la même chose avec Notepad++, n'hésitez surtout pas à me dire !

D'avance merci pour vos réponse

 

[degap05]

Re : Piloter le bloc note depuis excel

Bonjour,
En faisant une recherche dans le forum, j'ai trouvé cette discussion:
https://www.excel-downloads.com/threads/ouvrir-un-fichier-du-bloc-note.45531/

A+

 

[DoubleZero]

Re : Piloter le bloc note depuis excel

Bonjour Lu K, le Forum,

... après avoir copié une plage de cellule dans excel (par VBA), ouvrir le bloc note, coller...

Une discussion à consulter...

A bientôt .

Bonjour, degap05.

 

[TempusFugit]

Re : Piloter le bloc note depuis excel

Bonjour

Pourquoi passer par le bloc-notes ?

Excel sait enregistrer au format txt.

 

[Dranreb]

Re : Piloter le bloc note depuis excel

Bonjour
...Et VBA sait écrire des fichiers très facilement. Surtout des fichiers textes.
Mais je sais aussi fabriquer des .bmp, .wav, .ico, .cur, .ani avec les instructions E/S de VB.
Cordialement.

P.S. Remarque: les sons (wav) et les curseurs animés (ani) sont au format RIFF (Resource Interchange File Format)

 

[tototiti2008]

Re : Piloter le bloc note depuis excel

Bonjour à tous,

Mais je sais aussi fabriquer des .bmp, .wav, .ico, .cur, .ani avec les instructions E/S de VB.

On se vante, on se vante... mais nous on demande à voir

 

[Efgé]

Re : Piloter le bloc note depuis excel

Bonjour à tous (z'êtes nombreux )
Un fichier que j'avais fait pour exporter en .Csv mais qui est façilement adaptable.
Enregistrer l'exemple en local avant le traitement.
Cordialement

 

[Lu K]

Re : Piloter le bloc note depuis excel

Re,

Merci à tous pour vos réponses, c'est vraiment super !

J'ai réussi (avec le lien de double zéro) à exporter mes élément vers le bloc note ! Mais il me reste le problème de l'enregistrement !
Car le code ne permet pas de manipuler le bloc note (touche raccourci clavier). Je doit passer absolument par le bloc note pour pouvoir enregistrer en .html !

Si quelqu'un à une idée !

Encore merci pour votre aide.

 

[Dranreb]

Re : Piloter le bloc note depuis excel

Bonjour Tototiti.
Un seul oeil intrigué qui s'ouvre tout grand ?!
Le problème c'est que comme je me suis beaucoup amusé avec tout ça, ce sont tous des classeur monstrueux et très brouillons que j'adaptai au résultat souhaité du moment. Mais je dois bien avoir quelques procédures passe partout aisément adaptables.
Qu'est-ce qui t'intéresserait en particulier ?
À +

 

[Lu K]

Re : Piloter le bloc note depuis excel

Bonjour dranreb,

Merci de l'aide que tu me propose. C'est tout simple : pouvoir enregister un fichier bloc note en .html en passant par la VBA d'excel. J'ai le chemin et le nom de dossier, pas de problème pour ça !

Merci d'avance.

 

[TempusFugit]

Re : Piloter le bloc note depuis excel

Bonjour

@Dranreb
Un deuxième oeil vient de s'ouvrir
et lorgnerai plutot vers:
création de bmp et de wav

@Lu k
Tu peux aussi créer un html directement à partir d'Excel

Un exemple issu de l'enregisteur de macro

Sub Macro1()
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Classeur1.htm", "Feuil1", _
        "$A$1:$E$19", xlHtmlStatic, "Classeur1_16002", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub

 

[Lu K]

Re : Piloter le bloc note depuis excel

Bonjour TempusFugit,

Une je sait que l'on peut en registrer en .html via excel, j'aurais peut-être du le préciser avant ! Désolé.

Mais quand on enregistre avec excel, ça n'enregistre pas tout à fait comme je veut ! il me rajoute tout plein de truc tout partout ! Donc évidement cela ne me convient pas !

C'est pour cela que je cherche une autre solution, et le bloc note, je pense que ça pourrai m'aider !

A +

 

[tototiti2008]

Re : Piloter le bloc note depuis excel

Re,

Euh... on peut enregistrer en html depuis le bloc notes ?
Comment on fait ?
Ou alors je n'ai pas le même bloc notes que tout le monde...ou alors il s'agit juste de changer l'extension du fichier en html, auquel cas il n'y a pas besoin de passer par le bloc notes ?

@Dranreb :
C'est de la curiosité, donc tout peut m'intéresser

 

[TempusFugit]

Re : Piloter le bloc note depuis excel

Bonjour de nouveau

Même constat que tototiti2008


Au départ, tu dis vouloir copier une plage de cellules dans le bloc-notes
Qu'y-a-t-il dans ces cellules ? Du code HTML ?

Car une fois dans le bloc-notes, comment rajoutes-tu les balises HTML ?

 

[Dranreb]

Re : Piloter le bloc note depuis excel

Pour écrire un simple fichier txt:

Open Chemin & "\Tabloquin.txt" For Output Access Write As #1
Print #1, ChaîneLigne1
Print #1, ChaîneLigne2
Print #1, ChaîneLigne3
Close #1

Pour écrire un bmp sans palette:

Sub ÉcrireFichierBMP()
Tâche "Production de l'image (plan B)", XbmMax * YbmMax
If UCase(Right(ChNomF, 4)) <> ".BMP" Then
Dim Va As Variant
Va = Application.GetSaveAsFilename(Left$(ChNomF, DernierDans(ChNomF, ".") - 1), "BitMaps,*.bmp", Title:=NomTâche)
If Va = False Then AbandonTâche "réf. fichier non fournie": Succès = False: Exit Sub
ChNomF = Va
Range("RéfFicSor").Value = Replace(ChNomF, "\", vbLf, DernierDans(ChNomF, "\"), 1): End If
Open ChNomF For Binary Access Write As #1 Len = 1
Const BM As String * 2 = "BM": Put #1, 1, BM
BitPx = 24: NbCoul = 0
LgL = 4 * ((XbmMax * BitPx + 31) \ 32): LgM = LgL * YbmMax
LgE = 4 * NbCoul + 54: LgF = LgE + LgM
Put #1, 3, LgF: Put #1, 7, 0&: Put #1, 11, LgE: Put #1, 15, 40&
Put #1, 19, XbmMax: Put #1, 23, YbmMax
Put #1, 27, 1: Put #1, 29, BitPx: Put #1, 31, 0&
Put #1, 35, LgM: Put #1, 39, 0&: Put #1, 43, 0&: Put #1, 47, NbCoul: Put #1, 51, 0&
Dim XRempliss As Integer: XRempliss = LgL - 3 * XbmMax
For Ybm = 1 To YbmMax
Seek #1, LgE + LgL * (YbmMax - Ybm) + 1
For Xbm = 1 To XbmMax
Enrg = TE(Xbm, Ybm): Chal = TH(Xbm, Ybm): Gaît = TJ(Xbm, Ybm)
Call CalcÉngEHJ: CalcRVBÉLi
Oct = Round(Bleu): Put #1, , Oct
Oct = Round(Vert): Put #1, , Oct
Oct = Round(Roug): Put #1, , Oct
Call OùÇaEnEst: Next Xbm
Oct = 0: For Xbm = 1 To XRempliss: Put #1, , Oct: Next Xbm
Next Ybm
Close #1
Succès = True
End Sub

Je vous l'ai mis brut comme trouvé dans un de mes classeurs.
Vous auriez besoin de mon module de calcul de couleurs pour l'utiliser.
Pour les wav c'est un peu plus compliqué. Je me suis fait une feuille de controle de lecture écriture de fichiers RIFF. Il faudrait que j'arrive à joindre quelque chose d'assez court.

P.S. Pour Tâche et OùÇaEnEst c'est ma barre de progression déja proposée à plusieurs...
À +

Important pour leur type à respecter impérativement: ces déclarations en tête du module pour les bmp

Dim ChNomF As String, LgL As Long, NbCoul As Long, LgE As Long, LgM As Long, LgF As Long
Dim Oct As Byte, BitPx As Integer, Succès As Boolean, Feui As Worksheet
'
Public XbmMax As Long, Xbm As Long
Public YbmMax As Long, Ybm As Long
Public TE() As Double, TH() As Double, TJ() As Double