Discussion :

[nouveau17]

Bonjour,

je voudrai utilisé un stockage de pièces jointes en utilisant le vba dans le formulaire congés suivant:

ce que j'ai compris c'est que je dois créer /
-une tablePieceJointes relié avec congé utilisé;
-le champ (table précédente) indiquant le chemin des docs ;
-le chemin est ‪C:\Desktop\DOSSIER DEMANDES ET TITRES

Procédure sur clic du bouton permettant de choisir le fichier sur le disque

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
Private Sub CmdChoisirFichier_Click() 
    Dim fd As Object ' Office.FileDialog 
 
    ' Créer un objet FileDialog pour choisir un fichier 
    Set fd = Application.FileDialog(3) ' msoFileDialogFilePicker : 3 
 
    ' Titre de la boîte de dialogue 
    fd.Title = "Sélectionnez un fichier..." 
 
    ' Ne pas autoriser la sélection multiple 
    ' (donc 1 seul fichier est sélectionnable à la fois) 
    fd.AllowMultiSelect = False 
 
    ' Effacer les filtres précédents 
    fd.Filters.Clear 
 
    ' Afficher la boîte de dialogue 
    If fd.Show() Then ' on a sélectionné un fichier 
        Me.CheminFichier = fd.SelectedItems(1) ' on met à jour le champ avec le chemin sélectionné 
    End If 
 
    ' On libère la variable objet 
    Set fd = Nothing 
 
End Sub

Procédure sur clic du bouton pour ouvrir le fichier enregistré sur le disque

Code :

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

1
2
3
4
5
Private Sub CmdOuvrirFichier_Click() 
    If Nz(Me.CheminFichier.Value, "") <> "" Then ' si un chemin est enregistré dans le champ CheminFichier 
        Shell "explorer.exe " & Chr(34) & Me.CheminFichier.Value & Chr(34), vbMaximizedFocus ' on ouvre le fichier avec son chemin 
    End If 
End Sub

-pour sauvegarder
-ouvrir si nécessaire le pièces jointes stocker dans le C:/

[User]

Bonjour,

Je ne regarde pas les pièces jointes, mais je peux vous donner quelques pistes :

Si votre table principale sur laquelle est basée votre formulaire des congés se nomme TablePrincipale, avec un champ identifiant IdTablePrincipale.

1. Il faut une table pièce jointes pour enregistrer les adresses des fichiers sur le disque, reliée à la table principale :

PiecesJointes(IdPieceJointe, CheminFichier, IdTablePrincipale)

2. Ensuite, il faut créez un sous-formulaire basé sur cette table PiecesJointe que vous insérer dans votre formulaire des congés.

Ce sous-formulaire sera affiché en mode continu (affichage par défaut : formulaires continus)

3. Enfin, vous placez un bouton cmdChoisirFichier, et un bouton cmdouvrirfichier dans la section détail du sous-formulaire sur lequel vous placez le code VBA que vous avez postez (événement clic des boutons).

[nouveau17]

Bonjour,
Mais concernant le chemin c:\........... ou dois je l.ecrire dans les deux codes sachant que les fichiers .pdf et autres sont dans un dossier nommé documents demandes congés.

[User]

Si vous n'avez pas trop de fichiers vous pouvez le faire manuellement avec le bouton cmdchoisirfichier, une fois que le sous-formulaire sera en place.

[nouveau17]

Code :

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

fd.Title = "Sélectionnez un fichier..."

Dans le code ci-dessus dois-je écrire le nom du dossier ou bien autre chose??

[nouveau17]

Bonjour,

Je ne regarde pas les pièces jointes, mais je peux vous donner quelques pistes :

Si votre table principale sur laquelle est basée votre formulaire des congés se nomme TablePrincipale, avec un champ identifiant IdTablePrincipale.

1. Il faut une table pièce jointes pour enregistrer les adresses des fichiers sur le disque, reliée à la table principale :

PiecesJointes(IdPieceJointe, CheminFichier, IdTablePrincipale)

2. Ensuite, il faut créez un sous-formulaire basé sur cette table PiecesJointe que vous insérer dans votre formulaire des congés.

Ce sous-formulaire sera affiché en mode continu (affichage par défaut : formulaires continus)

3. Enfin, vous placez un bouton cmdChoisirFichier, et un bouton cmdouvrirfichier dans la section détail du sous-formulaire sur lequel vous placez le code VBA que vous avez postez (événement clic des boutons).

bonjour,

j'ai effectué une petite base afin d'exécuter le code le résultat est ceci, dons ou est l'erreur.

cordialement.

[User]

Le bouton cmdChoisirFichier, que vous avez appelé cmdouvrirfichier, devrait se trouver dans le sous-formulaire, comme je vous l'ai indiqué dans mon précédent message :

3. Enfin, vous placez un bouton cmdChoisirFichier, et un bouton cmdouvrirfichier dans la section détail du sous-formulaire sur lequel vous placez le code VBA que vous avez postez (événement clic des boutons).

[nouveau17]

Le bouton cmdChoisirFichier, que vous avez appelé cmdouvrirfichier, devrait se trouver dans le sous-formulaire, comme je vous l'ai indiqué dans mon précédent message :

ca ma échappé merci beaucoup pour votre ca fonctionne super bien, maintenant je doit l'appliquer sur le formulaire congé merci encore.
bonne journée.

[nouveau17]

Procédure de mise à jour des chemins des fichiers :

ce code comment fonctionne et comment l'exécuter :
- créer un module ou bien avec bouton d'exécution comme les deux autres.

merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UpdateCheminsFichiers(AncienDossier As String, NouveauDossier As String) 
    Dim sSQL As String 
    Dim db As DAO.Database 
 
    Set db = CurrentDb ' référence à la base courante 
 
    sSQL = "Update T_PieceJointe Set CheminFichier=Replace(CheminFichier,""" & AncienDossier & """ , """ & NouveauDossier & """)"     
    db.Execute sSQL, dbFailOnError ' Exécute la requête permettant de remplacer l'ancien dossier par le nouveau dans les chemins des fichiers enregistrés dans la base 
 
    Set db = Nothing ' on libère la variable 
 
End Sub

[User]

A priori vous n'en avez pas besoin, c'est pour le cas où vous déplaceriez vos documents dans un autre dossier.

[nouveau17]

[QUOTE=User;11808094]A priori vous n'en avez pas besoin, c'est pour le cas où vous déplaceriez vos documents dans un autre dossier.[/QUOTE

ok mais dans le ou je déplacerai lesdits documents dans un autre document comment faire je peux rencontrer ce genre de situation, disant si je travaille dans mon laptop là ca pose problème(cas réél).

merci.

[User]

il faudrait copier la procédure dans un module standard puis l'appeler par exemple comme ça : UpdateCheminsFichiers "c:\Ancien Dossier\", "c:\Nouveau Dossier\".

[nouveau17]

il faudrait copier la procédure dans un module standard puis l'appeler par exemple comme ça : UpdateCheminsFichiers "c:\Ancien Dossier\", "c:\Nouveau Dossier\".

est ce que c'est correcte !! j'ai pas compris pour ceci UpdateCheminsFichiers "c:\Ancien Dossier\", "c:\Nouveau Dossier\".[/QUOTE]

merci.

[User]

C'est juste un exemple :

Si l'adresse de votre ancien dossier est :
"c:\Ancien Dossier\"

Et celle du nouveau est :
"c:\Nouveau Dossier\"

Alors mettre ce code par exemple sur l'événement clic d'un bouton :

Code :

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

UpdateCheminsFichiers "c:\Ancien Dossier\", "c:\Nouveau Dossier\".

La procédure updatecheminsfichiers doit etre déclarée public dans le module standard et non pas privée.

[nouveau17]

Bonjour,
sur mon laptop (office 2013) j'ai testé les boutons d'exécution choisir un dossier ca marche mais pour retrouver le ficher via le ouvrir ca plante..... est c'est un probleme de version !!??

MERCI

[User]

Bonjour,
C'est probablement un référence manquante dans votre projet (cf. module -> menu outils -. références) : https://www.developpez.net/forums/d4...e-introuvable/

[nouveau17]

Bonjour,
C'est probablement un référence manquante dans votre projet (cf. module -> menu outils -. références) : https://www.developpez.net/forums/d4...e-introuvable/

bonjour,
c exact c bien le problème
merci

[nouveau17]

C'est juste un exemple :

Si l'adresse de votre ancien dossier est :
"c:\Ancien Dossier\"

Et celle du nouveau est :
"c:\Nouveau Dossier\"

Alors mettre ce code par exemple sur l'événement clic d'un bouton :

Code :

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

UpdateCheminsFichiers "c:\Ancien Dossier\", "c:\Nouveau Dossier\".

La procédure updatecheminsfichiers doit etre déclarée public dans le module standard et non pas privée.

bonjour,
en exécutant le bouton ca cloche quelque part en sachant que j'ai crée un module public voir image
merci

[User]

Vous avez bien une table tCu avec un champ Cheminfichier dans cette table ?

[nouveau17]

Vous avez bien une table tCu avec un champ Cheminfichier dans cette table ?

oui