Envoyer un mail (et un seul) après la première utilisation d'une macro xlam

Version imprimable

19/10/2012, 16h17
Ogrysek

Envoyer un mail (et un seul) après la première utilisation d'une macro xlam

Bonjour,

Je vous expose mon problème :
- J'ai créé une macro contenue dans un fichier .xlam que je vais diffuser
- J'aimerai qu'après chaque première utilisation après installation (qui est simplement le stockage du fichier xlam dans un répertore donné) un mail me soit envoyé
- Pas de problème pour la création et l'envoi du mail
- Je pensais utiliser une des feuilles excel de xlam (normalement masquée mais tout de même existante) pour stocker un booléen indiquant que le mail a été envoye afin de ne pas recevoir de multiples mail de la même personne.
==> Je ne parviens pas à écrire dans le feuille du fichier xlam (et donc à lire) en utilisant une macro vba.

Quelqu'un pourrait il m'aider ? :?

D'avance merci :ccool:
19/10/2012, 21h42
SfJ5Rpw8

Bonsoir,
Quel code utilise tu pour écrire dans ta feuille?
19/10/2012, 22h46
Ogrysek

Un code en vba pour gérer une feuille excel dans laquelle je fais des calculs
Pourquoi ?
20/10/2012, 08h44
Philippe Tulliez

Bonjour,

Citation:

Citation:

==> Je ne parviens pas à écrire dans le feuille du fichier xlam (et donc à lire) en utilisant une macro vba.

Si mes souvenirs sont exacts, j'avais rencontré la même difficulté il y a quelques années et j'avais pallier le problème en rendant visible la feuille du xla le temps de faire la lecture et l'écriture.

[EDIT]
Je retire ce que j'ai écrit ce matin car après vérification et test, il n'y a aucun problème pour lire et écrire sur la feuille d'un classeur suffixé xla
Mes souvenirs devaient être embrouillés.
20/10/2012, 14h32
SfJ5Rpw8

Citation:

Envoyé par Ogrysek

Un code en vba pour gérer une feuille excel dans laquelle je fais des calculs
Pourquoi ?

:koi:

montre ton code ... entre balises..
20/10/2012, 22h15
Pierre Fauconnier

Salut.

Perso, je ne me souviens pas de difficultés d'écrire dans un xla. Comme le propose bbil, ton code pourrait être utile.

Bonjour
Voici mon code
Je cherche à lire une variable dont le nom est MacroInstallée
Si elle est différente de 1 j'exécute mon code et la passe à 1
Sinon je ne fais rien.

Merci d'avance pour vos éclairage :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub EnvoyerConfInstall()
 
'-----------------------------------------------------------------------------
 
'OutApp             : Application Outlook
'OutMail            : Mail Outlook
Dim OutApp As Object
Dim OutMail As Object
Dim DestinataireTo As String
Dim Msg As String
Dim CestQui As String
 
 
Dim Origine_Workbook As String
Dim Int1 As Integer
 
' MacroInstallée est la cellule A1 de la feuille Feuil1 de la macro
 
On Error Resume Next
 
Origine_Workbook = "C:\Program Files\Microsoft Office 2007\Office12\XLSTART\MacroE.xlam"
 
Windows(Origine_Workbook).Activate
 
Int1 = ActiveWorkbook.CustomDocumentProperties.Item("MacroInstallée").Value
 
If Int1 <> 1 Then
 
    'Ouverture d'Outlook  
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
 
    DestinataireTo = "toto@wanadoo.fr"
 
    Set OutMail = OutApp.CreateItem(0)
 
    Msg = "Installation terminée"
 
    With OutMail
        .To = DestinataireTo
        .CC = ""
        .BCC = ""
        .Subject = "Test Outlook"
        .Body = Msg
        '.Send
        .Display
    End With
 
    'Libération des ressources
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
    Windows(Origine_Workbook).Activate
    ActiveWorkbook.CustomDocumentProperties.Item("MacroInstallée").Value = 1
End If
 
 
End Sub

I'm back

J'avance.
Je sais maintenant lire et écrire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ' Lecture Windows(Origine_Workbook).Activate ThisWorkbook.IsAddin = False Worksheets("Feuil1").Visible = True Sheets("Feuil1").Select Int1 = Cells(1, 1).Value ThisWorkbook.IsAddin = True ... 'Ecriture Int1 = 2 Windows(Origine_Workbook).Activate ThisWorkbook.IsAddin = False Sheets("Feuil1").Select Cells(1, 1).Value = Int1 ThisWorkbook.IsAddin = True 'Sauvegarde du fichier xlam ActiveWorkbook.Save
Mais c'est la sauvegarde du fichier qui ne fonctionne pas. Excel veut sauvegarder le fichier visualisé et non le xlam (Comment faire la sauvegarde du xlam ?)

22/10/2012, 21h29
SfJ5Rpw8

Bonsoir,
Comme on l'écrit souvent sur ce forum moins on utilise activeworkbook, activesheet, activecell.. mieux le code se porte..
http://excel.developpez.com/faq/inde...r#ThisWorkbook
23/10/2012, 11h58
Ogrysek

Super cela fonctionne beaucoup mieux comme ça
Merci:P:D:ccool: