Nommer automatiquement un fichier à l'enregistrement
Résolu
BamS_59
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
BamS_59 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
BamS_59 Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
Bonsoir la communauté,
Je rencontre une difficulté (oh quelle surprise ! lol).
Je me suis inspiré de macro disponibles sur le forum. et ça fonctionne... presque.
Le contexte.
Nous sommes plusieurs utilisateurs à utiliser un formulaire. Pour permettre un suivi des formulaires nous demandons de respecter une façon précise pour nommer le formulaire complété au moment de l'enregistrement. Plusieurs utilisateurs = plusieurs sources d'erreurs.
La finalité recherchée est d'automatiser cette partie qui est source d'erreur en respectant le format suivant :
Formulaire de demande "lieu" "aaaa mmjjhhmmss".
La macro que j'ai trouvé ne fonctionne pas avec le format "aaaa mmjjhhmmss" mais avec le format 0,0000000000" qui est difficile à lire et à travailler.
Voici le message d'erreur lorsque je lance la macro :
Erreur d'exécution '1004':
J'aurais besoin d'aide pour comprendre ce que me demande Excel.
Au plaisir de vous lire.
Je rencontre une difficulté (oh quelle surprise ! lol).
Je me suis inspiré de macro disponibles sur le forum. et ça fonctionne... presque.
Le contexte.
Nous sommes plusieurs utilisateurs à utiliser un formulaire. Pour permettre un suivi des formulaires nous demandons de respecter une façon précise pour nommer le formulaire complété au moment de l'enregistrement. Plusieurs utilisateurs = plusieurs sources d'erreurs.
La finalité recherchée est d'automatiser cette partie qui est source d'erreur en respectant le format suivant :
Formulaire de demande "lieu" "aaaa mmjjhhmmss".
La macro que j'ai trouvé ne fonctionne pas avec le format "aaaa mmjjhhmmss" mais avec le format 0,0000000000" qui est difficile à lire et à travailler.
Voici le message d'erreur lorsque je lance la macro :
Erreur d'exécution '1004':
J'aurais besoin d'aide pour comprendre ce que me demande Excel.
Au plaisir de vous lire.
A voir également:
- Nommer automatiquement un fichier à l'enregistrement
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
1 réponse
Bonsoir
Sans connaître ton fichier, impossible de savoir ce qui provoque le code d'erreur
Si tu veux communiquer ton fichier il faut le poster sur cjoint.com, faire créer un lien, le copier et revenir le coller ici dans un prochain message
En attendant essaie une macro de ce style qui devrait fonctionner à ta convenance :
Cdlmnt
Via
Sans connaître ton fichier, impossible de savoir ce qui provoque le code d'erreur
Si tu veux communiquer ton fichier il faut le poster sur cjoint.com, faire créer un lien, le copier et revenir le coller ici dans un prochain message
En attendant essaie une macro de ce style qui devrait fonctionner à ta convenance :
Sub enregistrer()
Chemin = "C:\Users\user\Desktop\" 'à remplacer par le chemin réel
lieu = "TRIFOUILLY" ' ou lieu=sheets("Feuil1").range("A2") par exemple pour récupérer le nom dans une cellule d'une feuille
moment = Format(Now, "yyyy mmdd hhmmss")
NomFichier = "Formulaire de demande " & lieu & " " & moment & ".xlsx"
ThisWorkbook.SaveAs Chemin & NomFichier
End Sub
Cdlmnt
Via
Et ben respect, car t'as mis dans le mille alors que tu ne connaissais pas mon fichier.
J'ai repris ta ligne 4 de ta macro moment =... que j'ai inséré dans ma macro puis ajouté & moment dans ma ligne NomFichier.
Je me suis même permis une petite folie en ajoutant " n° " lol.
Merci mille fois. je n'ai plus le message d'erreur, ça fonctionne nickel !
Je vais clore cette discussion et en démarrer une nouvelle pour transformer le fichier en PDF lors de l'enregistrement. Je n'en dis pas plus je ne voudrais pas spoiler. lol.
PS : Merci pour le tuyau cjoint.com, ce sera plus pratique pour accompagner mes longs discours d'explications ;-)