Soyez le premier à donner votre avis sur cette source.
Vue 4 979 fois - Téléchargée 592 fois
Dim int_numéro_fichier As Long, i As Long, numero(100) As String, nbrtel As Boolean, numerotel As Boolean, nbr_numero As Long, chemin_du_fichier As String Private Sub copier_Click() 'On copie le texte dans le presse-papier : Clipboard.Clear 'On efface le presse-papier Clipboard.SetText (numtel.Caption) 'Puis on met le N° de téléphone End Sub Private Sub Form_Load() chemin_du_fichier ' = mettre ici le chemin du fichier .txt nbrtel = False 'On initialise quelques variables nbr_numero = 0 numerotel = False int_numéro_fichier = FreeFile 'On definit un numéro de fichier libre Open chemin_du_fichier For Input As #int_numéro_fichier 'Ouvre le fichier While Not EOF(int_numéro_fichier) 'EOF : indique qd on est a la fin d'un fichier Line Input #int_numéro_fichier, str_temporaire 'on lit chaque ligne et on le met ds str_temporaire If nbrtel = True Then 'Si juste avant il y avait "####" alors... nom.AddItem (str_temporaire) 'On ajoute le onm à la liste numerotel = True 'Et comme sa on reconnait que sa vient juste de passer nbr_numero = nbr_numero + 1 Else 'par contre si il n'y avait pas "####" juste avant... If numerotel = True Then 'mais qu'on venait d'ajouter le nom à la liste numero(nbr_numero) = str_temporaire 'On ajoute donc le N° de téléphone a la variable correspondante numerotel = False 'Et on fait sa comme sa on ne le fera pas 2 fois de suite! End If End If If str_temporaire = "####" Then nbrtel = True Else nbrtel = False 'Comme sa on peut reconnaitre si le caractère vient juste de passer Wend Close #int_numéro_fichier 'On ferme le fichier End Sub Private Sub Form_Unload(Cancel As Integer) 'On sauvegarde quand la feuille se ferme int_numéro_fichier = FreeFile 'on définit un numéro de fichier libre Open chemin_du_fichier For Output As #int_numéro_fichier 'On ouvre le fichier For i = 1 To nom.ListCount 'On fait la boucle en fonction du nbr d'objets dans la liste Print #int_numéro_fichier, "####" & vbCrLf & nom.List(i - 1) & vbCrLf & numero(i) 'Et on écrit dans le .txt Next Close #int_numéro_fichier 'On ferme le fichier End Sub Private Sub nom_Click() numtel.Caption = numero(nom.ListIndex + 1) 'On met le N° de T° etant le numéro correspondant au nom choisi End Sub Private Sub rajtel_Click() 'Quand on veut rajouter un N°... Do message_nom = InputBox("Entrez le nom de la personne.", "Nom") 'On fait une boucle pour que l'utilisater marque qq chose Loop Until message_nom <> "" Do message_numero = InputBox("Entrez le N° de téléphone de la personne", "N° tel") 'Pareil Loop Until message_numero <> "" nom.AddItem (message_nom) 'On inscrit les nom et les N° numero(nom.ListCount) = message_numero End Sub Private Sub supprimer_Click() 'Pour supprimer, on verifie que l'utilisateur a bien selectionné qq chose (sinon message d'erreur) et on efface If nom.Text <> "" Then message_ok = MsgBox("Voulez-vous vraiment supprimer le N°?", vbYesNo, "Etes-vous sûr?") If message_ok = vbYes Then nom.RemoveItem (nom.ListIndex) 'On demande une confirmation Else MsgBox "Veuillez selectionner l'element à supprimer.", vbOKOnly, "Erreur!" End If End Sub
Par contre en vba (en ce qui concerne la commande copier) j'ai utilisé
le code suivant et ça marche:
Private Sub copier_Click() 'On copie le texte dans le presse-papier :
Dim displayText As String
displayText = label.Caption
SetClipboardText (displayText)
MsgBox "Le texte est copié dans le presse-papiers."
End Sub
Mais quand je vérifie sur mon text.txt si les numero de tel et noms sont saisis, il n'ya rien de copié
T'as une astuce pour ce pblm?
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.