Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel POURQUOI ELLE LE FAIT 2 FOIS ??

POURQUOI ELLE LE FAIT 2 FOIS ??

6 réponses
Avatar
Sylvie LAURENT
Chers tous,

Une fois de plus la Sylvie vient à la pêche..... heureusement que vous êtes
super !!
voici mon code et je ne comprends pas pourquoi il fait 2 fois les commandes
suivantes:
il ouvre 2 x outlook express avec 2 x le même fichier joint, je renseigne
donc le destinataire et ferme la deuxième fenêtre en double après la
commande envoyer !!!! c'est pas terrible mais je ne vois pas ou il double
les commandes ??
Mon code est une privatesub sur la seule feuille du fichier, by the way que
faut t'il ajouter à ma macro pour mettre un texte dans l'email, ce texte
sera figé, et si je met l'email du destinataire en A1 comment automatiser le
A: ,,(Outlook express 6)
Merci d'avance pour votre bonté !!

Je vais finir par passer plus de temps avec vous qu'avec mes collègues !!
good !
bises

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I1") = 123 Then
ChDir "C:\Documents and Settings\Mes documents\STOCKAGE"
Range("I1").Select
Selection.ClearContents
ActiveWorkbook.SaveAs ([J1].Text & [I7].Text & ".xls")
Application.Dialogs(xlDialogSendMail).Show

Else
End If
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Kamel
Salut Sylvie,

En fait la macro Private Sub Worksheet_SelectionChange(ByVal Target As
Range) est una macro qui se lance automatiquement quand la selection du
range change. Donc en ecrivant 123 en I1 et en changeant la selection de
cellule dans ta feuille la macro est lancée.
Le problème vient du fait que tu reselectionnes "I1" durant l'execution de
la macro (Range("I1").Select), donc la macro se relance une deuxième fois
automatiquement ! D'où je pense l'ouverture de deux Outlook ...

Kamal


"Sylvie LAURENT" wrote in message
news:%
Chers tous,

Une fois de plus la Sylvie vient à la pêche..... heureusement que vous
êtes

super !!
voici mon code et je ne comprends pas pourquoi il fait 2 fois les
commandes

suivantes:
il ouvre 2 x outlook express avec 2 x le même fichier joint, je renseigne
donc le destinataire et ferme la deuxième fenêtre en double après la
commande envoyer !!!! c'est pas terrible mais je ne vois pas ou il double
les commandes ??
Mon code est une privatesub sur la seule feuille du fichier, by the way
que

faut t'il ajouter à ma macro pour mettre un texte dans l'email, ce texte
sera figé, et si je met l'email du destinataire en A1 comment automatiser
le

A: ,,(Outlook express 6)
Merci d'avance pour votre bonté !!

Je vais finir par passer plus de temps avec vous qu'avec mes collègues !!
good !
bises

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I1") = 123 Then
ChDir "C:Documents and SettingsMes documentsSTOCKAGE"
Range("I1").Select
Selection.ClearContents
ActiveWorkbook.SaveAs ([J1].Text & [I7].Text & ".xls")
Application.Dialogs(xlDialogSendMail).Show

Else
End If
End Sub





Avatar
FxM
Sylvie LAURENT wrote:
Chers tous,

Une fois de plus la Sylvie vient à la pêche..... heureusement que vous êtes
super !!


Bonjour Sylvie,

Tu as posé exactement la même question vendredi 02/07 à 17h17 (heure de
Paris). Deux réponses ont été apportées. Les as-tu testées et
qu'ont-elles donné ?

------ de votre serviteur le 02/07 à 19:25 ------
Bonsoir Sylvie,


Je vais finir par passer plus de temps avec vous qu'avec mes collègues !!


Avec des propos de ce genre, il va y avoir des amateurs :o))

Insère un stop et fais dérouler la macro en pas à pas par des pressions
sur la touche F8. Regarde à chaque étape ce qui se passe ... peut-être
que ta macro est appelée 2 fois :o)

@+
FxM


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I1") = 123 Then

Stop

chem = "C:Documents and SettingsMes documentsSTOCKAGE"
'ne devrait-il pas y avoir le nom d'utilisateur ????

' si tu *dois* sélectionner I1
Range("I1").Select
Selection.ClearContents
'sinon remplace les deux lignes par :
'Range("I1").ClearContents

ActiveWorkbook.SaveAs (chem&[J1].Text & [I7].Text & ".xls")
Application.Dialogs(xlDialogSendMail).Show

Else
'ben else quoi ? Si rien, vire-le !

End If
End Sub
--------------



------ de G.W le 02/07 à 19:34 ------
Bonsoir Sylvie

Range("I1").Select
Selection.ClearContents

la première ligne te provoque un 2ème déclenchement de la procédure
évenementielle alors que I1 est toujours à 123

Pour l'éviter :
Range("I1").ClearContents
et si tu veux resélectionner I1 , mets le
Range("I1").Select
en fin de procédure ( lorsque la valeur n'est plus à 123 )

Guy
----------------

@+
FxM

Avatar
Sylvie LAURENT
Bonjour,

j'ai bien posté le m^me message Vendredi, mais ce matin et à nouveau
maintenant, je ne le vois pas apparaître, j'ai donc pensé qu'il n'était
jamais arrivé sur le serveur, je ne vois pas mon message ni les 2 réponses,

Comment cela est ce possible, comment récupérer les 2 réponses ??

Merci de ta remarque qui met le doigt sur un problème de mon outlook ??

Bien à toi en attendant de pouvoir lire les réponses ??

Sylvie



"FxM" a écrit dans le message de
news:
Sylvie LAURENT wrote:
Chers tous,

Une fois de plus la Sylvie vient à la pêche..... heureusement que vous
êtes


super !!


Bonjour Sylvie,

Tu as posé exactement la même question vendredi 02/07 à 17h17 (heure de
Paris). Deux réponses ont été apportées. Les as-tu testées et
qu'ont-elles donné ?

------ de votre serviteur le 02/07 à 19:25 ------
Bonsoir Sylvie,


Je vais finir par passer plus de temps avec vous qu'avec mes collègues
!!



Avec des propos de ce genre, il va y avoir des amateurs :o))

Insère un stop et fais dérouler la macro en pas à pas par des pressions
sur la touche F8. Regarde à chaque étape ce qui se passe ... peut-être
que ta macro est appelée 2 fois :o)

@+
FxM


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I1") = 123 Then

Stop

chem = "C:Documents and SettingsMes documentsSTOCKAGE"
'ne devrait-il pas y avoir le nom d'utilisateur ????

' si tu *dois* sélectionner I1
Range("I1").Select
Selection.ClearContents
'sinon remplace les deux lignes par :
'Range("I1").ClearContents

ActiveWorkbook.SaveAs (chem&[J1].Text & [I7].Text & ".xls")
Application.Dialogs(xlDialogSendMail).Show

Else
'ben else quoi ? Si rien, vire-le !

End If
End Sub
--------------



------ de G.W le 02/07 à 19:34 ------
Bonsoir Sylvie

Range("I1").Select
Selection.ClearContents

la première ligne te provoque un 2ème déclenchement de la procédure
évenementielle alors que I1 est toujours à 123

Pour l'éviter :
Range("I1").ClearContents
et si tu veux resélectionner I1 , mets le
Range("I1").Select
en fin de procédure ( lorsque la valeur n'est plus à 123 )

Guy
----------------

@+
FxM



Avatar
twinley
par IE on voit tous les messages

à+
--
twinley



Bonjour,

j'ai bien posté le m^me message Vendredi, mais ce matin et à nouveau
maintenant, je ne le vois pas apparaître, j'ai donc pensé qu'il n'était
jamais arrivé sur le serveur, je ne vois pas mon message ni les 2 réponses,

Comment cela est ce possible, comment récupérer les 2 réponses ??

Merci de ta remarque qui met le doigt sur un problème de mon outlook ??

Bien à toi en attendant de pouvoir lire les réponses ??

Sylvie



"FxM" a écrit dans le message de
news:
Sylvie LAURENT wrote:
Chers tous,

Une fois de plus la Sylvie vient à la pêche..... heureusement que vous
êtes


super !!


Bonjour Sylvie,

Tu as posé exactement la même question vendredi 02/07 à 17h17 (heure de
Paris). Deux réponses ont été apportées. Les as-tu testées et
qu'ont-elles donné ?

------ de votre serviteur le 02/07 à 19:25 ------
Bonsoir Sylvie,


Je vais finir par passer plus de temps avec vous qu'avec mes collègues
!!



Avec des propos de ce genre, il va y avoir des amateurs :o))

Insère un stop et fais dérouler la macro en pas à pas par des pressions
sur la touche F8. Regarde à chaque étape ce qui se passe ... peut-être
que ta macro est appelée 2 fois :o)

@+
FxM


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I1") = 123 Then

Stop

chem = "C:Documents and SettingsMes documentsSTOCKAGE"
'ne devrait-il pas y avoir le nom d'utilisateur ????

' si tu *dois* sélectionner I1
Range("I1").Select
Selection.ClearContents
'sinon remplace les deux lignes par :
'Range("I1").ClearContents

ActiveWorkbook.SaveAs (chem&[J1].Text & [I7].Text & ".xls")
Application.Dialogs(xlDialogSendMail).Show

Else
'ben else quoi ? Si rien, vire-le !

End If
End Sub
--------------



------ de G.W le 02/07 à 19:34 ------
Bonsoir Sylvie

Range("I1").Select
Selection.ClearContents

la première ligne te provoque un 2ème déclenchement de la procédure
évenementielle alors que I1 est toujours à 123

Pour l'éviter :
Range("I1").ClearContents
et si tu veux resélectionner I1 , mets le
Range("I1").Select
en fin de procédure ( lorsque la valeur n'est plus à 123 )

Guy
----------------

@+
FxM








Avatar
FxM
re-

Sylvie LAURENT wrote:

Bonjour,

j'ai bien posté le m^me message Vendredi, mais ce matin et à nouveau
maintenant, je ne le vois pas apparaître, j'ai donc pensé qu'il n'était
jamais arrivé sur le serveur, je ne vois pas mon message ni les 2 réponses,
On dit Merci à qui ? Non, pas Philippe :o) Merci Outlook Express !


--- copie de la réponse de Jièl du 16/04/04 04:28:25 PST ---
.... à un problème similaire :


tu utilises OE, donc c'est "normal" ;-)
En effet, régulièrement, ce dernier perd les pédales et n'affiche plus
rien ou saute purement et simplement certains messages... Tu vois donc
des réponses a des questions qui n'existe pas pour toi (ou l'inverse)

Seule solution vraiment efficace au jour d'aujourd'hui : supprimer
l'abonnement, REBOOTER (trés important, sinon le pb revient
instantannément) et refaire l'abonnement.

Ce que je peux aussi conseiller ; régulièrement et assez souvent, dans
le menu Fichier, Dossier, Compacter tous les dossiers. Ca entretient le
fichier qui a tendance à foutre la zone "folders.dbx".

Sinon, tu as toujours la possibilité de passer à un bon lecteur de News
: ThunderBird par exemple ;-)))))))))))
http://frenchmozilla.sourceforge.net/thunderbird/

Pour info : MS devrait le livrer en plus de OE dans les prochaines SP de
Windows, en vertu du principe de concurrence
---- fin de copie ----

Comment cela est ce possible, comment récupérer les 2 réponses ??
j'avais l'impression de les avoir recopiées sous mon message précédent.

Sinon Google groups (tous les articles avec ton nom) :
http://www.google.fr/groups?ie=UTF-8&as_ugroup=*.fr.excel&as_uauthors=sylvie%20laurent&as_scoring=d&lr=&num0&hl=fr
Pour ne retenir que le fil du 02/07 :
http://www.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=ewlLkbEYEHA.3420%40TK2MSFTNGP10.phx.gbl&rnum=1&prev=/groups%3Fie%3DUTF-8%26as_ugroup%3D*.fr.excel%26as_uauthors%3Dsylvie%2520laurent%26as_scoring%3Dd%26lr%3D%26num%3D100%26hl%3Dfr

Merci de ta remarque qui met le doigt sur un problème de mon outlook ??

Bien à toi en attendant de pouvoir lire les réponses ??

Sylvie


Je pense, comme les autres éminents collègues, que le problème n'est pas
dans Outlook mais dans l'appel d'Outlook. Jette un zieux et dis-nous.

@+
FxM

Avatar
Philippe.R
Ceci dit, là, Sylvie, tu peux dire merci à François Xavier.
En fait, malgré sa grande timidité, il aime bien aussi ;o)))
--
Amicales Salutations

"FxM" a écrit dans le message de news:%
re-

Sylvie LAURENT wrote:

Bonjour,

j'ai bien posté le m^me message Vendredi, mais ce matin et à nouveau
maintenant, je ne le vois pas apparaître, j'ai donc pensé qu'il n'était
jamais arrivé sur le serveur, je ne vois pas mon message ni les 2 réponses,
On dit Merci à qui ? Non, pas Philippe :o) Merci Outlook Express !


--- copie de la réponse de Jièl du 16/04/04 04:28:25 PST ---
.... à un problème similaire :


tu utilises OE, donc c'est "normal" ;-)
En effet, régulièrement, ce dernier perd les pédales et n'affiche plus
rien ou saute purement et simplement certains messages... Tu vois donc
des réponses a des questions qui n'existe pas pour toi (ou l'inverse)

Seule solution vraiment efficace au jour d'aujourd'hui : supprimer
l'abonnement, REBOOTER (trés important, sinon le pb revient
instantannément) et refaire l'abonnement.

Ce que je peux aussi conseiller ; régulièrement et assez souvent, dans
le menu Fichier, Dossier, Compacter tous les dossiers. Ca entretient le
fichier qui a tendance à foutre la zone "folders.dbx".

Sinon, tu as toujours la possibilité de passer à un bon lecteur de News
: ThunderBird par exemple ;-)))))))))))
http://frenchmozilla.sourceforge.net/thunderbird/

Pour info : MS devrait le livrer en plus de OE dans les prochaines SP de
Windows, en vertu du principe de concurrence
---- fin de copie ----

Comment cela est ce possible, comment récupérer les 2 réponses ??
j'avais l'impression de les avoir recopiées sous mon message précédent.

Sinon Google groups (tous les articles avec ton nom) :

http://www.google.fr/groups?ie=UTF-8&as_ugroup=*.fr.excel&as_uauthors=sylvie%20laurent&as_scoring=d&lr=&num0&hl=fr

Pour ne retenir que le fil du 02/07 :

http://www.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=ewlLkbEYEHA.3420%40TK2MSFTNGP10.phx.gbl&rnum=1&prev=/groups%3Fie%3DUTF-8%26as_ugroup%3D*.fr.excel%26as_uauthors%3Dsylvie%2520laurent%26as_scoring%3Dd%26lr%3D%26num%3D100%26hl%3Dfr


Merci de ta remarque qui met le doigt sur un problème de mon outlook ??

Bien à toi en attendant de pouvoir lire les réponses ??

Sylvie


Je pense, comme les autres éminents collègues, que le problème n'est pas
dans Outlook mais dans l'appel d'Outlook. Jette un zieux et dis-nous.

@+
FxM