J
Jo
Guest
J'ai un problème en VBA, j'essaie de recopier une feuille à un endroit précis, mais la méthode échoue, erreur 1004 (la méthode Copy de la classe Worksheet a échoué). Voici le code :
If FirstOP = True Then
FirsOP = False
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets(1).Visible = True
Worksheets(1).Select
'Worksheets(2).Visible = False
Else
Worksheets(2).Visible = True
Worksheets(2).Select
'Worksheets(1).Visible = False
End If
Else
' Création de la feuille si elle n'est pas existante
'
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets("Facture Roannais").Copy Before:=Sheets("Produits")
Else
Worksheets("Facture Mag").Copy Before:=Worksheets("Produits")
End If
Merci de me dépanner
If FirstOP = True Then
FirsOP = False
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets(1).Visible = True
Worksheets(1).Select
'Worksheets(2).Visible = False
Else
Worksheets(2).Visible = True
Worksheets(2).Select
'Worksheets(1).Visible = False
End If
Else
' Création de la feuille si elle n'est pas existante
'
If Support_pays.Choix_support.Text = "ROANNAIS" Then
Worksheets("Facture Roannais").Copy Before:=Sheets("Produits")
Else
Worksheets("Facture Mag").Copy Before:=Worksheets("Produits")
End If
Merci de me dépanner