Discussion :

[GADENSEB]

Bonjour,
Je souhaite analyser le nom d'un fichier pdf pour qu'il me remplisse un usf qui lui mm remplie une base de données

le nom du fichier pdf se décompose comme ca

102 - 25 04 2014 - SOCIETE - POSTE.PDF

l'analyse se ferais par le biais des "-"

25 04 2014 = le champ date
SOCIETE = le champ SOCIETE
POSTE = le champ POSTE

La recherche du fichier pdf se ferait à l'ouverture de l'usf de saisie

Comment procéder ?

Bonne journée

Seb

[Kimy_Ire]

Bonjour GADENSEB,

Si j'ai bien compris tu souhaites ouvrir un UserForm avec 3 champs texte qui créer ou récupère un PDF, c'est ça ?

Cordialement,
Kimy

[GADENSEB]

L'usf comporte beaucoup plus de champs ... mais je veux récupérer ces données du nom de fichier pdf pour optimiser la saisie ( je gagne le temps de saisie sur 3 champs).

[Kimy_Ire]

GADENSEB,

Voici une petite macro te permettant de faire ça.

Remplace la variable Str par le nom de ton PDF et tu devrais avoir ce que tu souhaites.

Ensuite, il faut juste que tu identifies le nom des TextBox correspondantes pour mapper correctement les valeurs !

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
Sub usf()
Dim Str As String
 
Str = "102 - 25 04 2014 - SOCIETE - POSTE.PDF"
 
Str = Right(Str, Len(Str) - InStr(Str, " - ") - 2)
UserForm1.TextBox1 = Left(Str, InStr(Str, " - "))
'MsgBox Left(Str, InStr(Str, " - "))
 
Str = Right(Str, Len(Str) - InStr(Str, " - ") - 2)
UserForm1.TextBox2 = Left(Str, InStr(Str, " - "))
'MsgBox Left(Str, InStr(Str, " - "))
 
Str = Right(Str, Len(Str) - InStr(Str, " - ") - 2)
UserForm1.TextBox3 = Left(Str, Len(Str) - 4)
'MsgBox Left(Str, Len(Str) - 4)
 
UserForm1.Show
End Sub

N'hésite pas à revenir vers moi si tu as un soucis !

Cordialement,
Kimy

[GADENSEB]

Code Super !

Merci

Seb

[Marc-L]

Bonjour Kimy,

tu peux simplifier avec la fonction Split, voir ici …

[Kimy_Ire]

C'est vrai !

Pas du tout pensé.

J'essayerais la prochaine fois !

Du coup :

Code :

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

1
2
3
4
5
6
7
Tabl = Split(Str, " - ")
 
UserForm1.TextBox1 = Tabl(1)
UserForm1.TextBox2 = Tabl(2)
UserForm1.TextBox3 = Left(Tabl(3), Len(Tabl(3)) - 4)
 
UserForm1.Show