Inclure valeur d'une cellule dans nom de fichier

Résolu
Benoit_Lyon Messages postés 98 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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:

4 réponses

Réponse 1 / 4
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonsoir Benoit

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

0
Réponse 2 / 4
Benoit_Lyon Messages postés 98 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonsoir Thau Theme

même résultat
0
Réponse 3 / 4
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 583
 
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
0
Réponse 4 / 4
Benoit_Lyon Messages postés 98 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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.
0

Discussions similaires

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

9 réponses