Fermer FEUILLE et ouvrir NOUVELLE FEUILLE
o-sixty-o
Messages postés
25
Statut
Membre
-
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12276 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un classeur excel avec plusieurs feuille excel et j'aimerai , lorsque je clique sur un bouton que ça me supprime la feuille ("Achat") SANS ENREGISTRER et que ça la remplace par une autre feuille ("Achat2") venant d' un classeur différent ( mais sous le même répertoire ! ) . Comment faire ?
voila mon début de code :
WorkSheets.Activate("Achat") 'Je suis sur la feuille Achat
Workbooks.Open "ClasseurAchat_Produit_COPIE.xls" 'ouvre le classeur contenant une seule feuille : "Achat2"
ActiveSheet.Copy After:=Workbooks("ClasseurAchat_Produit").Sheets(4) ' copie la feuille Achat 2 après la 4ème feuille du 1erClasseur
Workbooks.Close "ClasseurAchat_Produit_COPIE.xls" 'est censé fermer le classeur Copie
J'ai un classeur excel avec plusieurs feuille excel et j'aimerai , lorsque je clique sur un bouton que ça me supprime la feuille ("Achat") SANS ENREGISTRER et que ça la remplace par une autre feuille ("Achat2") venant d' un classeur différent ( mais sous le même répertoire ! ) . Comment faire ?
voila mon début de code :
WorkSheets.Activate("Achat") 'Je suis sur la feuille Achat
Workbooks.Open "ClasseurAchat_Produit_COPIE.xls" 'ouvre le classeur contenant une seule feuille : "Achat2"
ActiveSheet.Copy After:=Workbooks("ClasseurAchat_Produit").Sheets(4) ' copie la feuille Achat 2 après la 4ème feuille du 1erClasseur
Workbooks.Close "ClasseurAchat_Produit_COPIE.xls" 'est censé fermer le classeur Copie
Configuration: Windows XP Firefox 1.5.0.1
1 réponse
-
Bonjour o-sixty-o,
Je vous propose la procédure suivante:
ou ----- "Classeu1" = "ClasseurAchat_Produit"
et ------ "Classeur2.xls" = "ClasseurAchat_Produit_COPIE.xls"
Public Sub Feuil_Del_Nouv()
' Macro enregistrée le 06.03.2008 par Jean-Pierre
' classeur travail
Sheets("Achat").Delete
'-- nouveau nombre de feuille
NbFe = Worksheets.Count
Workbooks.Open ("Classeur2.xls")
Sheets("Achat2").Select
Sheets("Achat2").Copy After:=Workbooks("Classeur1").Sheets(NbFe)
'--- Renommer la feuille
Worksheets("Achat2").Name = "Achat"
Workbooks("Classeur2.xls").Close
Range("A1").Select
End Sub
Vous pensez à insérer un bouton de commande pous déclencher le code.
