Creer un classeur à partir d'un autre
Fermé
GB9011
Messages postés
7
Date d'inscription
dimanche 26 avril 2015
Statut
Membre
Dernière intervention
27 août 2015
-
26 août 2015 à 21:00
GB9011 Messages postés 7 Date d'inscription dimanche 26 avril 2015 Statut Membre Dernière intervention 27 août 2015 - 27 août 2015 à 17:21
GB9011 Messages postés 7 Date d'inscription dimanche 26 avril 2015 Statut Membre Dernière intervention 27 août 2015 - 27 août 2015 à 17:21
A voir également:
- Creer un classeur à partir d'un autre
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte instagram - Guide
- Créer un compte facebook - Guide
1 réponse
Zawarudio
Messages postés
14
Date d'inscription
mardi 25 août 2015
Statut
Membre
Dernière intervention
2 octobre 2015
1
Modifié par Zawarudio le 27/08/2015 à 09:53
Modifié par Zawarudio le 27/08/2015 à 09:53
Sub test()
Dim test As Boolean
Dim wb1, wb2 As Workbook
Set wb1 = ActiveWorkbook
Set wb2 = Application.Workbooks.Add
'test = True
'Methode 1
If (test) Then
'Crée un nouveau classeur
wb1.Sheets("Feuil1").Range("A1:B10").Copy
wb2.Sheets("Feuil1").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
'Methode 2
Else
'Copie une feuille dans un nouveau classeur
wb1.Worksheets("Feuil1").Copy After:=wb2.Sheets(wb2.Sheets.Count)
wb1.Worksheets("Feuil1").Copy After:=wb2.Sheets(wb2.Sheets.Count)
End If
End Sub
Les listes déroulantes fonctionnent avec une référence nommée, qui renvoie elle même vers une plage de cellule.
Si vous copiez la plage de cellule utilisée par la liste dans le classeur que vous allez créer, ça devrait marcher sans problème.
Cordialement,
27 août 2015 à 17:21
Merci beaucoup. Je le testerai demain au taf dès que j'aurai un moment.
Je dirai si cela fonctionne bien.
En tout cas, sympa pour cette réponse rapide.
Cordialement