zibou85
Messages postés10Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention19 septembre 2006
-
19 sept. 2006 à 15:25
zibou85
Messages postés10Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention19 septembre 2006
-
19 sept. 2006 à 15:43
bonjour, j'aimerais avoir de l'aide pour la navigation entre deux classeurs excels.
voici mon code :
Public Sub AjouterMnt_Click()
Dim ObjAjout As Excel.Workbook 'Classeur Excel
Dim objgestion As Excel.Workbook 'classeur excel 2
'lignefin = dernière ligne du stock dans "monument en stock"
Dim lignefin As Integer
'ajoutfin = dernière ligne du fichier "nouveau monument à ajouter"
Dim ajoutfin As Integer
Dim cellulevide As String
Set ObjAjout = Excel.Workbooks.Open("S:\ASSISTANT FUNERAIRE (W.END)\Gestion des Monuments\Monument en stock.xls")
'récupération lignefin dans monument en stock
Sheets("Stock").Select
ActiveSheet.Unprotect
lignefin = 128
cellulevide = ActiveSheet.Range("B" & lignefin).Value
Do While cellulevide <> ""
lignefin = lignefin + 1
cellulevide = ActiveSheet.Range("B" & lignefin).Value
Loop
le problème se situe ici, pour passer sur le classeur d'orgine pour travailler sur la feuille ajout
Sheets("ajout").Select
ActiveSheet.Unprotect
ajoutfin = 2
cellulevide = ActiveSheet.Range("B" & ajoutfin).Value
Do While cellulevide <> ""
ajoutfin = ajoutfin + 1
cellulevide = ActiveSheet.Range("B" & ajoutfin).Value
Loop
'ajout dans monument en stock
ActiveSheet.Range("A2:P" & ajoutfin).Select
Selection.Copy
Sheets("Stock").Select
ActiveSheet.Range("A" & lignefin & ":P" & lignefin).Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'récupération du dernier numéro
Sheets("ajout").Select
ActiveSheet.Range("A2").Value = ActiveSheet.Range("A" & ajoutfin).Value
'effacer le contenu de l'ajout monument
ActiveSheet.Range("B2:P" & ajoutfin).Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
merci d'avance de votre aide, j'ai cherché et je trouve rien qui repond à ma question.
Pour info, le classeur est déja ouvert car le bouton est sur cette feuille a l'orignie.