VBA enfin je crois!!!

[Zidoide]

Bonjour.........( oo )
...

Petite question, quand vous avez des codes comme ci-dessous!!!

J'aimerais savoir comment et ou vous les insérez???

C'est juste un exemple que j'ai copier XLD

Private Sub Worksheet_Change(ByVal Target As Range)
'testé avec WinXP
Dim iMsg As Object, iConf As Object
'Dim iBP As Object

Const cdoSendUsingPickup = 1
On Error Resume Next
If Target.Address = '$A$1' And Target > 100 Then
Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')

With iMsg
Set .Configuration = iConf
.To = Range('A2')
.Subject = Range('A3')
.HTMLBody = Range('A1')
'Set iBP = iMsg.AddAttachment('C:\\lefichier.txt')
.Send
End With
End If
End Sub

 

[Toutou]

Bonjour Zidoide,
va dans option\\Macro\\Visual Basic Editor
la fenêtre qui s'ouvre est l'editeur VBA dans lequel tu insère ton code.
Tu peux ainsi créer des UerForm qui sont des 'fenetres personnalisables'.
J'espère avoir répondu a ta question...
Bonne fin de journée, @ +
Toutou

 

[MichelXld]

bonjour Zidoide , bonjour Toutou

j'espere que ce lien pourra t'aider , en complément de la solution donnée par Toutou

Lien supprimé



bonne soirée
MichelXld

 

[PascalXLD]

Bonjour

Pour mettre mon petit grain de sel

Tuas des macros événementielles du type que tu as mis

Private Sub Worksheet_Change(ByVal Target As Range)

Cet macro se déclenche sur un changement dans une feuille

Ce dode se trouve donc dans la feuille elle-même dans le VBE

Tu as aussi du code evenementiel rataché au classeur et dans ce cas le code se trouve dans le thisworkbook dans VBE

Puis tu as les macros en règle générale qui elles se trouvent dans des modules

Puis tu as les userform comme te l'as dit Toutou (tiens en passant ça fait bizarre comme pseudo j'ai l'impression de parler d'un chien 🙂 ) où là aussi tu as du code sur les evenements de tes contrôles et userform

Bonne soirée

 

[zidoide]

Merci pour vos réponses....