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