Copies de feuilles d'un classeur VBA
Résolu
vba_debutant
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
vba_debutant Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
vba_debutant Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copies de feuilles d'un classeur VBA
- Comment faire un livret avec des feuilles a4 - Guide
- Bruler des feuilles de laurier - Guide
- Ou trouver les liens copiés sur android - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Fusionner feuilles excel - Guide
2 réponses
Bonjour,
a chaque test de si ta feuille existe :
Dim xlSheet As Worksheet
dim a as variant
For Each xlSheet In ThisWorkbook.Worksheets ' à chaque feuille du classeur ouvert
if activesheets.name = ("nomdetafeuillecherchée") then
a=1
end if
Next xlSheet
if a=0 then
copie ton code si la feuille n'existepas
else
copie ton code si la feuille existe
end if
- est-ce qu'un workbooks(wb).sheets("Test1").add fonctionnerait pour créer une feuille dans le nouveau classeur ? oui ca marche
- pour ce qui est de la copie des feuilles est-ce que la déclaration suivante suffit ?:
target = "c:\....fichier_test_date.xls"
source = ActiveWorkbook
Workbooks.Open target, 0, ReadOnly:=False
Workbooks(source).Sheets("Test1").Copy Workbooks(target).Sheets("Test1")
C'est possible que cela marche mais j'ai plutot l'habitude de faire ainsi :
workbooks(source).activate
sheest("test1").select
cells.copy
workbooks(target).activate
sheets("test1").select
activesheet.paste
a chaque test de si ta feuille existe :
Dim xlSheet As Worksheet
dim a as variant
For Each xlSheet In ThisWorkbook.Worksheets ' à chaque feuille du classeur ouvert
if activesheets.name = ("nomdetafeuillecherchée") then
a=1
end if
Next xlSheet
if a=0 then
copie ton code si la feuille n'existepas
else
copie ton code si la feuille existe
end if
- est-ce qu'un workbooks(wb).sheets("Test1").add fonctionnerait pour créer une feuille dans le nouveau classeur ? oui ca marche
- pour ce qui est de la copie des feuilles est-ce que la déclaration suivante suffit ?:
target = "c:\....fichier_test_date.xls"
source = ActiveWorkbook
Workbooks.Open target, 0, ReadOnly:=False
Workbooks(source).Sheets("Test1").Copy Workbooks(target).Sheets("Test1")
C'est possible que cela marche mais j'ai plutot l'habitude de faire ainsi :
workbooks(source).activate
sheest("test1").select
cells.copy
workbooks(target).activate
sheets("test1").select
activesheet.paste