Copier feuille VBA

[MissVivi]

Bonjour à tous,

Voilà mon problème :

Dans une macro je voudrais copier toutes les feuilles de mon fichier qui ne s'appelle pas 'F1", "F2" et "F3" dans un nouveau fichier, mais je bloque.

Quelqu'un pourrait m'aider ?

D'avance merci beaucoup.

 

[Catrice]

Re : Copier feuille VBA

Bonjour,

ci-dessous un exemple :

Sub Test()
Source = "Classeur1.xls"
Dest = "Classeur2.xls"
For Each X In Workbooks(Source).Sheets
If X.Name = "F1" Or X.Name = "F2" Or X.Name = "F3" Then
X.Copy Before:=Workbooks(Dest).Sheets(1)
End If
Next
End Sub

Suivant ce qu tu veux faire, il faut peut etre gerer l'existence des feuilles dans le fichier Dest.
Si c'est pour sauvegarder F1, F2 et F3, tu peus aussi supprimer toutes les autres feuilles et enregistrer le fichier sous un autre nom.

 

[vbacrumble]

Re : Copier feuille VBA

Bonjour

Une autre proposition avec Like
Avec cette modification du code de Catrice

Sub Test2()
Dim Source As Workbook, Dest As Workbook
Dim X As Worksheet
Set Source = ThisWorkbook
Set Dest = Workbooks.Add
For Each X In Source.Sheets
If Not X.Name Like "F#*" Then
X.Copy Before:=Dest.Sheets(1)
End If
Next
End Sub