Discussion :

[MorganS34]

Bonjour,

Je viens de finaliser ma base de donnée pour un suivi des exploitants agricoles que j'accompagne dans leurs démarches administratives.

J'aimerais rajouter un dernier truc qui me ferait gagner en rapidité : un bouton qui me permet directement d'accéder au dossier de l'exploitant sur mon serveur. Pour le moment je n'ai trouvé que ce code ci-dessous. Il fonctionne mais uniquement si le dossier sur le serveur ne comporte que le numéro de l'adhérent. Or, le numéro de l'adhérent est découpé (XX XXX XXXX X) dans la nomenclature du dossier sur le serveur mais pas sur la base et j'ai ensuite rajouté son nom de famille ou une partie du nom de sa société.

Code :

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

1
2
3
4
5
Private Sub Commande31_Click()
 
Shell "explorer C:\chemin complet où se trouve tous les dossiers des adhérents" & NUMADHERENTS, vbNormalFocus
 
End Sub

Quelqu'un aurait-il une solution à me proposer ?

En vous remerciant tous d'avance !

[User]

Bonjour,

Il faudrait essayer avec la fonction Format à appliquer sur le numéro d'adhérent comme chaîne de caractères :

https://learn.microsoft.com/fr-fr/of...r-applications

Par exemple :

Format("AD12345678","@@ @@@ @@@@ @")

va donner :

"AD 123 4567 8"

[MorganS34]

Bonjour,

Etant amateur, j'avoue être encore bloqué. J'ai bien compris le principe de la mise en forme mais ça ne marche toujours pas. Comment dois-je le noter ?

Et surtout comment lui indiquer, qu'après ce numéro d'adhérent, il y a encore du texte de noté dans la nomenclature du dossier sur le serveur ? exemple : 11 111 1111 1 - NOM ADHERENT

Je vous remercie encore de votre aide.

[User]

Il faudrait découper la chaîne de caractère à. l'aide des fonctions left et mid :

...& Format(left([numadherent],10),"@@ @@@ @@@@ @") & mid([numadherent],11)

Left récupère les 10 premiers caractères du numéro et mid le reste en partant du 11e caractère.

[MorganS34]

Je pense que c'est dans l'autre sens qu'il faut que je fasse la recherche.

sur access, j'ai mon numéro d'adhérent => le formatage marche car je l'ai tenté en renommant un des dossiers et ça me l'a ouvert

sur le serveur, le dossier se nomme ainsi => XX XXX XXXX X - XXX XXX XXX - nom adhérent ou partie du nom de sa société. Les X remplacent des chiffres.


Voici le code actuel. J'aimerais qu'il comprenne qu'à la place des *, il y a n'importe quel texte ou chiffre possible et qu'il faut qu'il ne concentre que sur le numéro d'adhérent.



Private Sub Commande31_Click()

Shell "explorer C:\........" & Format(Left([NUMADHERENT], 10), "@@ @@@ @@@@ @") & ******, vbNormalFocus

End Sub

[User]

Pouvez-vous donner un exemple de nom de dossier sur le serveur avec le nom correspondant dans la base de données ? ce sera plus simple.

[MorganS34]

Base Access : 11 001 0011 1
Dossier sur le serveur : 11 001 0011 1 - 011 001 111 - Domaine du Vin

Le 2nd numéro est un autre numéro d'identification des exploitants agricoles mais tous nos exploitants n'en n'ont pas. Il faut donc que je puisse juste ouvrir le dossier grâce au NUMADHERENT.

J'ai aussi le nom de l'adhérent de renseigner dans un champ nommé ENTREPRISE mais sur ACCESS je l'ai noté en entier (SCEA Domaine du Vin) alors que sur le serveur il n'est pas en entier (Dme du Vin). Je ne peux donc pas m'en servir.

[deedolith]

Salut,

Si tu as une base locale qui parle de choux, et une base serveur qui parle de carottes, il est clair que ce qui est fonctionnel sur l'un ne peut pas l'être sur l'autre.

Quid de commencer par harmoniser les types de données ?

[MorganS34]

Plus concret :

[User]

J'ai testé ce code en local sur un dossier présent sur mon disque :

Code :

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

1
2
3
4
5
6
7
8
9
    Dim dossier_principal As String, dossier_cherche As String
 
    dossier_principal = "C:\chemin_complet_contenant_dossier" ' à remplacer par votre chemin
 
    dossier_cherche = Dir$(dossier_principal & "\" & [NUMADHERENT] & "*", vbDirectory)
 
    If (Len(dossier_cherche) > 0) Then
      Shell "explorer " & dossier_principal & "\" & dossier_cherche, vbNormalFocus
    End If

[MorganS34]

Super !!!! J'ai rajouté la mise en format du numéro d'adhérent et ça marche. Je vous remercie mille fois de votre aide et du temps que vous m'avez accordé