comment effectuer la sauvegarde

Question

Bonjour, à toute et à tous Je souhaite 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. 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. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. Title = "pour enregistrer clic sur yes " ' Définit le titre. Help = "DEMO.HLP" ' Définit le fichier d'aide. Ctxt = 1000 ' Définit le contexte de ' la rubrique. ' Affiche le message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' L'utilisateur a choisi Oui. MyString = "Oui" ' Effectue une action. Else: Reponse = vbNon ' L'utilisateur a choisi Non. MyString = "Non" ' Effectue une action. End If Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Text Files (*.txt), *.txt") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If 'Sauvegarde la copie ActiveWorkbook.SaveAs "C:\user\P520267\modif audit\save TN\Semaine TN.xls" 'Ferme le classeur sauvegardé ActiveWorkbook.Close True End Sub 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é. Merci merci pour votre aide. A+

cs_Exploreur · Answer

Salut,

Evite de faire des doublons de question en changeant simplement la catégorie où tu developpe!!! Cela va être difficile de suivre maitenant les reponses si tu fais plusieurs posts sur le même sujet...

Voir Ici..

D'ailleurs maintenant...Tu developpes sous quoi ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

momo pancho · Answer

OK pas l'habitude


 


Merci

momo pancho · Answer

visual basic

Comment effectuer la sauvegarde

3 réponses

Votre réponse

Discussions similaires