momo pancho
Messages postés29Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention14 juin 2007
-
25 mai 2007 à 14:49
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007
-
27 mai 2007 à 14:21
Bonjour, à toute et à tous
Je souhaite effectuer la sauvegarde par N° de semaine d’un classeur Excel dans un même dossier après une demande de confirmation par oui ou non dans une pop-up.
Mon problème : Je dois créer un nouveau classeur pour la Save à chaque confirmation par oui, et celui-ci est vide.
À la demande d’enregistrement si je confirme par NON, on me demande quand même d’enregistrer.
Après l’enregistrement une erreur (1004 définis par l’application ou par l’objet) apparaît dans visual basic.
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Private Sub Workbook_Open()
MsgBox "Ne pas oublier de sauvegarder dans le dossier save TN !"
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous enregistrer?" ' Définit le message.
Dans le même classeur je souhaite enregistrer dans un autre onglet le nombre de sélection d’un mot dans le menu déroulant de chaque cellule d’une colonne.
Ma formule =NB.SI('DETAIL DES ANOMALIES TN'!$D$29;"*SECURITE*") Cela fonctionne mai si je sup le mot dans le menu déroulant tous revient à zéro.
APPLICATION
,
AUDIT COMPLET
,
----
08 - AUDIT COMPLET
,
1
,
----
,
,
----
,
,
----
,
,
----
,
Mes connaissances dans ce langage sont très très limité.
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007 27 mai 2007 à 14:21
Private Sub Workbook_Open()
Response = MsgBox("Ne pas oublier de sauvegarder dans le dossier save TN !" & Chr$(13) & "Souhaitez-vous enregistrer?", vbYesNo + vbCritical + vbDefaultButton2, "pour enregistrer clic sur yes ", "DEMO.HLP", 1000)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
ActiveWorkbook.SaveAs "C:\user\P520267\modif audit\save TN\Semaine TN.xls"
ActiveWorkbook.Close True
Else
ActiveWorkbook.Close False
End If
End Sub
Je ne comprend pas ton problème mais si l'utilisateur ne souhaite pas enregistrer, tu mettre False quand il ferme le fichier xls d'origine. D'autre part, si il enregistre et que le nom du fichier cible est une constante, il va écraser le précédent, est le but? Enfin, il serait souhaitable de mettre ta macro dans un boutton car si tu la met à l'ouverture, l'utilisateur va se retrouver avec un msgbox et quand il aura fait son choix le fichier se fermera, est ce le but?
MAXIMO71
PS Si la réponse vous satistait
pensez à la valider