Et bien non cela ne fonctionne pas .. Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
"Thierry (ze Titi)" wrote in message news:
Bonsoir Isa(belle) !
Je teste cet envoi ayant l'impossible d'envoyer des messages depuis plusieurs jours via Thunderbird
Si envoi avec succès, je souhaite à tous une bonne et heureuse année 2008
Isabelle ex Isa ;-)
Envoi réussi ! Une bonne et heureuse année à toi également !
-- Cordialement, Thierry
tout pour Access : http://www.mpfa.info
Eric
Bonjour Bruno,
Puisque tu lis ce fil, alors je te redonne la solution proposée par Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(NomFichier) taille = f.Size Set f = Nothing Set fs = Nothing TailleFichier = taille
End Function
Ensuite x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas .. Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Bruno,
Puisque tu lis ce fil, alors je te redonne la solution proposée par
Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long
Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(NomFichier)
taille = f.Size
Set f = Nothing
Set fs = Nothing
TailleFichier = taille
End Function
Ensuite
x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi
et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas ..
Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Puisque tu lis ce fil, alors je te redonne la solution proposée par Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(NomFichier) taille = f.Size Set f = Nothing Set fs = Nothing TailleFichier = taille
End Function
Ensuite x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas .. Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bruno Frisque
Incroyable !! Mais il n'y a qu'un seul Post le 24/12 sur ce Forum !! Comment est-ce possible ?? (le pb doit être ici ?)
En tout cas, immense merci pour la solution !! Merci à toi et à Michel_D !
à +
"Eric" wrote in message news:
Bonjour Bruno,
Puisque tu lis ce fil, alors je te redonne la solution proposée par Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(NomFichier) taille = f.Size Set f = Nothing Set fs = Nothing TailleFichier = taille
End Function
Ensuite x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas .. Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Incroyable !!
Mais il n'y a qu'un seul Post le 24/12 sur ce Forum !!
Comment est-ce possible ??
(le pb doit être ici ?)
En tout cas, immense merci pour la solution !!
Merci à toi et à Michel_D !
à +
"Eric" <f_framZZ@hotmail.com> wrote in message
news:uEEVKC6SIHA.280@TK2MSFTNGP03.phx.gbl...
Bonjour Bruno,
Puisque tu lis ce fil, alors je te redonne la solution proposée par
Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long
Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(NomFichier)
taille = f.Size
Set f = Nothing
Set fs = Nothing
TailleFichier = taille
End Function
Ensuite
x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi
et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas ..
Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Incroyable !! Mais il n'y a qu'un seul Post le 24/12 sur ce Forum !! Comment est-ce possible ?? (le pb doit être ici ?)
En tout cas, immense merci pour la solution !! Merci à toi et à Michel_D !
à +
"Eric" wrote in message news:
Bonjour Bruno,
Puisque tu lis ce fil, alors je te redonne la solution proposée par Michel_D le 24/12:
Bonjour,
Voici une petite function
Function TailleFichier(NomFichier) As Long Dim fs, f, taille As Long
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(NomFichier) taille = f.Size Set f = Nothing Set fs = Nothing TailleFichier = taille
End Function
Ensuite x = TailleFichier("c:dataHaE1.jpg")
Bon reveillon à toi aussi et surtout j'espère que tu pourras lire ce msg.
Et bien non cela ne fonctionne pas .. Je tente d'envoyer 1 msg depuis le 24/12 ....
Bon réveillon
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr