Aide Macro
Fermé
ChaL
-
13 août 2020 à 13:59
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 13 août 2020 à 16:52
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 13 août 2020 à 16:52
A voir également:
- Aide Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 13 août 2020 à 17:21
Modifié le 13 août 2020 à 17:21
Bonjour,
En vba faire Alt F11 pour accéder à l'éditeur.
Ensuite insérer un module et y mettre ce code qui sera associé à un bouton ou raccourci clavier:
enregistrer en classeur acceptant les macros
En vba faire Alt F11 pour accéder à l'éditeur.
Ensuite insérer un module et y mettre ce code qui sera associé à un bouton ou raccourci clavier:
Option Explicit Sub copie() Dim c As Range Dim strFichier As String Dim classeurDestination As Workbook strFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls") 'excel 2003 pour les suivants remplacer par xlsx Set c = ActiveCell Set classeurDestination = Workbooks.Open(strFichier) 'copier les données de la feuille active du classeur source vers la feuille "Feuil1" ' a adapter du classeur destination c.Copy Destination:=classeurDestination.Sheets("Feuil1").Range("A1") 'a adapter End Sub
enregistrer en classeur acceptant les macros