Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Un cookie est un fichier texte, tu peux l'ouvrir via la commande du menu Fichier / Ouvrir et dans la liste déroulante type de fichier, tu sélectionnes : fichiers txt...
ou par macro :
Sub test() Dim Chemin As String, A As Long Dim Fichier As String, LesLignes As String Dim I As Long Chemin = "C:Documents and SettingsDenisCookies" Fichier = "" A = FreeFile Open Chemin & Fichier For Input As #A
Do While Not EOF(1) 'va boucler jusqu'à la fin du fichier Line Input #A, LesLignes I = I + 1 Cells(I, 1).Value = LesLignes
Loop Close End Sub
"Jean-Luc" a écrit dans le message de news: 45eaa3e9$0$27387$ Bonjour Est-il possible de récupérer le contenu d'un cookie par une commande VBA ? Merci de votre aide
Un cookie est un fichier texte, tu peux l'ouvrir via la commande du menu Fichier / Ouvrir et dans la
liste déroulante type de fichier, tu sélectionnes : fichiers txt...
ou par macro :
Sub test()
Dim Chemin As String, A As Long
Dim Fichier As String, LesLignes As String
Dim I As Long
Chemin = "C:Documents and SettingsDenisCookies"
Fichier = "denis@1071898.txt"
A = FreeFile
Open Chemin & Fichier For Input As #A
Do While Not EOF(1)
'va boucler jusqu'à la fin du fichier
Line Input #A, LesLignes
I = I + 1
Cells(I, 1).Value = LesLignes
Loop
Close
End Sub
"Jean-Luc" <jlgaillard@wanadoo.fr> a écrit dans le message de news:
45eaa3e9$0$27387$ba4acef3@news.orange.fr...
Bonjour
Est-il possible de récupérer le contenu d'un cookie par une commande VBA ?
Merci de votre aide
Un cookie est un fichier texte, tu peux l'ouvrir via la commande du menu Fichier / Ouvrir et dans la liste déroulante type de fichier, tu sélectionnes : fichiers txt...
ou par macro :
Sub test() Dim Chemin As String, A As Long Dim Fichier As String, LesLignes As String Dim I As Long Chemin = "C:Documents and SettingsDenisCookies" Fichier = "" A = FreeFile Open Chemin & Fichier For Input As #A
Do While Not EOF(1) 'va boucler jusqu'à la fin du fichier Line Input #A, LesLignes I = I + 1 Cells(I, 1).Value = LesLignes
Loop Close End Sub
"Jean-Luc" a écrit dans le message de news: 45eaa3e9$0$27387$ Bonjour Est-il possible de récupérer le contenu d'un cookie par une commande VBA ? Merci de votre aide