Macro : Mise à jour d'un fichier et msg "Voulez-vous enreg ...."

Résolu/Fermé
Signaler
Messages postés
755
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
31 juillet 2021
-
Messages postés
755
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
31 juillet 2021
-
Bonjour,
je viens de faire une petite macro pour incrémenter un n° de reçu dans un fichier sur mon disque dur mais à chaque fois j'obtiens le même msg "Voulez-vous enreg. les modifs" du fichier en question. Et donc valider l'opération.
Que dois-je faire pour lui faire comprendre que c'est moi le demandeur et qu'il ne doit pas s'inquiéter ?
Petite question subsidiaire : Dans quel format doit être la cellule qui reçoit ce n° pour garder les zéros devant : 0005 et non 5 ?
Merci d'avance de votre aide
Alain

5 réponses

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543
Bonjour,

Question 1
Pour fermer et sauvegarder sans message : ActiveWorkbook.Close True
Pour fermer sans sauvegarder et sans message : ActiveWorkbook.Close False

Question 2
Format Texte

A+
Messages postés
755
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
31 juillet 2021
100
Bonjour Gyrus pour ta réponse,
Le problème 1 est effectivement résolu. Je n'ai plus de message. Merci
Le problème 2 demeure mais je n'ai probablement pas été suffisamment précis :
En fait j'ai un fichier Excel qui stocke le rang de n° de reçu (nombre de 3 chiffres : par exemple au début 000). La macro accède à ce fichier pour récupérer ce dernier n° de reçu attribué, fait + 1, enregistre ce nouveau rang puis concatène l'année avec ce rang obtenu pour obtenir le nouveau n° de reçu (par exemple au début 2016001). Mais moi j'obtiens, même en mettant le format texte : 20161. Il ne veut pas me garder les zéros non significatifs du rang.
Merci
Alain
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543
Avec l'année en A1 et le numéro d'ordre en B1,
Formule pour concaténation : =A1 & TEXTE(B1;"000")

A+
Messages postés
755
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
31 juillet 2021
100
J'ai un petit soucis car comme les données rang et année ne sont pas sur la même feuille j'ai appelé "Rang" le n° de rang que je récupère du fichier : Rang = Range("B1").Value
et Année l'année que je récupère sur la feuille "SUIVI_PARRAIN :
Année = Range("B4").Value
et la concaténation est :
Num_Reçu = Année & Rang
Et dès le Rang les zéros ont disparus
Merci
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543
Si je comprends bien, Année et Rang correspondent à des variables utilisées dans ta macro.
Année étant une variable de type Integer,
Num_Reçu étant une variable de type String, Il faut coder :
Num_Reçu = Cstr(Année) & Format(Rang,"000")

A+
Messages postés
755
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
31 juillet 2021
100
EXCELLENT ! ça fonctionne nickel
MERCI
Alain