Menu

Macro : Mise à jour d'un fichier et msg "Voulez-vous enreg ...." [Résolu/Fermé]

alainjjb 679 Messages postés jeudi 17 mai 2007Date d'inscription 4 février 2018 Dernière intervention - 16 oct. 2016 à 23:29 - Dernière réponse : alainjjb 679 Messages postés jeudi 17 mai 2007Date d'inscription 4 février 2018 Dernière intervention
- 17 oct. 2016 à 13:57
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
Afficher la suite 

6 réponses

Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 17 oct. 2016 à 10:45
0
Utile
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+
alainjjb 679 Messages postés jeudi 17 mai 2007Date d'inscription 4 février 2018 Dernière intervention - 17 oct. 2016 à 11:20
0
Utile
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
Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 17 oct. 2016 à 11:25
0
Utile
Avec l'année en A1 et le numéro d'ordre en B1,
Formule pour concaténation : =A1 & TEXTE(B1;"000")

A+
alainjjb 679 Messages postés jeudi 17 mai 2007Date d'inscription 4 février 2018 Dernière intervention - 17 oct. 2016 à 12:06
0
Utile
1
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
Gyrus 3341 Messages postés samedi 20 juillet 2013Date d'inscription 9 décembre 2016 Dernière intervention - 17 oct. 2016 à 13:32
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+
alainjjb 679 Messages postés jeudi 17 mai 2007Date d'inscription 4 février 2018 Dernière intervention - 17 oct. 2016 à 13:57
0
Utile
EXCELLENT ! ça fonctionne nickel
MERCI
Alain