MACRO désactivée sur un serveur

  • Initiateur de la discussion Initiateur de la discussion ahd44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ahd44

XLDnaute Nouveau
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

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
2
Affichages
461
Réponses
2
Affichages
404
Réponses
9
Affichages
893
Retour