Bonjour à tous,
Je dois utiliser un fichier Excel avec plein de macros mais visiblement, elles ne fonctionnent pas sur mon poste.
Le fichier passe sans problème sous un office 2013, les postes en 2010, comme le mien, génèrent une erreur: "Erreur de compilation Projet ou bibliothèque introuvable"
Voici le code.
Code :
- '------------------------------------------------------------------
- 'Création d'une ligne dans le suivi de commande--------------------
- Sub CreateLigne()
- '
- ' CreateLigne Macro
- '
- 'Si le tableau est sélectionné
- If ActiveCell.Row <= 3 Then
- MsgBox ("Sélectionner une case du tableau." )
- Else
- Dim OngletPrincipal As String
- OngletPrincipal = NomMainOnglet
-
- 'Variable dernière colonne
- der_col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
- 'Variable dernière ligne
- der_lig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
-
- 'Rajout dernière ligne avec la Date du jour
- Range("A" & der_lig & ":S" & der_lig).Select
- Selection.Copy
- Range("A" & der_lig + 1).Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- Selection.ClearContents
- With Selection.Interior
- .Pattern = xlNone
- .TintAndShade = 0
- .PatternTintAndShade = 0
- End With
- Range("E" & der_lig).Select
- Selection.Copy
- Range("E" & der_lig + 1).Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- Range("G" & der_lig + 1).Value = Date
- Range("A" & der_lig + 1 & ":S" & der_lig + 1).Select
- Selection.Borders(xlDiagonalDown).LineStyle = xlNone
- Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With Selection.Borders(xlEdgeLeft)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- With Selection.Borders(xlEdgeTop)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- With Selection.Borders(xlEdgeBottom)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- With Selection.Borders(xlEdgeRight)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- With Selection.Borders(xlInsideVertical)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- With Selection.Borders(xlInsideHorizontal)
- .LineStyle = xlContinuous
- .ColorIndex = 0
- .TintAndShade = 0
- .Weight = xlThin
- End With
- Range("A" & der_lig + 1).Select
- 'Selection de la première colonne de la ligne créée
- ActiveCell.Offset(0, (ActiveCell.Column * (-1)) + 1).Range("A1" ).Select
- Selection.RowHeight = 12.75
- End If
- End Sub
|
Est-ce un problème de script VBS ou doit-on installer un framework, dll ou autres sur nos postes en office 2010 ?
Merci d'avance pour votre aide.
cdt,