Inclure valeur d'une cellule dans nom de fichier Résolu

Question

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

ThauTheme · Answer

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

Benoit_Lyon · Answer

Bonsoir Thau Theme
même résultat

yg_be · Answer

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

Benoit_Lyon · Answer

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

Inclure valeur d'une cellule dans nom de fichier

4 réponses

Votre réponse

Discussions similaires

Newsletters