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

Copier / coller suite a un appuis bouton...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion quinze24
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Q

quinze24

Guest
Bonjour à tous,

J'ai besoin de votre aide :

Je souhaite copier un onglet d'un fichier A, créer un nouveau classeur B et coller cette copie sur ce dernier (classeur B). Et tout ça en automatique. Le déclencheur de la commande est un bouton.

Merci

Sur Excel 2007
 
Trier par date Trier par votes
Re : Copier / coller suite a un appuis bouton...

Bonsoir quinze24, et bienvenue,

En principe, une seule ligne suffit à faire la copie, mais il faut être certain que le classeur de destination est bien ouvert :

Code: 
Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy Before:=Workbooks("Classeur.xlsm").Sheets(x)
End Sub
Il faut bien sûr remplacer le textes entre guillemets par le nom de la feuille à copier et le nom du classeur cible. Dans cet exemple, la feuille sera copiée en première position dans la barre des onglets. Pour l'insérer devant un feuille quelconque, il suffit de remplacer "x" par le n° de position de la feuille.
Pour copier en dernière position :

Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy After:=Workbooks("Classeur.xlsm").Sheets(Sheets.Count)
End Sub
Cliquez pour agrandir...
Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

quinze24 à dit:
Super merci!

Et y a t'il un code pour la création et l'ouverture d'un nouveau classeur?

Merci
Cliquez pour agrandir...

RE :

Tout simplement comme ceci :

Code: 
Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy
End Sub
Cette macro créera automatiquement un nouveau classeur. Ce classeur s'appellera "Classeur1" et ne comportera que la feuille copiée.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...


Et bien super !
Merci papou-net !
Je test et je ferme si c'est bon.
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

Pardon c'est bon j'avais un petit bout de code pas effacé....
Merci.
Il est possible d'abuser est de demander si après :
Sheets("Nom de feuille").Copy
Je peux rajouter la commande enregistrer sous.( que je ne connais pas )
Car comme ça la personne n'a plus qu'a mettre le nom est valider.

Encore merci
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

RE :

Voici un exemple utilisant la fenêtre "Enregistrer sous" d'Excel :

Code: 
Private Sub CommandButton1_Click()
Dim SaveBox As FileDialog
Set SaveBox = Application.FileDialog(msoFileDialogSaveAs)

Sheets("Feuil1").Copy
With SaveBox
  .Show
  .Execute
End With
End Sub
Si tu sélectionnes le mot-clé "FileDialog" et que tu appuies sur F1 tu auras des précisions concernant le paramétrage de la boîte de dialogue. Dans l'exemple ci-dessus, le plus simple qui soit, il te faudra indiquer (ou sélectionner) le répertoire et indiquer le nom du fichier ainsi que son extension.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

BON JE L'AI RÉCUPERER...
Y a du boulot car toutes mes cellules sont en vrac mais j'ai les données.
Ca m'apprendra à pas faire de sauvegarde récente...

J'ai pu tester le code et ça marche au poil !!!!
J'ai la possibilité de rajouter la valeur d'une liste déroulante + la date dans le nom du fichier en auto?

Merci papou-net
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

J'ai la possibilité de rajouter la valeur d'une liste déroulante + la date dans le nom du fichier en auto?
Cliquez pour agrandir...

Oui, bien sûr !

Le tout est de savoir quel type de liste déroulante tu utilises, et si elle placée sur une feuille ou un formulaire ?

Je reprends le sujet demain, après ta réponse, car pour l'heure je pars au dodo.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Copier / coller suite a un appuis bouton...

Bonjour quinze24,

Voici le code que tu attendais :

Code: 
Private Sub CommandButton1_Click()
Dim SaveBox As FileDialog
Set SaveBox = Application.FileDialog(msoFileDialogSaveAs)

'Sheets("Feuil1").Copy
With SaveBox
  .Title = "Enregistrer sous..."
  .AllowMultiSelect = False
  .InitialFileName = ComboBox1 & TextBox1 & Date & ComboBox2
  .Show
'  .Execute
End With
End Sub
Pour te permettre de le tester, je te joins un fichier exemple avec un UserForm s'ouvrant sur un clic du bouton Démo. Pour éviter des enregistrements inutiles durant les tests, j'ai mis la ligne de copie et celle d'exécution en commentaires.

Bonne journée.

Cordialement.

NB : tant qu'une des zones à renseigner est vide, le bouton Enregistrer est désactivé. Ca permet d'éviter un plantage du code s'il manque un élément dans le chemin du fichier.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
191
F22Raptor
F
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
306
Bodin44
B
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
317
job75
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
320
vgendron
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
388
job75
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
318
matlatarte
M
  • Question Question
XL 2016 Exporter Graphique sur nouveau classeur
2
Réponses
19
Affichages
506
laurent950
T
  • Question Question
XL 2019 macro pour un bouton avec lien "enregistrer sous"
Réponses
2
Affichages
378
patricktoulon
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
513
sousou
  • Question Question
XL 2019 Le bouton copie/coller vba
Réponses
2
Affichages
276
frederio
R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
160
halecs93
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
N
  • Résolu(e)
XL 2019 copier coller sous condition avec trois feuil
Réponses
11
Affichages
615
Nico77
N
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
543
AtTheOne
C
  • Résolu(e)
XL 2021 Bouton de navigation
Réponses
4
Affichages
281
Claudinedu13
C
I
  • Question Question
Microsoft 365 Atteindre la première case vide après collage
Réponses
5
Affichages
295
job75
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
352
job75
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
Krome36
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…