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