VBA ouverture et écriture dans un bloc note Fermé

Question

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 !!

Polux31 · Answer

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:	estOpen.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:	estOpen.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

VBA ouverture et écriture dans un bloc note

1 réponse

Discussions similaires