VBA ouverture et écriture dans un bloc note
tut
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
J'aimerai faire la manipulation suivante avec VBA:
J'ai un tableau Excell avec : X 1
Y 10
Z 100
(cellule A1 à B3)
et j'aimerai lorsque je clique sur le bouton de commande "valider" de la "UserForm1" voir apparaitre un fichier bloc note (le bloc note de windows) avec écrit dessus :
"Les dimensions de votre tunnel est de X=1 Y=10 Z=100"
Que dois je coder pour commander l'ouverture du bloc note et l'écriture de mes données?
Merci beaucoup de votre aide !!
J'aimerai faire la manipulation suivante avec VBA:
J'ai un tableau Excell avec : X 1
Y 10
Z 100
(cellule A1 à B3)
et j'aimerai lorsque je clique sur le bouton de commande "valider" de la "UserForm1" voir apparaitre un fichier bloc note (le bloc note de windows) avec écrit dessus :
"Les dimensions de votre tunnel est de X=1 Y=10 Z=100"
Que dois je coder pour commander l'ouverture du bloc note et l'écriture de mes données?
Merci beaucoup de votre aide !!
1 réponse
-
Bonjour,
Un exemple procédure :
Sub AfficheBlocNote(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) Dim fp As Integer Dim chemin As String Dim ret chemin = "D:\testOpen.txt" fp = FreeFile Open chemin For Append As #fp Print #fp, "Les dimensions de votre tunnel sont : X = " & x & " Y = " & y & " Z = " & z Close #fp ret = Shell("notepad.exe D:\testOpen.txt", vbNormalFocus) End Sub
Pour appeler la procédure :Call AfficheBlocNote(1, 10, 100)
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
