MACRO désactivée sur un serveur
Bonjour à tous,
J'ai une macro qui marche très bien lorsque mes dossiers sont positionnées sur mon disque dure (sur le bureau de l'ordi). J'ai cepàendant un problème lorsque j'envoir l'ensemble de mes dossier sur le serveur commun de mon entreprise, ma macro ne fonctionne plus, alors que les dossiers sont copier-collé à l'identique.
Pourquoi?
Voci la macro :
Sub Desactive()
Application.DisplayAlerts = False 'Arret des alertes
Application.ScreenUpdating = False 'Arret rafraichissement ecran
ActiveSheet.EnableCalculation = False 'Evite le re-calcul de feuil1
End Sub
Sub consolide()
Range("A11:I65536").ClearContents 'Efface le contenu des cellules sous le tableau
Application.ScreenUpdating = False 'évite la visualisation de l'ouverture et de la fermeture des fichiers sources
ChDir ActiveWorkbook.Path 'permet de récupérer les informations dans les tableaux sources
Set recap_MASS = ActiveWorkbook
compteur = 1
nf = Dir("*feuille_essai_massif bois lamelle collé 030604.xls")
Do While nf <> ""
If nf <> recap_MASS.Name Then
Workbooks.Open Filename:=nf
recap_MASS.Sheets(1).Cells(compteur + 10, 4 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E46").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 5 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M44").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 2 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E51").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 3 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E49").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("N13").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 6 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M51").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 7 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M46").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 8 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("D11").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 1 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("N13").Value
compteur = compteur + 1
Workbooks(nf).Close False
End If
nf = Dir
Loop
Application.ScreenUpdating = True 'évite la visualisation de l'ouverture et de la fermeture des fichiers sources
End Sub
Sub Erreur()
On Error Resume Next ' désactive les erreurs
Range("f25:i32").SpecialCells(xlCellTypeConstants, 1).Select
On Error GoTo 0 '
End Sub
Quand je suis en mode pats à pats sur le serveur, il passe directement de "Do While nf <> "" " à "Application.ScreenUpdating = True 'évite la visualisation de l'ouverture et de la fermeture des fichiers sources" .
Le code évite totalement le code :
If nf <> recap_MASS.Name Then Workbooks.Open Filename:=nf
recap_MASS.Sheets(1).Cells(compteur + 10, 4 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E46").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 5 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M44").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 2 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E51").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 3 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("E49").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("N13").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 6 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M51").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 7 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("M46").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 8 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("D11").Value
recap_MASS.Sheets(1).Cells(compteur + 10, 1 + 1) = Workbooks(nf).Sheets("BOIS MASSIF").Range("N13").Value
compteur = compteur + 1
Workbooks(nf).Close False
End If
nf = Dir
Loop
C'est vrailment étrange car ca ne le fait que sur mon serveur informatique sur le bureau pas de problème.
Merci
