Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

C

catdog

XLDnaute Junior
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.

Code: 
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.
 
Solution
Bonjour catdog,

Voici une possibilité, je passe par une variable pour le chemin et le nom, mais pas obligé
VB: 
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+
Trier par date Trier par votes
C

catdog

XLDnaute Junior
Re-bonjour,

Pour préciser ma demande, j'aimerais faire comme la macro ci-dessous :
Code: 
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.
 
Vote positif 0 Vote négatif

wDog66

XLDnaute Occasionnel
Bonjour catdog,

Voici une possibilité, je passe par une variable pour le chemin et le nom, mais pas obligé
VB: 
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+
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
C

catdog

XLDnaute Junior
Rebonjour
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.
 
Vote positif 0 Vote négatif
C

catdog

XLDnaute Junior
wDog66 à dit:
Re,

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

A+
Cliquez pour agrandir...
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...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Question
XL 2016 Automatiser une formule RECHERCHEV avec un nom de fichier différent en fonction du résultat d'une cellule
Réponses
10
Affichages
687
Phil69970
M
  • Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
944
Xender
X
R
  • Résolu(e)
XL 2013 Identifier une donnée et transcrire nouveau nom nouvelle colonne
Réponses
5
Affichages
676
ratsavong
R
P
  • Question
XL 2013 Copier une formule dans un cellule depuis une cellule d'un onglet nouvellement crée en macro VBA
Réponses
8
Affichages
747
pascalou1
P
E
  • Question
Microsoft 365 associer la valeur d'une cellule à ma macro en sélectionnant la bonne extension année
Réponses
5
Affichages
700
Hasco
H
  • Question
Microsoft 365 Insérer le nom d'un classeur excel dans une cellule
Réponses
3
Affichages
1 K
Hugo_1907
H
O
  • Question
XL 2019 Rechercher un mot dans un texte et le remplacer par le contenu (x) d'une cellule
Réponses
1
Affichages
748
Staple1600
A
  • Résolu(e)
XL 2016 Macro pour copier une ligne d'une feuille dans un tableau excel
2 3
Réponses
33
Affichages
3 K
Aurel60540
A
  • Question
XL 2013 Regrouper des Onglets pour créer un nouveau fichier
Réponses
3
Affichages
912
don_pets
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…