Bonjour à tous,
J'ai besoin de votre aide.
Sur ma base de données, l'opérateur peut accéder à un formulaire de saisie liée a une table "Outillage" ou il peut y remplir des informations.
Sur ce formulaire, il y a un bouton qui a pour événement sur clic l'ouverture d'un fichier Excel (Fiche Outillage).
J'ai trouvé ce code pour l'ouverture.
Et à partir d'ici je suis perdu
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 Private Sub Commande99_Click() Dim xls As Excel.Application 'Application Excel Dim wk As Excel.Workbook 'Classeur Excel On Error GoTo errHnd Set xls = CreateObject("Excel.Application") 'Reference a Excel Set wk = xls.Workbooks.Open("C:\Users\?????\???\Equipe BE - Base de Données\RESSOURCES\BDD OUTILLAGE\Base de données\FICHE OUTILLAGE 11-05-21.xlsx") 'Chemin du Classeur Set ws = wk.Sheets("FICHE TECHNIQUE OUTILLAGE") 'Nom de la feuille a ouvrir ws.Activate xls.Visible = True errHnd: Set xls = Nothing Set wk = Nothing If err.Number <> 0 Then MsgBox "Erreur N° " & err.Number & vbLf & err.Description, , err.Source End Sub
Car j'aimerais que l'opérateur après avoir rempli le tableur puisse retourner sur le formulaire de saisie précèdent, enregistrer la saisie dans une table + le fichier Excel dans un champ pièce jointe.
De plus il faudrait que le fichier Excel ne soit pas déjà rempli à chaque ouverture.
L'idée est que chaque enregistrement sur la table Outillage est une Fiche Outillage accessible à l'affichage sur mon formulaire de recherche.
Cela fait 5 mois que j'ai appris l'existence d'Access et du coup, j'ai beaucoup de mal avec le code VBA.
Merci d'avance pour vos réponses
Froulex
Partager