XL 2013 Enregistrer dans un dossier

[maval]

Bonjour

Je suis à la recherche d'un code VBA pour enregistrer ma feuille dans un dossier nommé Tarot Orval
avec une date dans C2
Je joint mon fichier
Je vous remercie d'avance
Max

 

[Jacky67]

Bonjour

Je suis à la recherche d'un code VBA pour enregistrer ma feuille dans un dossier nommé Tarot Orval
avec une date dans C2
Je joint mon fichier
Je vous remercie d'avance
Max

Bonjour,
Quel est le chemin complet de "Tarot Orval"?
C:\Tarot Orval
D:\Tarot Orval
X:\zzzz\Tarot Orval
Ou ThisWorkbook.Path le chemin du classeur maitre
???

 

[maval]

C:\Users\Biloute\Desktop

 

[Eric C]

Bonjour le forum
Bonjour maval, bonjour Jacky

Jacky a raison dans ses propos. En plus, tu es un ancien sur le site pour le savoir.
A essayer . Bonne fin de journée à toutes & à tous.
@+ Eric c

@maval : j'ai envoyé donc tu remplaces le chemin dans le code.

 

[maval]

Re
Je te remercie un petit problème pourquoi mon fichier ce nomme
tarot21-févrer-2022 est-possible que j'ai uniquement la date 21-février-2022
je te renvoie le code
et merci beaucoup

Sub Rectangle1_Cliquer()
    Dim extension As String
    Dim chemin As String
    Dim nomfichier As String

    extension = ".xlsm"
    chemin = "C:\Users\Biloute\Desktop\tarot\orval"
     nomfichier = ['Feuil1'!c2].Text & extension

    With ActiveWorkbook
Application.DisplayAlerts = False
         .SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     End With
Application.DisplayAlerts = True
End Sub

Mercii

 

[Eric C]

Re le fil

@ maval : ton dossier de destination c'est Tarot Orval ou Dossier tarot et sous dossier orval ?
Dans ton chemin, il manque un anti-slash après orval ???
@+ Eric c

 

[maval]

Mon dossier de destination c'est Tarot Orval et sa beug sur la ligne
.SaveAs Filename:=chemin & nomfichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Merci

 

[Eric C]

Dans ton post #5, tu as mis : "C:\Users\Biloute\Desktop\tarot\orval"

Quand est-il exactement car ainsi cela ne marche pas ...

 

[maval]

sur proprieter de la fenêtre de du dossier sa me donne ceci C:\Users\Biloute\Desktop Tarot Orval

 

[Eric C]

On récapitule doucement et sans précipitation :

extension = ".xlsm"
    chemin = "C:\Users\Biloute\Desktop\Tarot Orval\"       <==  Que tu auras créé manuellement
     nomfichier = ['Feuil1'!c2].Text & extension

On modifie le Format de la cellule C2 en format Date - et l'on choisi => XX-Février-XXXX car les slashs ne sont pas reconnus.
Lorsque tu appuieras sur ton "bouton", le fichier nommé 21-Févr.-2022 se créera dans ton dossier.
@+ Eric c

 

[maval]

Bonjour Eric
Je te remercie et te souhaite une bonne journée