Probleme avec un classeur, et demande d'aide.

[WDAndCo]

Bonjour le Forum
1) - J'ai un probleme avec un classeur, voir la copie d'écran, ce classeur fonctionne sans probleme sur d'autres machines. Pourquoi ?

2) - J'ai le code qui suit (celui qui me pose probleme) ce code liste les classeurs dans un dossier, puis découpe leurs noms pour remplir une BDD.

Sub ListeTablo()
  Dim DLig As Long, FolderFiles() As Variant
  Dim Tmp As String, fCount As Long
  Dim Ind
  Dim sPath As String
  ' Désinhiber certaines fonctions d'Excel
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  
  With Sheets("Choix")
    .Activate
    DLig = .Range("R" & Rows.Count).End(xlUp).Row
    If DLig >= 2 Then
      .Range("A2:T" & DLig).ClearContents
    End If
    .Rows("1:1").AutoFilter Field:=17, Criteria1:="="
  End With
  On Error Resume Next
  ActiveSheet.ShowAllData
  On Error GoTo 0
  
  MiseEnPlaceColonnes
  
  ' Initialisation
  sPath = ThisWorkbook.Path & "\Fiche MP\"
  fCount = 0
  Tmp = Dir(sPath & "*.*")
  While Tmp <> Empty
    fCount = fCount + 1
    ReDim Preserve FolderFiles(1 To fCount)
    FolderFiles(fCount) = Tmp
    Tmp = Dir
  Wend
  
  ' Transposer le tableau dans la colonne R
  Dim L&, C&, TSpl
  
  ReDim Trésu(1 To fCount, 1 To 19)
  For L = 1 To fCount
   TSpl = Split(Replace(FolderFiles(L), ".xls", "________"), "_")
    For C = 1 To 19: Trésu(L, C) = TSpl(C): Next C
    Trésu(L, 18) = FolderFiles(L)
    Trésu(L, 19) = "Fiche " & L
    Next L
  Cells(2, 1).Resize(fCount, 19).Value = Trésu
  
  Cells(1, 28).Value = L - 1 'Le Nombre de Fichier en AB1
  
  Remiseazero
  
  ' Inhiber certaines fonctions d'Excel
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlCalculationAutomatic
  
  Cells.Sort Key1:=Range("R1"), Order1:=xlDescending, Header:=xlYes, _
                 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                 DataOption1:=xlSortNormal

  Range("T1").Select
  MsgBox "La Base est à jour !" & Chr$(13) & Chr$(13) & "Avec " & Cells(1, 28).Value & " fiches de Maintenance"
End Sub

Est il possible de ne pas lancer cette macro lorsque le nombre de dossier contenu est égal au nombre en mémoire du tableau qui est dans la cellule AB1 ou Cells(1, 28) car cette Macro prends un certain temps.

D'avance merci.
Dominique

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Bonjour,

pour ta 1ère question, peut être une référence manquante, dans l'éditeur vba => barre de menu => outils => références, regarde si il y en a une de "topée" "MANQUANTE", si c'est le cas décoches la, enregistre le classeur ferme le et ré ouvre...

bonne soirée
@+

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Bonjour le Forum et Pierrot93, dans l'éditeur vba => barre de menu => outils => références : est gris clair, donc inaccessible !
Merci

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Re,

le fichier est en lecture seule ??

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Le Classeur n'est pas en lecture seule.

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Re,

aucun code ne doit être en cours d'exécution.... sinon pas d'autre idée...

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Re en faite il y a cela a l'ouverture du classeur,

Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = 0
Call ListeTablo
End Sub

voir ma 2eme question pour éviter le lancement de cette macro.

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Re,

mets un quote devant le "call"

'Call ListeTablo

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Re le Classeur se lance sans probleme, mais cela est normal car la macro de ne se lance pas.
Si j’exécute la macro j'ai le même message d'erreur.

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Re,

et les "références" sont accessibles ?

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Oui

 

[Pierrot93]

Re : Probleme avec un classeur, et demande d'aide.

Re,

ok, suis maintenant les indications données post 2...

 

[WDAndCo]

Re : Probleme avec un classeur, et demande d'aide.

Ola, merci beaucoup.