Discussion :

[zoumzoum59]

Bonjour à tous

Apres avoir enregistré un fichier sous excel au format csv et ouvert la boite de dialogue ouvrir du bloc note.

Je voudrais savoir s'il est possible d'ouvrir le fichier csv dans le bloc note connaissant son chemin par la variable "NomFichier"

Le code de départ etant le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim NomFichier As Variant
NomFichier = Application.GetSaveAsFilename("aze.cvs", _
                                           fileFilter:="Fichier (*.csv), _
                                           *.csv")
 
If NomFichier <> False Then
        ActiveWorkbook.SaveAs NomFichier
        ActiveWorkbook.Close
    Else
        Exit Sub
End If
 
 
ident = Shell("C:\Windows\system32\notepad.exe", vbNormalNoFocus)
AppActivate ident
DoEvents
SendKeys "^o", True

Si vous pouvez m'aider merci d'avance.

[ouskel'n'or]

Bien sûr, tu peux ouvrir un csv (s'il n'est pas trop long) avec le blocnote (on arle de notepad)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell("cmd /c c:\windows\Notepad.exe c:\test.csv")

Maintenant... l'intérêt de l'ouvrir dans notepad depuis une macro ???

Tu dis

[zoumzoum59]

Ok ouskel'n'or ça marche impec et ton code racourci le mien mais mon souci est egalement d'utiliser le chemin du fichier qui est stocker dans la valeur de la variable NomFichier.

Comment puis je récupérer cette valeur pour ouvrir le fichier dans notepad ?

Sinon pourquoi ouvrir ce fichier csv dans notepad, c'est que si je ne le réenregistre pas avec le bloc note, je n'arrive pas à l'ouvrir avec un autre logiciel qui utilise le format csv.
Le fichier direct d'excel n'est pas reconnu et je ne sais pas pourquoi.

[SfJ5Rpw8]

Le code à ousk adapté avec ta variable NomFichier..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell("cmd /c c:\windows\Notepad.exe " & NomFichier)

sinon .. tu ne peu pas nous en dire plus sur ton probléme de format de fichier ... ? qui n'ai pas écrit comme tu le souhaite par excel.. doit bien avoir une solution pour éviter le passage à notepad..

[zoumzoum59]

Pour mon format, non je ne sais pas pourquoi mais le format csv généré par excel n'est pas accepter par l'importation du logiciel que j'utilise derriere ( logiciel qui est un shareware nommé DebitPro).

Alors que quand il a ete réenregister sous notepad sans rien changer l'importation fonctionne sans souci.