Discussion :

[Ogrysek]

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

[SfJ5Rpw8]

Bonsoir,
Quel code utilise tu pour écrire dans ta feuille?

[Ogrysek]

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

[Philippe Tulliez]

Bonjour,

==> 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.

[SfJ5Rpw8]

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

montre ton code ... entre balises..

[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.

[Ogrysek]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ogrysek]

I'm back

J'avance.
Je sais maintenant lire et écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?)

[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

[Ogrysek]

Super cela fonctionne beaucoup mieux comme ça
Merci