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
A voir également:
- EXCEL ***Boite de message Enregistrer sous non conforme***
- Audacity enregistrer son pc - Guide
- Liste déroulante excel - Guide
- Recuperer message whatsapp supprimé - Guide
- Boite gmail saturée - Guide
- Word et excel gratuit - Guide
3 réponses
Bonjour,
Sauf erreur de ma part, votre problème se situe là:
mettre:
Cdlt
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
Comme ceci
Cdlt
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
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é"):
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
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
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