Bonjour à tous ;
Voilà j’ai deux VBA à l’ouverture de mon fichier mais apparemment VBA,
n'aime pas !
Quel solution possible pour ce problème !
Private Sub Workbook_Open()
Open "C:\Utilisateurs\usageTeste_3.log" For Append As 1
Print #1, Application.UserName, Now
Close #1
End Sub
________________________________________
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en
cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en
page", 48, "MISE EN GARDE")
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48,
"FORMULE DE POLITESSE")
End Sub
Salut; aurais-tu un début de réponse pour me guider dans la construction du code
Il faut que tu arrives, soit à tout gérer dans la même procédure du Workbook_Open, soit à répartir tes procédures sur des événements différents.
ou bien que l'évènement "open" lance deux procédures placées dans un module.
Bonjour,
.... ce qui est exactement la même chose que l'hypothèse 1
-- François L
Francois L
Salut; aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en page", 48, "MISE EN GARDE") ' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48, "FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1 Print #1, Application.UserName, Now
End Sub
Non testé
-- François L
Salut;
aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en
cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en
page", 48, "MISE EN GARDE")
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48,
"FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1
Print #1, Application.UserName, Now
Salut; aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en page", 48, "MISE EN GARDE") ' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48, "FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1 Print #1, Application.UserName, Now
End Sub
Non testé
-- François L
Tibert
Ok J'ai réussi à faire fonctionner tout sa ! en mettant les code à suivre
Salut; aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en page", 48, "MISE EN GARDE") ' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48, "FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1 Print #1, Application.UserName, Now
End Sub
Non testé
-- François L
Ok J'ai réussi à faire fonctionner tout sa ! en mettant les code à suivre
Salut;
aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en
cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en
page", 48, "MISE EN GARDE")
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er
Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48,
"FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1
Print #1, Application.UserName, Now
Ok J'ai réussi à faire fonctionner tout sa ! en mettant les code à suivre
Salut; aurais-tu un début de réponse pour me guider dans la construction du code
Re,
Tout regrouper dans une même macro ?
Private Sub Workbook_Open()
' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Penser à [ Masquer totaux ] avant d'imprimer les semaines en cliquant sur la macro haut de page" & Chr$(10) & "Pour une meilleur mise en page", 48, "MISE EN GARDE") ' Icône : Exclamation, bouton(s) : OK, bouton par défaut : 1er Rep = MsgBox("Amicalement ! ! ! " & Chr$(10) & "A bientôt. . . ", 48, "FORMULE DE POLITESSE")
Open "C:UtilisateursusageTeste_3.log" For Append As 1 Print #1, Application.UserName, Now
End Sub
Non testé
-- François L
DarthMac
Francois L a exposé le 22/10/2006 :
Il faut que tu arrives, soit à tout gérer dans la même procédure du Workbook_Open, soit à répartir tes procédures sur des événements différents.
ou bien que l'évènement "open" lance deux procédures placées dans un module.
Bonjour,
... ce qui est exactement la même chose que l'hypothèse 1
hello,
on est bien d'accords, je reformulais simplement :)
mac
Francois L a exposé le 22/10/2006 :
Il faut que tu arrives, soit à tout gérer dans la même procédure du
Workbook_Open, soit à répartir tes procédures sur des événements
différents.
ou bien que l'évènement "open" lance deux procédures placées dans un
module.
Bonjour,
... ce qui est exactement la même chose que l'hypothèse 1
hello,
on est bien d'accords, je reformulais simplement :)
