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 !!
A voir également:
- VBA ouverture et écriture dans un bloc note
- Bloc note gratuit - Télécharger - Traitement de texte
- Écriture facebook - Guide
- Redmi note 14 4g test - Accueil - Téléphones
- Ecriture en gras - Guide
- Bloc-notes-Android - Télécharger - Agendas & Calendriers
1 réponse
Bonjour,
Un exemple procédure :
Pour appeler la procédure :
;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau
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
