Discussion :

[steeve59510]

Bonjour,

Je travaille dans le service public.
Je ne suis pas développeur mais on m'a demandé de développer une base pratique d'utilisation à partir d'un fichier Excel.
Access me semblait être la meilleure solution.
Jusque là rien de compliqué.

Afin d'améliorer un peu l'existant j'essaie de faire une manipulation qui me dépasse et je voulais avoir votre avis et votre aide.

Je chercher à créer sur mon formulaire principal un bouton qui, à l'activation, demanderait d'aller chercher un fichier existant sur le poste.
Ce fichier serait copié sur un partage du LAN défini puis renommé de telle sorte que le nom du fichier (hors extension) soit le numéro de la clé unique de l'enregistrement actif. Au besoin, si ce fichier existait avant, il le supprimerait.

D'abord, est-ce possible à mettre en oeuvre ? (je suppose que oui)
Est-ce compliqué pour quelqu'un comme moi ? (Je pars du principe que cela va demander de mettre une ligne de code dans une macro qui sera exécutée par ce bouton mais c'est tout ce que je sais)

Voilà, vous savez tout !

Merci déjà d'avoir lu ce message jusqu'au bout

Bonne journée à tous !

Steeve

[pyloupylou]

hello,

pour choisir un fichier, en cherchant un peu tu peux trouver plein d'exemple en voici 1:

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
Function SelectionFichier01(titre As String) As String
      On Error GoTo err_f002
      Dim fd As Office.FileDialog
'
        ' Créer un objet FileDialog
       Set fd = Application.FileDialog(msoFileDialogOpen)
 
        ' Titre de la boîte de dialogue
      fd.Title = titre
 
        ' Ne pas autoriser la sélection multiple
        ' (donc 1 seul fichier est sélectionnable à la fois)
      fd.AllowMultiSelect = False
 
      ' Afficher la boîte de dialogue
     If fd.Show() Then
        SelectionFichier01 =fd.SelectedItems(1)
 
      End If
  GoTo fin_f002
err_f002:
       MsgBox Err.Number & "-" & Err.description
       On Error GoTo 0
fin_f002:
       Set fd = Nothing
End Function

ça tu le colles dans un module

ensuite sur l'evenement clic de ton bouton tu colles ça :

Code :

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

1
2
3
4
dim monfichier as string
 
monfichier =  SelectionFichier01("Veuillez choisir votre fichier")
'.... suite du traitement

ensuite il faut que tu manipules ton fichier pour le coller où tu veux
et là je te conseille l’excellent tutoriel http://warin.developpez.com/access/fichiers/ de mister WARIN

pour tester, je te conseilles de suivre le déroulement du traitement en pas à pas et voir en positionnant des espions comment évolue la procédure

voilà bon courage.

[steeve59510]

Bonjour pyloupylou,

Merci bcp pour ta réponse.
Je vais essayer tout ça mais je crois que je vise trop haut par rapport à mes compétences sur le sujet et je le regrette amèrement.
Merci encore et bonne journée.

Steeve