1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Probleme avec Target.Address

magfrede
Messages postés
1
Date d'inscription
jeudi 1 juillet 2010
Statut
Membre
Dernière intervention
1 juillet 2010
 - 1 juil. 2010 à 19:51
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 - 2 juil. 2010 à 00:19
bonjour
avec mon code je souhaite lorsque je remplis chaque cellule d'une colonne (exemple toutes les cellules de la colonne b) avec une date activer automatiquement une macro
cela fonctionne mais sur toutes les cellules que je modifie
avez vous une solution
merci
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 7) <> "" Then
mess_03b
End If
End Sub


Sub exportDonneesDansSignetsWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim chemin As String


Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Mes documents\test.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordDoc.Bookmarks("Signet1").Range.Text = ActiveCell.Offset(0, -6)
WordDoc.Bookmarks("Signet2").Range.Text = ActiveCell.Offset(0, -5)
WordDoc.Bookmarks("Signet3").Range.Text = ActiveCell.Offset(0, -4)
WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'imprimer

chemin = "C:\Documents and Settings\Mes documents"
Nomdufichier = ActiveCell.Offset(-1, -2)
WordDoc.SaveAs Filename:=chemin & Nomdufichier & ".doc"

'WordDoc.SaveAs ("C:\Documents and Settings\Mes documents\test3.doc")
'WordApp.Quit 'ferme la session Word
End Sub

Sub mess_03b()
'MsgBox Oui + Non
Select Case MsgBox("voulez vous produire le document de synthese", vbYesNo, "DOCUMENT DE SYNTHESE")
Case vbYes
'procédure si click sur Oui
exportDonneesDansSignetsWord
'procédure si click sur Oui

Case vbNo
'procédure si click sur Non
End Select
Select Case MsgBox("voulez vous envoyer message", vbYesNo, "DOCUMENT DE SYNTHESE")
Case vbYes
'procédure si click sur Oui
CreationMailEtLienHypertexte
Case vbNo
'procédure si click sur Non
End Select
End Sub
Sub CreationMailEtLienHypertexte()
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
'testé avec excel XP
' necessite d'activer la reference microsoft outlook 10.0 object library
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = "forum@xld.fr"
.Subject = "Le titre du message"
'\\FRRCHNT1 nom du serveur hebergeant le fichier lié
.HTMLBody = "<HTML> \\FRRCHNT1\fichier.x ls </HTML>"
.Display
.Save
.Send
End With

Set OlItem = Nothing
Set OlApp = Nothing

End Sub

1 réponse

Réponse 1 / 1
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 80
2 juil. 2010 à 00:19
Salut
Pourquoi avoir collé tout ce code qui n'a rien à voir avec la question ? 

Sub Worksheet_Change(ByVal Target As Range)
    ' Si modif dans colonne B
    If Target.Column = 2 Then
        MsgBox "Colonne B !"
    End If
End Sub

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
0