Copier la feuille d'un fichier excel dans un autre fichier excel
Résolu/Fermé
ENJOY2020
Messages postés
2
Date d'inscription
samedi 6 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020
-
Modifié le 7 juin 2020 à 08:25
ENJOY2020 Messages postés 2 Date d'inscription samedi 6 juin 2020 Statut Membre Dernière intervention 9 juin 2020 - 9 juin 2020 à 00:06
ENJOY2020 Messages postés 2 Date d'inscription samedi 6 juin 2020 Statut Membre Dernière intervention 9 juin 2020 - 9 juin 2020 à 00:06
A voir également:
- Copier une feuille excel dans un autre fichier excel
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Si et excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
7 juin 2020 à 07:53
7 juin 2020 à 07:53
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
7 juin 2020 à 08:26
7 juin 2020 à 08:26
Bonjour,
voir cela aussi
http://boisgontierjacques.free.fr/pages_site/GestionOnglets.htm#OngletsClasseursRepertoire
voir cela aussi
http://boisgontierjacques.free.fr/pages_site/GestionOnglets.htm#OngletsClasseursRepertoire
ENJOY2020
Messages postés
2
Date d'inscription
samedi 6 juin 2020
Statut
Membre
Dernière intervention
9 juin 2020
9 juin 2020 à 00:06
9 juin 2020 à 00:06
Bonsoir,
J'ai pu tester les codes que vous me proposez ce soir. Finalement la solution était d'enlever le .Activate... Le code suivant fonctionne :
Sub initialisation()
'Création du fichier Excel et test s'il existe'
Dim MonFichier As String
MonFichier = "2010-2019.xlsx"
If FichierExiste(MonFichier) = False Then
Workbooks.Add.SaveAs Filename:=("2010-2019")
End If
Workbooks.Open "2010"
Workbooks.Open "2010-2019"
Workbooks("2010").Sheets("2010").Copy After:=Workbooks("2010-2019").Sheets(1)
Workbooks("2010-2019").Close SaveChanges:=True
Workbooks("2010").Close SaveChanges:=True
End Sub
Bonne soirée et merci pour votre réactivité.
J'ai pu tester les codes que vous me proposez ce soir. Finalement la solution était d'enlever le .Activate... Le code suivant fonctionne :
Sub initialisation()
'Création du fichier Excel et test s'il existe'
Dim MonFichier As String
MonFichier = "2010-2019.xlsx"
If FichierExiste(MonFichier) = False Then
Workbooks.Add.SaveAs Filename:=("2010-2019")
End If
Workbooks.Open "2010"
Workbooks.Open "2010-2019"
Workbooks("2010").Sheets("2010").Copy After:=Workbooks("2010-2019").Sheets(1)
Workbooks("2010-2019").Close SaveChanges:=True
Workbooks("2010").Close SaveChanges:=True
End Sub
Bonne soirée et merci pour votre réactivité.