kewan
Nouveau membre
Bonsoir à tout le forum.
J'ai besoin d'un coup de main.
Je vous explique mon projet.
J'ai deux classeurs.
Dans le premier il faut saisir des données dans 4 colonnes (nom-intervention réalisé-Durée de l'intervention-Cout total de l'intervention) ensuite ces données doivent être archivé dans le deuxième classeur. La ligne de 4 cellules est copier dans un tableau sans écraser les précédents archivages. Ensuite un graphique doit se créer avec comme donnée la dernière colonne.
J'arrive à faire ça mais mon problème c'est qu'à chaque archivage c'est un nouveau graphique qui se crée. J'aimerais que le graphique se mette à jour en ajouter dans ses données la dernière colonne.
Pouvez vous m'aider ?
Voilà mon code :
[strike]Voilà mes deux classeurs :
En attendant vos réponses.
Cordialement.
Kewan.
J'ai besoin d'un coup de main.
Je vous explique mon projet.
J'ai deux classeurs.
Dans le premier il faut saisir des données dans 4 colonnes (nom-intervention réalisé-Durée de l'intervention-Cout total de l'intervention) ensuite ces données doivent être archivé dans le deuxième classeur. La ligne de 4 cellules est copier dans un tableau sans écraser les précédents archivages. Ensuite un graphique doit se créer avec comme donnée la dernière colonne.
J'arrive à faire ça mais mon problème c'est qu'à chaque archivage c'est un nouveau graphique qui se crée. J'aimerais que le graphique se mette à jour en ajouter dans ses données la dernière colonne.
Pouvez vous m'aider ?
Voilà mon code :
Code:
Option Explicit
Sub Archiver_historique_correctif()
Dim valeur As String
Dim wkB As Workbook
Dim MaFeuille As Worksheet
Dim x As Range
valeur = Range("D3").Value
'Ouvrir le classeur archive
Set wkB = Workbooks.Open(ThisWorkbook.Path & "\\" & valeur & ".xlsm")
Set x = wkB.Worksheets("historique_corrective").Cells(Rows.Count, "B").End(xlUp)
'Ôter la protection du classeur archive
wkB.Unprotect Password:="1234"
'Ôter la protection de toutes les feuilles
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="1234"
Next
'Copier la ligne historique - Sélectionner la feuille - Sélectionner la dernière cellule vide - Coller
ThisWorkbook.Sheets("historique_correctif").Range("B5:E5").Copy
wkB.Sheets("historique_corrective").Select
x(2, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Créer un nouveau graphique
Range("E5:E" & [E65000].End(xlUp).Row).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("E5:E" & [E65000].End(xlUp).Row)
ActiveChart.ChartType = xlLineStacked
'Sauvegarder le classeur archive
wkB.Save
'Fermer le classeur archive
wkB.Close
End Sub
[strike]Voilà mes deux classeurs :
Vous devez être connecté pour voir les liens.
[/strike]En attendant vos réponses.
Cordialement.
Kewan.