Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
590 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2251089
kill9
Il a été tué vivant.
Posté le 18-02-2015 à 09:00:26  profilanswer
 

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
  77.         'Selection de la première colonne de la ligne créée
  78.         ActiveCell.Offset(0, (ActiveCell.Column * (-1)) + 1).Range("A1" ).Select
  79.         Selection.RowHeight = 12.75
  80.     End If
  81. 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,

mood
Publicité
Posté le 18-02-2015 à 09:00:26  profilanswer
 

n°2251121
Marc L
Posté le 18-02-2015 à 11:47:15  profilanswer
 

 
           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 ! …
 

n°2251122
kill9
Il a été tué vivant.
Posté le 18-02-2015 à 12:08:02  profilanswer
 

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

n°2251164
Marc L
Posté le 18-02-2015 à 17:24:09  profilanswer
 

 
           É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 …
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
utilisation du framework Spring MVCUtilisation de librairie C avec node.js
Script powershell et fichier CSVErreur mapping lecteur reseau
[VBA] Erreur 1004 selon dénomination celluleImporter valeurs depuis un fichier texte dans des variables VBS
Script Freebox - Vider un repertoire tous les joursScript animation bandeau déroulant
[PowerShel] Création utilisateur Office 365 via script powershell 
Plus de sujets relatifs à : [VBS] Erreur lors de l'utilisation d'un script sous office 2010


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR