XL 2021 Duplication d'onglets dans un nouveau fichier et enregistrement selon une cellule donnée

[catdog]

Bonjour,

J'ai une petite macro qui me permet de dupliquer 3 des onglets d'un fichier dans un nouveau fichier. Cette macro fonctionne à merveille.

Maintenant, j'aimerais aller un poil plus loin : j'aimerais qu'à cela, la macro attribue un nom au nouveau fichier... Nom défini par une formule dans une cellule de l'onglet actif.

Sub copy_sheets()
'
' Copie les onglets vers un nouveau classeur
'
    Sheets(Array("Cout Personnel", "Matrice FC", "Contributions en nature")).Select
    Sheets("Cout Personnel").Activate
    Sheets(Array("Cout Personnel", "Matrice FC", "Contributions en nature")).Copy

Le nom (avec chemin, nom et extension en xlsx) sera indiqué dans la cellule AA4

Merci d'avance pour votre aide...
Je suis convaincu que c'est un p'tit truc tout bête...

Olivier.

 

[catdog]

Re-bonjour,

Pour préciser ma demande, j'aimerais faire comme la macro ci-dessous :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    [AA2], Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Cette macro me permet de créer un pdf avec le chemin et le nom qui se trouvent dans la cellule AA2.

Mais cette fois, je voudrais créer un nouveau fichier excel avec le chemin et le nom qui se trouvent en AA4.

Merci d'avance,
Olivier.

 

[wDog66]

Bonjour catdog,

Voici une possibilité, je passe par une variable pour le chemin et le nom, mais pas obligé 😉

Sub CopieEtEnregistre()
  Dim sPathFile As String
  sPathFile = ActiveWorkbook.Sheets("Cout Personnel").Range("AA4").Value
  ' Copie les onglets vers un nouveau classeur
  ActiveWorkbook.Sheets(Array("Cout Personnel", "Matrice FC", "Contributions en nature")).Copy
  If Right(sPathFile, 5) <> ".xlsx" Then sPathFile = sPathFile & ".xlsx"
  ' Sauvegarder le classeur devenu actif
  ActiveWorkbook.SaveAs sPathFile
End Sub

Edit : modification code

A+

 

[catdog]

Bonjour wDog66,

Merci infiniment... Je teste cela immédiatement...

😁

 

[catdog]

Rebonjour

Bonjour catdog,

Voici une possibilité, je passe par une variable pour le chemin et le nom, mais pas obligé 😉

Sub CopieEtEnregistre()
  Dim sPathFile As String
  ' Copie les onglets vers un nouveau classeur
  Sheets(Array("Cout Personnel", "Matrice FC", "Contributions en nature")).Copy
  sPathFile = Sheets("Cout Personnel").Range("AA4")
  If Right(sPathFile, 5) <> ".xlsx" Then sPathFile = sPathFile & ".xlsx"
  ' Sauvegarder le classeur devenu actif
  ActiveWorkbook.Save sPathFile
End Sub

A+

Malheureusement, j'ai le résultat suivant :

J'ai juste copier/coller ton code dans le nom de ma macro en sub...
Par contre, c'est une macro que j'ai habituellement dans mon classeur personnel et non dans le classeur d'origine des onglets. Cela pourrait-il avoir un impact ?

Merci d'avance,
Olivier.

 

[wDog66]

Re,

Je viens de modifier le code précédent, à retester avec les modifications 😉

A+

 

[catdog]

Re,

Je viens de modifier le code précédent, à retester avec les modifications 😉

A+

On progresse...
J'ai maintenant le message suivant :

Si je mets "oui", bien évidemment, la macro va jusqu'au bout.
Par contre, je ne vois pas pourquoi il m'embarque une macro dans mon nouveau fichier.
Ne peut-on pas s'affranchir de cette question, et "forcer" l'enregistrement sans macro ?

Je ferai sans si besoin...

Merci encore...

 

[wDog66]

Re,

Vous devez avoir une des feuilles copiées qui doit contenir du code 🤔

Si c'est le cas, ce code peut très bien être placé dans ThisWorkbook

A+