Discussion :

[persjussysylvain]

Bonjour,

J'ai un tableau avec des prénoms et des dates pour gérer les présences
Je voudrais lorsque j'appuie sur le bouton "ajouter à la liste" que le contenu et le commentaire de la cellule active soit ajouté au fichier texte "Liste changements"
J'ai réussi à écrire un code qui ajoute le contenu de la cellule dans le fichier texte
MAIS la cellule est nommé dans le code
MAIS à chaque fois que j'appuie sur le bouton, il efface ce qui a été écrit précédemment : je voudrais que le contenu et le commentaire soient rajoutés en haut de page
MAIS je ne sais pas comment rajouté le commentaire de la cellule

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
Private Sub CommandButton3_Click()
 
 
    On Error GoTo Erreur
 
    Dim Chaine As String
 
    Dim Fichier As String
 
    Fichier = "q:\commun\ListeChangements.txt"
 
    Dim f As Integer
 
    f = FreeFile
 
    Open Fichier For Output As #f
 
 
 
      Print #f, Cells(3, 1)
 
 
 
    Close #f
 
    MsgBox "Les cellules ont été sauvegardées dans " & Fichier
 
    Exit Sub
 
Erreur:
 
    MsgBox "Le fichier de sortie est inaccessible"
 
 
End Sub

Pourriez-vous svp m'aider à régler ces problèmes

Voici mon fichier joint (j'ai ajouté un bouton "envoyer mail" car le voudrais pouvoir envoyer la liste à la secrétaire)

Je vous remercie beaucoup

Cordialement