Enregistrer dans le même classeur avec valeur d'une cellule Résolu/Fermé

Question

Bonjour, 

je souhaite enregistrer un classeur ouvert sous un nouveau nom qui sera fait du nom de l'ancien classeur (qui s'appelle ici "CLASSEUR') et du Numéro se situant dans la cellule F28 de la feuille SOMMAIRE du classeur initial
je souhaite que l'enregistrement se fasse dans le même dossier que le classeur initial (sans avoir à en donner le chemin) et souhaite  que ce nouveau classeur nommé reste ouvert.

Dans un module VBA, je fais ceci, mais le nouveau classeur est enregistré dans le dossier Documents de mon ordi. Comment corriger ? Merci de votre aide

Sub EnregistrementNouveauClasseur()
Complete_File_name = Path_name & "\" & File_na
Dim chemin As String
ActiveWorkbook.SaveAs Filename:="CLASSEUR N°" & Worksheets("SOMMAIRE").[F28].Value
End Sub

M-12 · Answer

Bonjour,

Utilise plutôt ThisWorkbook.path pour le même chemin

DanGg · Answer

Pour utiliser ThisWorkbook.Path, j'ai corrigé ansi


Sub EnregistrementNouveauClasseur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "CLASSEUR N°" & Sheets("SOMMAIRE").Range("F28") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

Cela fonctionne - et même encore mieux avec xlsm en extension pour que le classeur nouvellement enregistré accepte à son tour de reproduire u la macro si besoin, avec une valeur nouvelle de la cellule F28

Résolu ! Merci à toi.

Enregistrer dans le même classeur avec valeur d'une cellule

2 réponses

Discussions similaires