Macro d'enregistrement de fichier bug

[fjulied]

Bonjour,

J'ai réalisé une macro qui me permet grâce à une boucle d'enregistrer un fichier sous un nom de magasin après avoir actualisé le tableau croisé dynamique
1- Actualisation du TCD avec le nom du magasin
2- Enregistrement du fichier sous le nom du magasin
3- Boucle pour passer au magasin suivant

Seulement, la macro plante systématique au moment de l'enregistrement (ligne Activeworkbook.save...). J'appuie sur le bouton Play et elle recommence. Il n'y a pas de réél bug semble-t-il. J'ai essayé une méthode wait [Application.Wait (Now + TimeValue("0:00:20"))] mais cela ne marche pas non plus !
Merci de me dire ce qui ne fonctionne pas bien

PS : C'est un enregistrement vers une URL intranet (Windows SharePoint)


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub enregistrement
Dim Fichier As String
Dim chemin As String
Dim Mag As String ' numéro du magasin
Dim Magasin As String 'nom du magasin
Dim ligne As Integer 'numéro de la ligne du magasin

Workbooks.Open Filename:= _
"\\sfi350\Bureautique\BU_Cuisine\Pôle Administratif\Assistantes Pole Adm\Suivi Dossiers\Tous Magasins\Dossiers à risque\Exports Biz Dossiers à risque validés.xls"


Windows("Enregistrement SharePoint Dossiers à risque.xls").Activate

ligne = 21
While Range("B" & ligne) <> 0

Windows("Enregistrement SharePoint Dossiers à risque.xls").Activate
Mag = Range("B" & ligne)
Magasin = Range("C" & ligne)
Filiale = Range("D" & ligne)
'chemin = "\\tui351\Reporting_Magasins\Documents partages\" & Filiale & "\" & Magasin & "\Dossiers à risque " & Magasin
chemin = "\\tui351\activite_CSC\Documents partages\Dossiers à risque\" & Filiale & "\Dossiers à risque " & Magasin

''''''''''''''Créer et Enregistrer le fichier dans SharePoint '''''''''''''''''''
Windows("Exports Biz Dossiers à risque validés.xls").Activate
Sheets("Dossiers à risques").Activate
Range("B1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("magasin"). _
CurrentPage = Mag

'Copier / coller la feuille dans un nouveau classeur sous ce chemin d'accès
Sheets("Dossiers à risques").Copy
Application.DisplayAlerts = False


ChDir _
"\\tui351\activite_CSC\Documents partages\Dossiers à risque\" & Filiale
ActiveWorkbook.SaveAs Filename:=chemin & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

ActiveWindow.Close


ligne = ligne + 1
Windows("Enregistrement SharePoint Dossiers à risque.xls").Activate
Wend

End sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 

[James007]

Re : Macro d'enregistrement de fichier bug

Bonjour,

Il me semble que ton chemin a une toute petite erreur :
\Dossiers à risque\
A+

 

[fjulied]

Re : Macro d'enregistrement de fichier bug

Merci de ta réponse rapide.

Mon chemin est en fait tout ce qui précède le .xls

Mon fichier est par exemple
\\tui351\activite_CSC\Documents partages\Dossiers à risque\" & Filiale & "\Dossiers à risque Bron.xls

Si j'avais une erreur dans le chemin, cela buggerait sans repartir mais là ça me fait une erreur d'execution 1004 et ça repart sans que je modifie quoique ce soit dans le code.

 

[fjulied]

Re : Macro d'enregistrement de fichier bug

Alors, personne n'a de réponse pour moi ?
Nous perdons beaucoup de temps à redemarrer la macro à chaque fois, il y a quand même 30 magasins !!!

Merci de votre aide

 

[fjulied]

Re : Macro d'enregistrement de fichier bug

J'ai un collègue trop fort :
il fallait faire un code
On error go to Reprise
et mettre en bas du code

Reprise :
ActiveWorkbook.SaveAs Filename:=chemin & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Puis faire un autre code de reprise
Goto suite
pour reprendre dans la boucle