EXCEL ***Boite de message Enregistrer sous non conforme***
Résolu
faisdlair
-
faisdlair Messages postés 171 Date d'inscription Statut Membre Dernière intervention -
faisdlair Messages postés 171 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je viens de decouvrir ce forum
Voila , j'ai une macro qui a comme fonction d'enregistrer mon classeur selon la valeur de 2 cellules
Ce que ca me donne est "19 JANVIER 2018 (17-5501) si je sauve aujourd'hui
Normalement cette macro devrait , si le fichier n'existe pas, le creer tout simplement mais ce que j'ai toujours comme avertissement, c'est que ce fichier existe deja
Ce message de remplacer ne devrait pas y etre si ce classeur est nouveau
Dans la fenetre qui apparait, il y a le bouton OK et Annuler
La commande Annuler ne change rien, le classeur s'enregistre quand meme
A la cellule AC3, j'ai aussi une macro qui me donne la date du jour en V3
Je pense que celle-ci cause le probleme
J'ai besoin d'aide
merci
voici le classeur
https://www.cjoint.com/c/HAtqgy8Sio4
Je viens de decouvrir ce forum
Voila , j'ai une macro qui a comme fonction d'enregistrer mon classeur selon la valeur de 2 cellules
Ce que ca me donne est "19 JANVIER 2018 (17-5501) si je sauve aujourd'hui
Normalement cette macro devrait , si le fichier n'existe pas, le creer tout simplement mais ce que j'ai toujours comme avertissement, c'est que ce fichier existe deja
Ce message de remplacer ne devrait pas y etre si ce classeur est nouveau
Dans la fenetre qui apparait, il y a le bouton OK et Annuler
La commande Annuler ne change rien, le classeur s'enregistre quand meme
A la cellule AC3, j'ai aussi une macro qui me donne la date du jour en V3
Je pense que celle-ci cause le probleme
J'ai besoin d'aide
merci
voici le classeur
https://www.cjoint.com/c/HAtqgy8Sio4
3 réponses
-
Bonjour,
Sauf erreur de ma part, votre problème se situe là:Do While Len(nomfichier) > 0 If nomfichier = ThisWorkbook.Name Then flag = 1 End If nomfichier = Dir Loop
mettre:Do While Len(nomfichier) > 0 If nomfichier = Nom Then flag = 1 End If nomfichier = Dir Loop
Cdlt-
Merci beaucoup pour le suivi
Une partie du probleme est réglé
Le classeur est enregistré dans le dossier source comme il devrait l'etre
Mais lorsque j'essai une deuxieme fois de le sauvegarder, je devrait avoir cette boite de message qui me dit que ce classeur existe deja, ce qui n'est pas le cas
Martin
-
-
Comme ceci
Do While Len(nomfichier) > 0 If nomfichier = nom1C Then flag = 1 If flag = 1 Then rep = InputBox("" & nom1C & " Existe Déjà." & Chr(13) & Chr(13) & "Changez Pour :", nom1C, nom1C) Exit Sub End If End If nomfichier = Dir Loop
Cdlt-
Merci Beaucoup pour le retour
meme résultat
Le classeur est enregistré dans le dossier source comme il devrait l'etre
Mais lorsque j'essai une deuxieme fois de le sauvegarder, je devrait avoir cette boite de message qui me dit que ce classeur existe deja, ce qui n'est pas le cas
AS TU ESSAYÉ LE CLASSEUR CHEZ TOI pour voir si tu as le meme résultat ?
merci
Martin -
Oui, je l'ai testé plusieurs fois avec des dates différentes, et ça fonctionne parfaitement bien.
A chaque premier enregistrement, le classeur est sauvegardé avec le nom de la feuille exemple: "21 JANVIER 2018 (17-5501).xlsm", puis aux tentatives suivantes, j'ai bien une boîte de dialogue qui s'ouvre pour dire que le classeur existe déjà, A ce propos un simple message était suffisant plutôt qu'une boîte de dialogue.
Autre petit problème détecté, quand on change de date, il y a un message d'erreur qui bloque sur la macro "Private Sub Worksheet_Change(ByVal Target As Range)", le format de date(le tiret) ne lui convient pas. Je vous conseille de la rempacer par celle-ci qui ne génère pas d'erreur(Remplacement du tiret par le tiret bas "souligné"):Private Sub Worksheet_Change(ByVal Target As Range) 'MAcro Dan le 08/12/2010 If Not Intersect(Target, Range("V3")) Is Nothing Then ActiveSheet.Name = Format(Target, "dd_mm_yyyy") End If End Sub
Pour le reste , je ne comprends pas, puisque tout fonctionne bien.
Voici quand même le fichier, au cas ou il y aurait des différences avec le votre.
https://mon-partage.fr/f/PFFb4N3U/
Cdlt
-
-
Je viens d'essayer ton fichier et ca fonctionne
J'ai du faire une erreur en modifiant le code
Je te remercie beaucoup
Martin
