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

Résolu
alainjjb Messages postés 788 Date d'inscription   Statut Membre Dernière intervention   -  
alainjjb Messages postés 788 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

5 réponses

Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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+
0
alainjjb Messages postés 788 Date d'inscription   Statut Membre Dernière intervention   110
 
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
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Avec l'année en A1 et le numéro d'ordre en B1,
Formule pour concaténation : =A1 & TEXTE(B1;"000")

A+
0
alainjjb Messages postés 788 Date d'inscription   Statut Membre Dernière intervention   110
 
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
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
alainjjb Messages postés 788 Date d'inscription   Statut Membre Dernière intervention   110
 
EXCELLENT ! ça fonctionne nickel
MERCI
Alain
0