XL 2021 Problème de macro sur Sharepoint

fenec · 27 Mars 2025

Bonsoir le forum,
Je rencontre un nouveau soucis avec ma macro qui fonctionne très bien sur un disque local comme sur un disque réseau.

Le souci est que je n'arrive pas la modifier pour qu'elle fonctionne sur sharepoint.
Jai bien essayé avec l'enregistreur de macro pour avoir le chemin mais je ne parviens pas à lui dire de l'enregistrer avec le nom de fichier désiré.

D'avance merci de votre aide si toute fois cela est possible sur sharepoint,

Cordialement,
Fenec

fenec · 1 Avril 2025

Bonsoir le forum, Staple1600

J'ai bien essayé d'utiliser vos macros pour pouvoir vérifier le chemin mais soit je les utilise mal sinon je ne parviens pas à voir les URL comme vous dites !!!

En conclusion mon code bloque toujours au même endroit qu'au poste #14.

Désolé d'insister mais je désespère sur cette sauvegarde sur SharePoint d'où ma question,

@Staple1600

Désolé de te sollicité une nouvelle fois mais j'ai vraiment besoin d'aide pour résoudre ce problème

Cordialement,
Fenec.

Staple1600 · 1 Avril 2025

Bonsoir le fil, @fenec

Tu as bien essayé en stockant sur One Drive
(c'est ce que je viens de faire)
Tu as une erreur ou pas ?
Il y a bien quelque chose qui s'affiche dans la fenêtre d'exécution ?

fenec · 7 Avril 2025

Bonsoir le forum, Staple1600,

Un grand merci avec un peu de retard , désolé Staple1600.

Pour t'en dire un peu plus je n'avais pas afficher la fenêtre d'exécution, je ne connaissais pas cette astuce.

Je garde ta solution bien au chaud car elle pourra me servir ultérieurement car je galère toujours avec le chemin.

Encore un grand merci à toi pour ton aide tout fonctionne parfaitement pour ce fichier Ouf!!

Cordialement,
Fenec.

wDog66 · 8 Avril 2025

Bernard_XLD à dit:
Bonjour le fil, le forum

alors là, merci !
je confirme que, pour moi, VBA Excel 365 fonctionne bien sur des fichiers stockés sur sharepoint, le gros problème est une gestion très galère des liens, des ouvertures de fichiers par VBA et des droits d'accès, mais je n'ai pas rencontré de problème sur des fichiers Xlsm entièrement autonomes (sans liens et sans accès à d'autres fichiers) lancés dans l'application excel locale à partir d'un serveur sharepoint accédé par teams
J'évite d'ailleurs systématiquement les sharepoints en développement s'il y a une possibilité d'utiliser un serveur physique.
Cette instruction que je viens de découvrir va bien me servir pour simplifier mes futurs codes, merci Staple pour ce partage.

Cordialement,
Bernard_XLD

Salut Berand_XLD et merci 👍

"je n'ai pas rencontré de problème sur des fichiers Xlsm entièrement autonomes (sans liens et sans accès à d'autres fichiers) lancés dans l'application excel locale à partir d'un serveur sharepoint accédé par teams"

Nous sommes bien d'accord !!!

Sinon voilà

Quand on m'affirme qu'un fichier ".XLSM" fonctionne sur SharePoint 🤭😂🤣😂🤣

Staple1600 · 8 Avril 2025

Bonjour le fil

@wDog66
Désolé, si je me suis mal-exprimé
Je voulais simplement dire que cela fonctionnait dans ma configuration au travail, qui (mais j'ai surement mal compris) utilise Sharepoint 2013.
Comme a l'époque j'ai galéré pour un simple publipostage, j'étais simplement content de partager ici mon expérience.

Le principal étant que Fenec semble avoir résolu son problème, non ?

fenec · 9 Avril 2025

Bonjour le forum, Staple1600,

Je reviens vers toi pour un problème similaire de sauvegarde et de chemin.
J'ai bien sur utilisé ton code pour définir le chemin mais cela ne fonctionne pas.
Comme tu parlais en début de post de renseigner dans le dur de "path" je pense qu'une fois de plus tu pourras m'aider.
Trouve ci dessous le code qui me pose problème

VB:

Sub Archiver_Equipages_xlsx()

Dim chemin$, jour&, nf$, w As Worksheet
chemin = ThisWorkbook.Path & "\Sauvegarde Equipages\" 'dossier à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For jour = DateSerial(Year(Date), Month(Date) - 2, 1) To DateSerial(Year(Date), Month(Date), 0)

    nf = Format(jour, "yyyy-mm-dd")
    '.Name = Format(x, """Equipage du ""yyyy-mm-dd")
   ' nf = Format(jour, """Equipage du ""yyyy-mm-dd")
    Set w = Nothing
    Set w = Sheets(nf)
    If Not w Is Nothing Then
        w.Copy 'nouveau document
        ActiveWorkbook.SaveAs chemin & w.Name, 51 'format 51 : .xlsx
        ActiveWorkbook.Close
        w.Delete
    End If
Next
End Sub

d'avance merci pour l'aide que tu pourrais me donner,
PS: j'ai utilisé les deux syntaxes mais aucune ne fonctionne
Cordialement,
Fenec.

Staple1600 · 9 Avril 2025

Bonjour le fil

@fenec

Code:

Sub Archiver_Equipages_Test()
Dim chemin$, jour&, nf$, w As Worksheet
chemin = ThisWorkbook.Path & "\Sauvegarde Equipages\" 'dossier à adapter
Msgbox chemin
'ou 
'Debug.Print chemin
End Sub

Si tu testes ta macro ainsi modifiée, qu'affiche le msgbox ?

fenec · 10 Avril 2025

Bonjour le forum, Staple1600?

Ta macro modifiée me donne une adresse internet comme suit:

VB:

https://XXXXXX/sites/FR-XXX/Documents partages/22.0 - OPERATION XXXX/22.10 - Production XXXX/Equipages\Sauvegarde Equipages\"

J'ai mis pour des "X" pour anonymisation.

Cordialement,
Fenec.

Staple1600 · 10 Avril 2025

Bonsoir

@fenec
Et ce chemin correspond-il à un chemin valide ?

Bernard_XLD · 10 Avril 2025

Bonjour

@fenec , ton adresse ne devrait logiquement pas comporter de caractères espaces mais l'équivalent en encodage URL
essayes l'adresse après un replace(adresse," ","%20") ou un replace(adresse," ","+"), les deux sont des espaces en encodage URL

en règle générale, j'essaie d'éviter les espaces dans les noms de dossier ou de fichiers sur serveur, quels qu'ils soient, cela finit toujours par poser des problèmes, je les remplace avantageusement par des _ qui, eux, ne m'ont jamais posé de problèmes.

Cordialement,
@+

fenec · 11 Avril 2025

Bonjour le forum, Staple1600, Bernard-XLD

Staple1600,
Me basant sur le même principe avec ta macro pour mon 1er problème je te dirais que oui.
De plus la macro s'exécute sans erreur sauf que dans le fichier "Sauvegarde équipages " il n'y a rien de sauvegarder et en plus les feuilles ont bien été supprimer comme demander en fin de code !!!

Bernard-XLD,
J'ai bien pris ta remarque en compte car dans mon 1er problème il y a bien des "%20" à la place des espace mais cela ne change rien, pas de feuilles sauvegardées mais également supprimées !!!

Cordialement,
Fenec.

Staple1600 · 12 Avril 2025

Bonjour le fil

@fenec
Ce code VBA

VB:

Sub Archiver_Equipages_xlsx()
Dim chemin$, jour&, nf$, w As Worksheet
chemin = ThisWorkbook.Path & "\Sauvegarde Equipages\" 'dossier à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For jour = DateSerial(Year(Date), Month(Date) - 2, 1) To DateSerial(Year(Date), Month(Date), 0)

    nf = Format(jour, "yyyy-mm-dd")
    '.Name = Format(x, """Equipage du ""yyyy-mm-dd")
   ' nf = Format(jour, """Equipage du ""yyyy-mm-dd")
    Set w = Nothing
    Set w = Sheets(nf)
    If Not w Is Nothing Then
        w.Copy 'nouveau document
        ActiveWorkbook.SaveAs chemin & w.Name, 51 'format 51 : .xlsx
        ActiveWorkbook.Close
        w.Delete
    End If
Next
End Sub

est stocké dans quel classeur et ce classeur est enregistré où?
Sur ton disque dur en local ?
Sur One Drive ?
Sur Sharepoint ?

fenec · 12 Avril 2025

Bonjour le forum, Staple1600,

@Staple1600
Le classeur est enregistré pour le moment sur un disque réseau au travail et le fichier de destination de l'archive également.
Le problème est que sur prise de décision de ma hiérarchie tous les collaborateurs doivent transférer leurs documents sur Sharepoint du fait de la suppression des disques réseau à court therme d'où ma problématique pour faire fonctionner les macros de certains classeur.

Cordialement
Fenec

Staple1600 · 12 Avril 2025

Re

@fenec
Donc actuellement, tu fais tes tests depuis un lecteur réseau ou depuis Sharepoint ?
Je viens de tester ton code (que j'ai mis à sauce pour occuper mon VBE 😉)

VB:

Sub Archiver_Equipages_xlsx_BIS()
Dim chemin$, jour As Date, w As Worksheet
chemin = ThisWorkbook.Path & "\"
With Application
    .ScreenUpdating = False: .DisplayAlerts = False
        On Error Resume Next
            For jour = .EoMonth(Date, -3) + 1 To .EoMonth(Date, -1)
                Set w = Nothing
                Set w = Sheets(Format(jour, "yyyy-mm-dd"))
                If Not w Is Nothing Then
                w.Copy 'nouveau document
                    With ActiveWorkbook
                        .SaveAs chemin & w.Name, 51
                        .Close False
                    End With
            w.Delete
            End If
        Next
    .ScreenUpdating = True: .DisplayAlerts = True
End With
End Sub

Il fonctionne sans souci en local (donc depuis mon disque dur)
J'essaierai au travail lundi depuis Sharepoint.

fenec · 12 Avril 2025

Re,
Chez moi aussi en local ou disque réseau il fonctionne correctement.
Actuellement j'essaie de le faire fonctionner sur Sharepoint.

Encore merci pour ton aide, bon week-end à lundi,

Fenec.

XL 2021 Problème de macro sur Sharepoint

fenec

XLDnaute Impliqué

Pièces jointes

fenec

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

wDog66

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fenec

XLDnaute Impliqué

Discussions similaires

XL 2021 Problème de macro sur Sharepoint

XLDnaute Impliqué

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency