Discussion :

[Fanows]

Bonjour

Mon problème est le suivant:

J'ai sans cesse des demandes a faire via des tableau Excel sorte de "formulaires types" que je dois remplir et envoyer à un correspoondant par email.

Dans Access, j'ai créer un formulaire "demande" avec un bouton de commande.

Je connais pas VBA mais j'ai néanmoins réussi a creer un code qui ouvre Excel, récupère le fichier excel : "Modelevierge.xlt" et j'ai même testé l'écriture de chaine dans l'une ou l'autre cellule.

?????

Ce que je ne parviens pas a trouver/comprendre c'est :

1) comment utiliser les données de l'enregistrement courant de Access dans le formulaire "demande"

pour par exemple mettre [NomPersonne] dans la cellule excel Cell(2,4) ...


2) sauver le fichier en en "blablablaREFERENCE.xls" (quoique cela j'arriverai si on m'aide pour le point1)


3) envoyer le fichier XLS en 'attachement' vers un destinataire donné avec un objet d'email qui serait du type "demande pour "&[NomPersonne]
un corps de message poli standard...


Help !!!!! helpppp qlq un a t il une boussole pour m'aider je seche (DAO ca me fait peur )


remarques:

- J'utilise LotusNotes (ca a l'air d'aller avec le wizard d'envoi d'etat par email)
- Excel doit il s'ouvrir absolument ? si on commande son ouverture, execution, fermeture cela risque t il de m'embeter si il je bosse sur un autre classeur par ailleurs ?

[Heureux-oli]

Salut,

Si c'est pour traiter les données situées dans un formulaire pour l'enregistrement courant, il n'est pas utile d'utiliser du DAO ou de l'ADO.

Par contre, il te sera nécessaire de passer par du VBA.

Première chose, ouvrir le document Excel en Access.
Commence par ajouter la référence d'Excel à ton projet

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
Private Sub Commande9_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlSH As Excel.Worksheet
 
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add ("le_chemin_de_mon_modele")
Set xlSH = xlWB.Sheets(1)
 
xlSH.Cells(1, 1) = Me.monContrôle
xlSH.Cells(1, 2) = Me.MonAutreContrôle
....
....
 
xlApp.Visible = True
 
 
End Sub

tu peux envoyer le contenu de tous tes contrôles dans les cellules de ton choix.

[Fanows]

Bonsoir Heureux-Oli et merci de ta réponse

Jusque là mon code etait presque semblable

je me sens nul de pas avoir pensé à utiliser me.MonControle

(moi pas parler bien VBA )

questions

1) ne faut il pas libérer les objets Excel à la fin du code ?

2) je vois que tu es pro Word, j'ai un autre document type "formulaire2.doc" il est protégé en édition mais je sais le déverouiller.

Il contient juste des cases a cocher et des zones pour encoder (on passe d'une à l'autre par TAB)

Penses tu qu'il est aussi aisé d'utiliser un code similaire mais pour une automation vers word ? chaque zone accessible pour l'encodage doivent bien etre référencable ? me trompe je ???



3) Me.xxxxxx utilise t il la valeur du controle ou bien du champs de la table/requete qui alimente mon formulaire ??

En fait j'ai un champs reference en NumérAuto que je ne vois pas sur mon formulaire est ce qu'il sera utilisable ? (ex pour constituer le nom de mon fichier.xls que je sauve)

4) avant la fin du code je peux completer avec l'envoi du mail ?? je peux fermer le fichier xls et reste a trouver le code adéquat pour l'envoyer par piece jointe mais j'ai une idée déja...

[Heureux-oli]

Salut,

Sans ton code, il ne m'est pas possible de savoir qu'il est semblable .

Pour la libération des objets, comme je fais un xl.visible = True, je fais la libération manuelle en fermant Excel.

Oui, on peut utiliser le même procédé pour envoyer les données dans un document.

http://heureuxoli.developpez.com/off.../publipostage/