XL 2019 Création nouveau fichier

Fred0o

XLDnaute Barbatruc

• 23 Mars 2021

• #2

Bonjour cubitus53

Une proposition a adapter a ton fichier et a tester.
La variable NomFichier correspond au nom que tu veux donner au fichier de sauvegarde

VB:

Sub Sauvegarder()
    Chemin = ActiveWorkbook.Path
    .
    .
    .
    ActiveWorkbook.SaveAs Filename:=Chemin & "\" & NomFichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

Vote positif 0 Vote négatif

C

cubitus53

XLDnaute Nouveau

• 23 Mars 2021

• #3

Bonjour,

merci pour ta réponse,
pour le chemin du répertoire ça à l'air bon par contre la création du fichier ne fonctionne pas.
J'ai un message d'erreur qui me dit:
"les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro:
. Projet VB

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mars 2021

• #4

Bonjour @cubitus53, Fred0o,

c'est sans doute car ton fichier a l'extension .xlsx ; tu dois l'enregistrer en .xlsm ; appuie sur la touche F12 ➯ fenêtre "Enregistrer sous", puis sous le nom de fichier, choisis dans la liste ce type de fichier :

"Classeur Excel (prenant en charge les macros)"

attention : ne pas simplement renommer l'extension ! il faut absolument changer le type du fichier, comme indiqué ci-dessus.​

soan

 

Vote positif 0 Vote négatif

C

cubitus53

XLDnaute Nouveau

• 23 Mars 2021

• #5

le fichier d'origine est déjà en .xlsm vu que c'est dans celui la que je crée la macro

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mars 2021

• #6

bizarre ! avec un .xlsm, tu n'aurais pas dû avoir ton message d'erreur :

"les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro"

désolé, mais là je sèche : je n'ai rien d'autre à proposer ! 😭

soan

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 23 Mars 2021

• #7

ou alors, vraiment à tout hasard, peut-être que c'est lié à l'une des versions d'Excel qui n'acceptent pas les macros ? comme par exemple Office On Line ? (à part ça, aucune idée !)​

soan

 

Vote positif 0 Vote négatif

bbb38

XLDnaute Accro

• 23 Mars 2021

• #8

Bonsoir Cubitus53, soan, Fred0o, le Forum,
A tout hasard, regardes si le fichier ci-joint peut te permettre de trouver une partie de solution à ton problème.
Remarques : L’existence du nouveau fichier dans le répertoire, n’est pas testée. Le choix de l’adresse de destination de la plage de cellules à copier, n’est pas intégré (actuellement, l’adresse figure dans le code –A1).
Cordialement,
Bernard

 

Pièces jointes

• Fichier Source.xlsm

  37.6 KB · Affichages: 7

Vote positif 0 Vote négatif

C

cubitus53

XLDnaute Nouveau

• 26 Mars 2021

• #9

Bonjour,

merci à tous, j'ai trouvé la solution à mon problème avec ce code:

Sub Créationfichiersousdétail()

chemin = ActiveWorkbook.Path
NomFichier = "Sousdétail"
Fichier = chemin & "\" & NomFichier

Workbooks.Add

ChDir chemin
ActiveWorkbook.SaveAs Filename:=Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


End Sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Mars 2021

• #10

Bonjour cubitus53,

bienvenue sur le site XLD ! 🥳 (j'avais oublié de le faire car j'étais intrigué par ton problème)

merci pour ton retour d'infos, et bravo pour avoir trouvé une solution ! 👍 🙂

soan

 

Dernière édition: 26 Mars 2021

Vote positif 0 Vote négatif