Probleme fichier temporaire

Bonjour, j'ai un petit soucis mon fichier s'appelle Planning equipe 3x8 2019.xlsm ma macro marche avec le fichier normale mais lors de l'ouverture de mon fichier il me créait un fichier temporaire puisqu'il est sur un serveur qui empeche a la macro de fonctionner

ci-joint la capture d'ecran et la macro

comment faire

merci

Sub Workbook_Open()
Application.EnableEvents = False 'désactive les évènements
Range("A1") = Now
Workbooks.Open Filename:= _
        "\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm"
   Windows("Planning equipe 3x8 2019.xlsm").Activate
     Range("C13:NR13").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.ScrollColumn = 365
    ActiveWindow.ScrollColumn = 350
    ActiveWindow.ScrollColumn = 317
    ActiveWindow.ScrollColumn = 287
    ActiveWindow.ScrollColumn = 270
    ActiveWindow.ScrollColumn = 268
    ActiveWindow.ScrollColumn = 267
    ActiveWindow.ScrollColumn = 266
    ActiveWindow.ScrollColumn = 261
    ActiveWindow.ScrollColumn = 239
    ActiveWindow.ScrollColumn = 231
    ActiveWindow.ScrollColumn = 228
    ActiveWindow.ScrollColumn = 208
    ActiveWindow.ScrollColumn = 194
    ActiveWindow.ScrollColumn = 171
    ActiveWindow.ScrollColumn = 150
    ActiveWindow.ScrollColumn = 135
    ActiveWindow.ScrollColumn = 134
    ActiveWindow.ScrollColumn = 121
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 3
    Selection.Copy
    Range("C23").Select
    ActiveSheet.Paste
    Range("C33").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=21
    Range("C43").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=15
    Range("C53").Select
    ActiveSheet.Paste
    Range("C63").Select
    ActiveSheet.Paste
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ep2019_33100"
   Application.Run "'Planning equipe 3x8 2019.xlsm'!ferme_ep"
   Dim r As Range
On Error Resume Next
Set r = ActiveSheet.Rows(3).Find(Date): r.Select
On Error GoTo 0
If r Is Nothing Then MsgBox "Pas de date du jour dans cette colonne!", vbCritical, "Erreur"
 Range("A3") = Now

Application.EnableEvents = True 'désactive les évènements
Me.Activate
UserForm1.Show
Application.CutCopyMode = False

End Sub
capture

Bonjour

Excel comme la plupart des logiciels crée des fichiers temporaires : cela n'influe pas sur le fonctionnement du code ...

Ton code est à nettoyer et optimiser : c'est ingérable en l'état... Les application.Run lancent quoi concrètement ?

"empeche a la macro de fonctionner" ne veut rien dire : précise si tu as un message d'erreur ou ce qui se passe réellement

Bonjour

Excel comme la plupart des logiciels crée des fichiers temporaires : cela n'influe pas sur le fonctionnement du code ...

Ton code est à nettoyer et optimiser : c'est ingérable en l'état... Les application.Run lancent quoi concrètement ?

"empeche a la macro de fonctionner" ne veut rien dire : précise si tu as un message d'erreur ou ce qui se passe réellement

bonjour, et merci pour le temps que tu prends

j'ai un message erreur ligne9 avec le fichier temporaire mais que je n'ai pas avec le normal

les application run lance un fichier la macro ep33100 et ferme le fichier ep

pour la simplification je suis d'accord mais j'ai deja eu du mal a le faire fonctionner comme ca alors le simplifier c'est chaud vu mon niveau

cordialement

Re

Tes lignes n'étant pas numérotées dans ton post, merci de préciser le texte de la commande où se produit l'erreur.

Tout fichier ouvert crée un temporaire.

Tout les ActiveWindow.ScrollColumn ne servent à rien à part ralentir le code de même que les select...

On indique pour chaque action le classeur, la feuille et la plage sur lesquelles le code doit s'exécuter sinon le code peut agir sur n'importe quoi...

As-tu vérifié le déroulement en pas à pas ?

non on fait ca comment

Rechercher des sujets similaires à "probleme fichier temporaire"