VBA ouvrir bloc note ds répertoire modifiable
tut
-
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais commander l'ouverture d'un bloc note préalablement créé dans un répertoire défini par l'utilisateur (qui peux donc être modifiable)
Voila ma manière de procéder :
Dim chemin As String
Dim Repertoire As String
Dim ret
Dim fso
Dim fichier
Dim extension As String
Dim NomFichier As String
Dim Head as integer
Repertoire = Worksheets("Commencer").Cells(2, 4) (changeable par l'utilisateur)
NomFichier = Worksheets("Commencer").Cells(3, 4) (changeable par l'utilisateur)
extension = ".txt"
chemin = Repertoire & NomFichier & extension
Head= FreeFile
Open chemin For Append As #Head
Print #Head, " Bonjour tout le monde"
Close #Head
ret = Shell("notepad.exe chemin", vbNormalFocus)
End
Mon erreur vient de la dernière ligne: ret= Shell(notepad.exe chemin", vbNormalFocus)
En effet, chemin dans mn cas n'est pas pris comme une variable mais comme le nom du fichier texte à ouvrir. Du coup, il m'ouvre un fichier texte nommé "chemin" !!
Comment pourrais je lui demander d'ouvrir mon fichier texte disant "bonjour tout le monde "?
merci pour votre aide !
Je voudrais commander l'ouverture d'un bloc note préalablement créé dans un répertoire défini par l'utilisateur (qui peux donc être modifiable)
Voila ma manière de procéder :
Dim chemin As String
Dim Repertoire As String
Dim ret
Dim fso
Dim fichier
Dim extension As String
Dim NomFichier As String
Dim Head as integer
Repertoire = Worksheets("Commencer").Cells(2, 4) (changeable par l'utilisateur)
NomFichier = Worksheets("Commencer").Cells(3, 4) (changeable par l'utilisateur)
extension = ".txt"
chemin = Repertoire & NomFichier & extension
Head= FreeFile
Open chemin For Append As #Head
Print #Head, " Bonjour tout le monde"
Close #Head
ret = Shell("notepad.exe chemin", vbNormalFocus)
End
Mon erreur vient de la dernière ligne: ret= Shell(notepad.exe chemin", vbNormalFocus)
En effet, chemin dans mn cas n'est pas pris comme une variable mais comme le nom du fichier texte à ouvrir. Du coup, il m'ouvre un fichier texte nommé "chemin" !!
Comment pourrais je lui demander d'ouvrir mon fichier texte disant "bonjour tout le monde "?
merci pour votre aide !
2 réponses
-
Bonjour,
remplacezret = Shell("notepad.exe chemin", vbNormalFocus)parret = Shell("notepad.exe" & chemin, vbNormalFocus)
Je n'ai pas testé mais je suppose que ça devrait fonctionner.
Cordialement. -
chossette9 avait raison, mais il a oublié un espace après notepad.exe
Essaye plutôt ça, c'est testé :
ret = Shell("notepad.exe " & chemin, vbNormalFocus)
