XL 2019 Création nouveau fichier

[cubitus53]

Bonjour à tous,

je souhaiterais copier des données d'un onglet d'un fichier dans un nouveau fichier à créer mais dans le même répertoire que le fichier source (sachant que le répertoire n'est jamais le même car ce fichier est utilisé dans plusieurs affaires différentes.
Mon soucis c'est que je n'arrive pas à créer et sauvegarder ce fichier dans le même répertoire que le fichier source .

Qui aurait la solution?

merci

 

[Fred0o]

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

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

 

[cubitus53]

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

 

[soan]

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

 

[cubitus53]

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

 

[soan]

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

 

[soan]

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

 

[bbb38]

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

 

[cubitus53]

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

 

[soan]

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