OVH Cloud OVH Cloud

Macro Excel vers Outlook

23 réponses
Avatar
jaihna
Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout je n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me permet de créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est calculée dans ma cellule. Ma question est : Est-il possible d'indiquer dans la macro de ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.

10 réponses

1 2 3
Avatar
Jacky
Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.
Avatar
Jacquouille
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien
dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message de
news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout
je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me
permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est
calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la
macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.
Avatar
Jacky
Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien, nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de calcul et que celui-ci est un nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.



Avatar
Jacquouille
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien,
nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de
calcul et que celui-ci est un nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien
dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message
de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout
je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me
permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est
calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la
macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.



Avatar
Jacky
Re...
Mais nooooonnnn !!!
Les dates ont toujours été un problème dans Excel, enfin, pour moi et bien d'autres.
La façon pour avoir le moins d'erreur possible (cela n'engage que moi) est (dans une feuille, pour l'exemple
ci-dessous) d'utiliser un des contrôles (calendrier) dans XL.
http://cjoint.com/?BJFs2CAffiN
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50915f65$0$3104$
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien, nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de calcul et que celui-ci est un
nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.






Avatar
Jacquouille
Tu devrais être prof, toi, et ne pas perdre ton temps ici .... -))



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6roqp$p0b$

Re...
Mais nooooonnnn !!!
Les dates ont toujours été un problème dans Excel, enfin, pour moi et bien
d'autres.
La façon pour avoir le moins d'erreur possible (cela n'engage que moi) est
(dans une feuille, pour l'exemple
ci-dessous) d'utiliser un des contrôles (calendrier) dans XL.
http://cjoint.com/?BJFs2CAffiN
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50915f65$0$3104$
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien,
nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de
calcul et que celui-ci est un nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien
dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message
de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de
partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me
permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est
calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la
macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.






Avatar
Albert
Bonjour

Dans le fichier exemple : cjoint.com/?BJFs2CAffiN, à l'ouverture du fichier,
j'ai l'erreur suivante : Erreur de compilation--Projet ou bibliothèque
introuvable.
Excel 2010

Ligne en jaune: Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Et ([a1]) en bleu : If Not IsDate([a1]) And [a1] <> "" Then MsgBox "J'en
veux pas"

Est possible de corriger l'erreur de mon EXCEL

Merci de votre attention

Albert

"Jacky" a écrit dans le message de
news:k6roqp$p0b$
Re...
Mais nooooonnnn !!!
Les dates ont toujours été un problème dans Excel, enfin, pour moi et bien
d'autres.
La façon pour avoir le moins d'erreur possible (cela n'engage que moi) est
(dans une feuille, pour l'exemple ci-dessous) d'utiliser un des contrôles
(calendrier) dans XL.
http://cjoint.com/?BJFs2CAffiN
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50915f65$0$3104$
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien,
nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de
calcul et que celui-ci est un nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a
rien dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le
message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de
partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me
permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est
calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la
macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.










Avatar
Jacquouille
Bonsoir
Vraiment par curiosité, essaie un peu de supprimer la deuxième condition (
And [a1] <> "" )
Rien que pour voir ce que cela donne.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Albert" a écrit dans le message de groupe de discussion :
k6ru5p$7ia$

Bonjour

Dans le fichier exemple : cjoint.com/?BJFs2CAffiN, à l'ouverture du fichier,
j'ai l'erreur suivante : Erreur de compilation--Projet ou bibliothèque
introuvable.
Excel 2010

Ligne en jaune: Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Et ([a1]) en bleu : If Not IsDate([a1]) And [a1] <> "" Then MsgBox "J'en
veux pas"

Est possible de corriger l'erreur de mon EXCEL

Merci de votre attention

Albert

"Jacky" a écrit dans le message de
news:k6roqp$p0b$
Re...
Mais nooooonnnn !!!
Les dates ont toujours été un problème dans Excel, enfin, pour moi et bien
d'autres.
La façon pour avoir le moins d'erreur possible (cela n'engage que moi) est
(dans une feuille, pour l'exemple ci-dessous) d'utiliser un des contrôles
(calendrier) dans XL.
http://cjoint.com/?BJFs2CAffiN
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50915f65$0$3104$
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien,
nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de
calcul et que celui-ci est un nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a
rien dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le
message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de
partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me
permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est
calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la
macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.










Avatar
Jacky
Re...

Je n'ai pas xl 2010
Mais essaye ceci
Dans l'éditeur visual basic (Alt + F11)
Ensuite
barre des menus
outils / références /==> et tu décoches les références qui sont marquées : Manquantes




--
Salutations
JJ


"Albert" a écrit dans le message de news: k6ru5p$7ia$
Bonjour

Dans le fichier exemple : cjoint.com/?BJFs2CAffiN, à l'ouverture du fichier, j'ai l'erreur suivante : Erreur
de compilation--Projet ou bibliothèque introuvable.
Excel 2010

Ligne en jaune: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Et ([a1]) en bleu : If Not IsDate([a1]) And [a1] <> "" Then MsgBox "J'en veux pas"

Est possible de corriger l'erreur de mon EXCEL

Merci de votre attention

Albert

"Jacky" a écrit dans le message de news:k6roqp$p0b$
Re...
Mais nooooonnnn !!!
Les dates ont toujours été un problème dans Excel, enfin, pour moi et bien d'autres.
La façon pour avoir le moins d'erreur possible (cela n'engage que moi) est (dans une feuille, pour
l'exemple ci-dessous) d'utiliser un des contrôles (calendrier) dans XL.
http://cjoint.com/?BJFs2CAffiN
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50915f65$0$3104$
C'est que tu as encore raison.
Mais, qu'est-ce que je deviens con, ces moments-ci. (-

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k6rl6s$f82$

Hello Jacques

...si la cellule est formatée "Date" et qu'il n'y a rien


Quand il y a rien......c'est rien.. rien au format date ou autres= rien, nothing, nichts, nix
Tu sais bien que le format n'est que la partie visuelle d'un résultat de calcul et que celui-ci est un
nombre
Va-t-il quand même considérer cela comme une date?


Tu testes....là, quand même !
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsDate([a1]) Then MsgBox "J'en veux pas"
End Sub
'-------
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
50913624$0$3109$
Bonjour Jacky
Dans le second cas, si la cellule est formatée "Date" et qu'il n'y a rien dedans, VBA va réagir comment?
Va-t-il quand même considérer cela comme une date?
Merci et bon rallye demain.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : k6r0ng$m7f$

Bonjour,

Cela pourrait-être en début de macro
La cellule avec la date en A1
'---------
If [a1]="" then exit sub
'---------
Ou tout autre condition sur la cellule date
'---------
If Not IsDate([a1]) Then exit sub
'---------
--
Salutations
JJ


"jaihna" a écrit dans le message de news:

Bonjour à tous !

Je me permet de poster ma question car ayant farfouillé le net de partout je
n'ai pas trouvé de réponse à ma question.

Donc voici le topo, j'ai créé une macro sur mon classeur Excel qui me permet de
créer une tâche (ou plusieurs) vers mon Outlook avec une date qui est calculée
dans ma cellule. Ma question est : Est-il possible d'indiquer dans la macro de
ne pas générer la tâche sur Outlook si la date n'est pas renseignée ?

Merci pour vos aides.













Avatar
Albert
Bonsoir Jacky et Jacquouille

C'est fait -- ( And [a1] <> "" ) est enlevé.
dans le menu OUTILS Références est grisé ainsi que contrôle supplémentaires
Si on arrête le Déboggage Références devient accessible et Calendar est
marqu manquante
Quand j'essaie de décocher j'ai le message suivant:
Impossible de supprimer le contrôle ou la référence ; en cours
d'utilisation.

ALBERT

Bonsoir
Vraiment par curiosité, essaie un peu de supprimer la deuxième condition (
And [a1] <> "" )
Rien que pour voir ce que cela donne.


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Albert" a écrit dans le message de groupe de discussion :
k6ru5p$7ia$

Bonjour

Dans le fichier exemple : cjoint.com/?BJFs2CAffiN, à l'ouverture du fichier,
j'ai l'erreur suivante : Erreur de compilation--Projet ou bibliothèque
introuvable.
Excel 2010

Ligne en jaune: Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Et ([a1]) en bleu : If Not IsDate([a1]) And [a1] <> "" Then MsgBox "J'en
veux pas"

Est possible de corriger l'erreur de mon EXCEL

Merci de votre attention

Albert
1 2 3