Discussion :

[maname]

Bonjour

Dans une base de données ACCESS 2016, j'ai créé une fiche contact avec nom, prénom adresse, téléphone, etc...

Pour mon activité professionnelle, j'utilise FIREFOX pour me connecter et remplir des formulaires et besoin de saisir le n° de téléphone et email

Afin de m'éviter de les saisir, j'ai créé un bouton COPIER à droite des champs téléphone et email. La commande que j'utilise fonctionne très bien pour les email, mais j'ai un souci avec les n° de téléphone

Code :

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

1
2
3
4
 
Private Sub btnCopierNumFixe_Click()
   Me.TELFIXE.SetFocus
   DoCmd.RunCommand acCmdCopy

Pour une question de visibilité j'affiche le n° de téléphone avec des espaces. C'est plus facile à saisir ce n° sur mon téléphone en lisant les chiffres 2 par 2 (exemple : 03 83 31 76 90)

Par contre, lors du remplissage d'un formulaire internet, on ne doit pas insérer les espaces. Le n° de téléphone doit être saisie comme ceci : 0383317690

Lorsque j'affiche le MESSAGEBOX, voici ce qui s'affiche : 383317690

Mais lorsque je clique sur CRTL V pour coller le résultat dans un formulaire internet ou word ou excel ou même dans ce message, il s'affiche : 03 83 31 76 90, alors que j'aimerais qu'il s'affiche 0383817690

Auriez-vous une solution

[ONTAYG]

Bonjour,

Essayes sur l'évènement AfterUpdate de ta zone de texte d'utiliser la fonction replace pour remplacer les blancs par rien.

ONTAYG

[maname]

Bonjour


Je ne connais pas la formule REPLACE

Pouvez-vous m'en communiquer un exemple

[Thumb down]

Bonjour,
soit tu à la possibilité d'appliquer un format au control qui accueil la valeur, soit tu lui substitue la valeur via un fonction Format!

Code :

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

Format("03 83 31 76 90","0000000000")

[maname]

Bonjour

Je n'y arrive pas

Voici le code VBA qui enregistre le n° de téléphone qui est copié dans le presse-papier pour pouvoir le coller dans un formulaire internet

Private Sub btnCopierNumFixe_Click()
Me.TELFIXE.SetFocus
DoCmd.RunCommand acCmdCopy

Comment faire pour que le n° qui est en format 00 00 00 00 00, soit copié en format 0000000000, car le formulaire internet que j'utilise réclame que le n° de téléphone soit noté sans espaces

[Thumb down]

Bonjour,
J'ai pas compris pourquoi tu passe par le Presse Purée mais bon!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property
 
Private Sub btnCopierNumFixe_Click()
PressePapier = Format(Me.TELFIXE, "0000000000")

[maname]

A quel moment dois-je inclure le code

Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

Lorsque je clique sur le bouton que j'ai créé, c'est le code suivant qui s'ouvre

Private Sub btnCopierNumFixe_Click()
Me.TELFIXE.SetFocus
DoCmd.RunCommand acCmdCopy

[Thumb down]

Bonjour,
Si tu compares le code que tu as toi même posté tu devrais trouver !
Private Sub btnCopierNumFixe_Click()Faire un copier coller c'est dans tes cordes ?

[maname]

Bonjour

A quel moment et quel endroit dois-je inclure le code ci-dessous

Public Function ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Function
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

[maname]

En fait, pour faire plus simple :
- j'ai un champ téléphone en format texte
- je remplis ce champ avec des chiffres et sans espace : 0383840001
- je désire qu'il soit enregistré dans ma base client sans espace
- j'aimerai qu'il s'affiche avec des espaces dans mes formulaires : 03 83 84 00 01