Inclure valeur d'une cellule dans nom de fichier

Résolu/Fermé

Benoit_Lyon Messages postés 98 Date d'inscription vendredi 20 janvier 2017 Statut Membre Dernière intervention 13 décembre 2017 - Modifié par pijaku le 3/03/2017 à 11:22
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 3 mars 2017 à 11:30

Bonjour à tous,

Windows 10
Excel 2016

Allez je me lance.
J'essaie d'intégrer la valeur d'une cellule (contenant une date) au nom d'un fichier. Pour l'instant, j'ai
.....

Dim nom as string
nom=sheet("XX").Range.("C1").value

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" _
    & "Fichier de travail Equipe " & nom  & ".xlsm"

.....

Erreur 1004

Un petit coup de pouce,

Please...
Merci par avance
Benoit

A voir également:

Inclure valeur d'une cellule dans nom de fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Aller à la ligne dans une cellule excel - Guide
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel

4 réponses

Réponse 1 / 4

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
2 mars 2017 à 21:04

Bonsoir Benoit

Essaie comme ça :

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Fichier de travail Equipe " & nom & ".xlsm"

Réponse 2 / 4

Benoit_Lyon Messages postés 98 Date d'inscription vendredi 20 janvier 2017 Statut Membre Dernière intervention 13 décembre 2017 1
2 mars 2017 à 22:49

Bonsoir Thau Theme

même résultat

Réponse 3 / 4

yg_be Messages postés 22719 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 mars 2017 à 23:44

bonsoir,
pourquoi ne pas nous informer de la ligne où tu obtiens l’erreur?
as-tu compilé ton code?
et ainsi?

nom=Worksheets("XX").Range("C1").value

Réponse 4 / 4

Benoit_Lyon Messages postés 98 Date d'inscription vendredi 20 janvier 2017 Statut Membre Dernière intervention 13 décembre 2017 1
Modifié par pijaku le 3/03/2017 à 11:23

Re bonsoir,
j'ai trouvé une solution à mon problème, je ne déclarai pas correctement mes variables. Le nom du coup du fichier devient une variable et j'oubliai de le déclarer entièrement. Solution fonctionnelle.

Option Explicit
Sub Création_Export
'
'
Dim memPath As String 'Mémorise l'emplacement du fichier ouvert
Dim Path As String
Dim nom As String
    Path = ActiveWorkbook.Path & "\"
    nom = "Fichier de travail Equipe " & Format(Sheets("Récap Prévisites").Range("C1"), "dd-mm-yyyy") & ".xlsm"
'   
    ActiveWorkbook.Save                  'sauvegarde le classeur en cours


ActiveWorkbook.SaveAs Filename:=Path & nom  'Enregistre le fichier dans le dossier d'origine

End Sub

Merci pour votre aide
Benoit

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
3 mars 2017 à 11:30

Bonjour,

L'erreur ne vient pas de la déclaration des variables, rien à voir...
Ici, tu veux enregistrer sous un fichier avec une variable date.
Si cette date contient des "/" (i.e : 03/03/2017), le fichier ne peut pas être enregistré, le caractère "/" étant interdit par Windows pour les fichiers.
Les caractères suivants sont interdits :

< plus petit que
> plus grand que
: deux points
" double appostrophe
/ slash
\ antislash
| barre verticale
? point d'interrogation
* astérisque

En utilisant Format(xxxxxxxxxxxxx, "dd-mm-yyyy"), tu transformes les "/" en "-" et là, ça fonctionne.

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

comment donner les droits sur fichier partage

Trouver un nom avec une adresse

Nom d’adresse

Discussions similaires

Newsletters