Ouverture d'un fichier .csv par macros dans NotePad++

Version imprimable

Bonjour à tous.

Voici mon problème:
Je souhaite ouvrir par macro Excel un fichier csv dans NotePad++.
Étant novice en vba, voici ce que j’arrive à faire pour le moment:
Ouvrir Notepad++ par macro et y envoyer un fichier pré défini.

Mais je souhaiterai avoir un fenêtre qui s'ouvre pour avoir le choix du fichier que je souhaite ouvrir avec Notepad++.

Voici mon code actuel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub NotePad() Dim s1 Dim s Dim A s1 = Shell("C:\ProgramData\Microsoft\AppV\Client\Integration\8B21CF08-0C28-44FB-AC20-617539A63A28\Root\Notepad++\Notepad++.exe d:\Users\Desktop\Export_Import\fichier.csv", 1) AppActivate s SendKeys "^{o}" DoEvents SendKeys "^%{q}" DoEvents End Sub
Si quelqu'un avait la gentillesse de m'aider se serait vraiment super.

Merci d'avance.

Tu pourrais utiliser l'API ShellExecute

À mettre dans un module.
Tu peux ajouter des filtres au GetOpenFilename pour cibler certains types de fichiers (txt, csv,...)
Et tu peux utiliser ChDrive et ChDir pour cibler un disque et un répertoire particulier (voir l'aide)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
         ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
           ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
           ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
 
 
Sub OuvrirNotepad()
    Dim Fichier
    Dim Ret As LongPtr
 
    Fichier = Application.GetOpenFilename()
    If Fichier = False Then Exit Sub
 
    Ret = ShellExecute(0, "Open", "notepad++.exe", Fichier, "", 0)
 
End Sub

29/03/2017, 18h32
patricktoulon

re

Bonjour
tu ouvre Notepad++ puis avec les key ^o tu ouvre le dialog d'ouverture de fichier je comprends pas très bien la

que fait cette série de touche"^%q" dans Notepad ++?????

que veux tu vraiment faire sur ce CSV ???
30/03/2017, 08h19
aurelfond

Merci beaucoup je vais tester ça...:D
30/03/2017, 08h26
aurelfond

Je souhaite ouvrir Notepad++ pour modifier le séparateur ";" par un un séparateur "§§", séparateur demandé par un prestataire dans sa spec d'export de fichier csv, et je n'ai rien trouvé sur le net à ce sujet.
Je n'arrive pas à le modifier directement dans Excel, la seul solution que j'ai trouvé c'est une macro pour remplacer le séparateur dans Notepad++.

Les touches correspondent à l'appel de cette macro dans Notepad.

je sais pas si je suis bien clair dans mes explications...

Merci à vous c'est super de m'aider.

Bonjour,
c'est sur quand ne précisant pas la finalité on a gagné du temps!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub test()
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Title = "Sélectionnez le fichier CSV à reconditionner!"
    .ButtonName = "Sélectionner"
    .InitialFileName = "C:\"
    .InitialView = msoFileDialogViewDetails
    .Filters.Clear
    .Filters.Add "Fuchier CSV", "*.CSV"
    If .Show - 1 Then
        For lngCount = 1 To .SelectedItems.Count
            txt = OuvrirFichier(.SelectedItems(lngCount))
            txt = Replace(txt, ";", "§§")
            SaveNewTxt .SelectedItems(lngCount), txt
            Exit For
        Next
    End If
End With
End Sub
Private Function OuvrirFichier(Fichier)
With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(Fichier)
       OuvrirFichier = .ReadAll
        .Close
    End With
End With
End Function
Private Sub SaveNewTxt(Fichier, txt)
With CreateObject("Scripting.FileSystemObject")
    With .OpenTextFile(Fichier, 2, True)
        .Write txt
        .Close
    End With
End With
End Sub

30/03/2017, 10h06
aurelfond

Merci beaucoup.

Ça marche impec.

Un grand merci a vous tous.

:D:D:D:D:D:D
30/03/2017, 10h07
Marc-L

Citation:

Envoyé par dysorthographie

c'est sur quand ne précisant pas la finalité on a gagné du temps!

Salut Robert !

Me doutant de l'inutilité de Notepad++ par code, la raison pour laquelle je ne suis pas intervenu !

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
30/03/2017, 10h13
Invité

Bonjour Marc,
Ideme

re la solution peut se presenter comme ceci

re

Citation:

Code:

txt = Replace(txt, ";", "§§")

sérieux c'est pour faire ca ???!!!!!!!!

heu... a tu déjà entendu parler de la fonction open de vba ??????????

bon ben je t'en parle alors
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 sub replaceseparator() Dim laChaine As String, x, x2, fichier As String fichier = Application.GetOpenFilename() If fichier = "" Then Exit Sub x = FreeFile: x2 = FreeFile Open fichier For Binary Access Read As #x 'j'aurais pu utiliser "for input" mais c'est plus précis en terme de LOF avec binary acces read laChaine = String(LOF(x), " ") Get #x, , laChaine Close #x Open fichier For Output As #x2 Print #x2, Replace(laChaine, ";", "$$") Close #x2 End Sub
voila ca n'ouvre rien tout ce fait en arriere plan tu n'a qua rouvrir ton fichier pour vérifier le travail est fait

moi aussi je m'en doutais
c'est bien pour ca que j'ai posé la question

de toute façon que peut on faire d'autre sur un csv avec Notepad ++autre que modifier en tant que texte

30/03/2017, 12h22
Invité

Bonjour Patrick,

et oui il fallait attendre que la vase retombe!
30/03/2017, 12h33
patricktoulon

re

Bonjour robert

je me rappelle mes début avec vba je cherchais a tout faire avec aujourd'hui visiblement les débutants c'est le contraire

mais bon peut être repassera t-il par la et essaiera d'analyser le petit bout de code de rien du tout que j'ai esquissé

peut être aussi selon ton temps pourra tu lui expliquer:
comment dans le même principe lire ligne par ligne et modifier mon code en utilisant "append" pour la réécriture au cas ou les CSV s'avèreraient trop gros

ah!.... la jeunesse :calim2:
30/03/2017, 13h26
aurelfond

Merci à tous pour vos retours..
Je ne connais effectivement pas grand chose en vba..
J'ai cherché par moi même sans résultat.

Et oui je vais tenter d'analyser le code fourni par vos soins.

Le truc que c'est qu'on me demande de faire des chose sous vba, sans avoir de notion, bases ou autre le tout dans en un temps relativement court .
Donc oui c'est pas évident pour un néophyte ....

Désolé de ne pas avoir les même bases que vous...
30/03/2017, 13h50
Invité

en réalité ce qui t'est reproché, ce n'est pas ton inexpérience (nous sommes passé par là), mais que tu exposes ton problème sens nous donner la possibilité de t’aiguiser vers la meilleur solution!

exposes ton problème et donnes le contexte et la finalité!
30/03/2017, 13h54
aurelfond

J'en prends note pour la prochaine fois.

Encore merci à tout le monde
30/03/2017, 17h52
patricktoulon

re

re
sans avoir de base en quoi que se soit refléchi a cela ( ce pierre fait, paul saura défaire mais pierre le fera beaucoup mieux )

traduction dans ton contexte
(ce que excel ou vba a fait ,notpad++ saura défaire mais excel vba le fera beaucoup mieux )