dupliquer une feuille de mon classeur chaque mois

dupliquer une feuille de mon classeur chaque mois - VB/VBA/VBS - Programmation

Marsh Posté le 17-01-2019 à 18:42:36    

bonjour  
 
je me suis inspiré de certain code et voici mon code

Code :
  1. Public Function FeuilleExiste(FeuilleAVerifier As String) As Boolean
  2. 'fonction qui vérifie si la "FeuilleActive" existe dans le Classeur actif
  4. On Error GoTo SiErreur
  5. Dim Feuille As Worksheet
  6. Dim SheetName As String
  7.    
  8.     SheetName = ActiveWorkbook.ActiveSheet.Name
  9.     FeuilleExiste = False
  10.     For Each Feuille In Worksheets
  11.         If Feuille.Name = SheetName Then
  12.             FeuilleExiste = True
  13.             Exit Function
  14.         End If
  15.     Next Feuille
  16. Exit Function
  18. SiErreur:
  19. MsgBox "Une erreur s'est produite..."
  20. FeuilleExiste = CVErr(xlErrNA)
  21. End Function
  23. Sub Test()
  24. 'Utilisation de la fonction "FeuilleExiste" puis ajout d'une nouvelle feuille
  27. Dim SheetName As String
  28. Dim i As Integer
  29.    
  30.     SheetName = ActiveWorkbook.ActiveSheet.Name
  31.     If FeuilleExiste(SheetName) = True Then
  32.         'MsgBox "La Feuille " & SheetName & " existe !"
  33.        
  34. 'ajoute uen Feuille tout à la fin du Classeur en comptant les Feuilles avec la méthode Worksheets.Count et la nommée
  35.         'Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = Format(Date - 2, "mmmm" ) & "-" & Format(Date, "yy" ) & "_KPI "
  36.         Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
  37.         ActiveSheet.Name = Format(Date + 14, "mmmm" ) & "-" & Format(Date, "yy" ) & "_KPI "
  38.        
  39.         'entre la date du 1er jour du mois en cours dans la cellule C3
  40.        
  41.         ActiveSheet.Range("C3" ) = DateSerial(Year(Date), Month(Date) + 1, 1)
  42.        
  43.         'recuperation du numéro de colonne de la cellule contenant la date du dernier jour du mois en cours     numérodecolonnedelacelluleactive  ActiveCell.column
  44.         'DerniereColonneUtilisee = Cells(3, Columns.Count).End(xlToLeft).Column 'où 3 est le numéro de la ligne
  45.        
  46.         For Each cell In ActiveSheet.Range("C3:AG3" )
  47.             If Month(cell.Value) <> Month(ActiveSheet.Range("C3" )) Then
  48.                    i = cell.Column
  49.                    Columns(Val(i)).Delete Shift:=xlToLeft
  50.             End If
  51.         Next
  52.        
  53.     Else
  54.         MsgBox "La Feuille 'Test_1' n'existe pas!"
  55.     End If
  56.    
  57. End Sub


 
ce code vérifit si la feuillet à dupliquer existe, si vrai duplique la feuille dans le même classeur. j'insere dans la cellule C3 la date du mois précedent et jusque là il n'y a pas de problème. vue que le nombre de jour de chaque mois varie, je parcours la ligne de ma nouvelle feuille en vérifiant si le mois de cellule C3 et identique aux autres cellules sinon supprime la colonne contenant le mois différent du mois de C3. c'est là que commence mes difficultés, il me supprime ces colonnes sur la feuille original. et depuis je ne parviens pas à cela.
je demande votre apport pour restifier mon ou mes erreurs


Message édité par bodiallo le 19-01-2019 à 08:46:36
Reply

Marsh Posté le 17-01-2019 à 18:42:36   

Reply

Marsh Posté le 30-01-2019 à 10:18:24    

Tu as intérêt à définir des variables pour ton classeur et ta feuille source ainsi que pour ton classeur et ta feuille cible.
 
Pas mal d'infos ici : https://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
 
Puis à les utiliser dans ton code à la place de "ActiveSheet" qui correspond à ta feuille active (qui peut changer en plus selon ton code si tu utilises `Select` notamment).


Message édité par pass-by le 30-01-2019 à 10:18:52
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed