[VBS] Erreur lors de l'utilisation d'un script sous office 2010

Erreur lors de l'utilisation d'un script sous office 2010 [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 18-02-2015 à 09:00:26    

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 :
  1. '------------------------------------------------------------------
  2. 'Création d'une ligne dans le suivi de commande--------------------
  3. Sub CreateLigne()
  4. '
  5. ' CreateLigne Macro
  6. '
  7. 'Si le tableau est sélectionné
  8. If ActiveCell.Row <= 3 Then
  9. MsgBox ("Sélectionner une case du tableau." )
  10. Else
  11.     Dim OngletPrincipal As String
  12.     OngletPrincipal = NomMainOnglet
  13.    
  14.     'Variable dernière colonne
  15.     der_col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
  16.     'Variable dernière ligne
  17.     der_lig = Cells(Cells.Rows.Count, 1).End(xlUp).Row
  18.    
  19.     'Rajout dernière ligne avec la Date du jour
  20.         Range("A" & der_lig & ":S" & der_lig).Select
  21.         Selection.Copy
  22.         Range("A" & der_lig + 1).Select
  23.         ActiveSheet.Paste
  24.         Application.CutCopyMode = False
  25.         Selection.ClearContents
  26.         With Selection.Interior
  27.             .Pattern = xlNone
  28.             .TintAndShade = 0
  29.             .PatternTintAndShade = 0
  30.         End With
  31.         Range("E" & der_lig).Select
  32.         Selection.Copy
  33.         Range("E" & der_lig + 1).Select
  34.         ActiveSheet.Paste
  35.         Application.CutCopyMode = False
  36.         Range("G" & der_lig + 1).Value = Date
  37.         Range("A" & der_lig + 1 & ":S" & der_lig + 1).Select
  38.                 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  39.                 Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  40.                 With Selection.Borders(xlEdgeLeft)
  41.                     .LineStyle = xlContinuous
  42.                     .ColorIndex = 0
  43.                     .TintAndShade = 0
  44.                     .Weight = xlThin
  45.                 End With
  46.                 With Selection.Borders(xlEdgeTop)
  47.                     .LineStyle = xlContinuous
  48.                     .ColorIndex = 0
  49.                     .TintAndShade = 0
  50.                     .Weight = xlThin
  51.                 End With
  52.                 With Selection.Borders(xlEdgeBottom)
  53.                     .LineStyle = xlContinuous
  54.                     .ColorIndex = 0
  55.                     .TintAndShade = 0
  56.                     .Weight = xlThin
  57.                 End With
  58.                 With Selection.Borders(xlEdgeRight)
  59.                     .LineStyle = xlContinuous
  60.                     .ColorIndex = 0
  61.                     .TintAndShade = 0
  62.                     .Weight = xlThin
  63.                 End With
  64.                 With Selection.Borders(xlInsideVertical)
  65.                     .LineStyle = xlContinuous
  66.                     .ColorIndex = 0
  67.                     .TintAndShade = 0
  68.                     .Weight = xlThin
  69.                 End With
  70.                 With Selection.Borders(xlInsideHorizontal)
  71.                     .LineStyle = xlContinuous
  72.                     .ColorIndex = 0
  73.                     .TintAndShade = 0
  74.                     .Weight = xlThin
  75.                 End With
  76.         Range("A" & der_lig + 1).Select
  78.         'Selection de la première colonne de la ligne créée
  79.         ActiveCell.Offset(0, (ActiveCell.Column * (-1)) + 1).Range("A1" ).Select
  80.         Selection.RowHeight = 12.75
  81.     End If
  82. 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,

Reply

Marsh Posté le 18-02-2015 à 09:00:26   

Reply

Marsh Posté le 18-02-2015 à 11:47:15    

 
           Bonjour,
 
           ce n'est pas du tout du VBScript !
 
           Conformément aux règles du forum et vu le code incomplet, ce serait plus simple d'indiquer la ligne déclenchant l'erreur ! …
 

Reply

Marsh Posté le 18-02-2015 à 12:08:02    

Désolé pour cette erreur.
La ligne déclenchant l'erreur est la suivante, variable der_col:
15.    der_col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
Visiblement, si on déclare un Dim de der_col, c'est la ligne 17 qui pose problème. (der_lig)
Et si on corrige aussi celle-ci, cela part sur
 36.        Range("G" & der_lig + 1).Value = Date
"Date" pose pb.
 
Merci

Reply

Marsh Posté le 18-02-2015 à 17:24:09    

 
           Éventualité d'une référence manquante …
 
           Dans le VBE, vérifier sur un PC sans souci quelles références sont cochées via le menu Outils
           puis comparer sur un PC posant problème …
 

Reply

Sujets relatifs:

Leave a Replay

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