Discussion :

[lulu_MAHC]

Bonjour tout le monde,

petit soucis avec une ouverture de fichier, l'erreur doit etre plantee devant mes yeux mais je n'arrive pas a la trouver ...
je souhait ouvrir des fichiers textes avec le notepad , j'ai donc ecrit cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TEST_TEXT()
Dim TUTU As String
Dim File_Name As String
 
chemin = "C:\Users\lcatelli\test-temporaire\travaux_ppt\"
File_Name = Dir(chemin & "*.txt")
 
Shell ("C:\Windows\Notepad.exe" & chemin & File_Name,vbNormalFocus)
 
End Sub

Je me suis renseigne sur l'internet et normalement la syntaxe semble bonne ... mais pas d'apres VBA ...

Merci d'avance

[cerede2000]

Bonjour à toi,

Code :

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

Shell ("Notepad.exe" & chemin & File_Name,vbNormalFocus)

=>

Code :

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

Shell "Notepad.exe" & chemin & File_Name,vbNormalFocus

Ou

Code :

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

Call Shell("Notepad.exe" & chemin & File_Name,vbNormalFocus)

[lulu_MAHC]

Merci de ta reponse, les syntaxes sont donc maintenants juste neanmois le message d'erreur : File not Found apparait

Pour etre sur de mon coup j'ai tout regroupe dans la variable TUTU et je joint un screen pour te montrer que le path est le bon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TEST_TEXT()
Dim TUTU As String
Dim File_Name As String
 
chemin = "C:\Users\lcatelli\test-temporaire\travaux_ppt\"
File_Name = Dir(chemin & "*.txt")
 
TUTU = "C:\Users\lcatelli\test-temporaire\travaux_ppt\TEST.txt"
 
Shell "Notepad.exe" & TUTU, vbNormalFocus
End Sub

[kiki29]

Salut, corriger

Shell "Notepad.exe" &

en

Shell "Notepad.exe " &

Ne pas oublier l'espace

[lulu_MAHC]

Parfait c'est niquel ! Etant debutant, le role du moindre detail ne cesse de m'etonner ( et de me montrer l'importance de la rigueur )

Bonne journee a toi , encore merci