Microsoft 365 Gestion des liens d'enregistrement

julien1982 · 20 Février 2024

Bonjour a toutes et tous,

je vais essayer d’être clair dans mon explication et mon problème.
Je possède un fichier de gestion et création de bordereaux d'envoi qui fonctionnait parfaitement lorsque l'on travaillait en local.
Depuis peu, nous sommes passer sur office 365 avec sharepoint.

Depuis ce jour, mes macro ne fonctionnent pas correctement notamment la macro 'publier' situer dans l'onglet "Bordereau Destinataire' du fichier joint.

Cette macro me permettait de faire une copie des onglets "Bordereau Destinataire" et "Bordereau AR" dans le chemin enregistré et écrit en cellule C de l'onglet "Liste Chemins". Du moment ou nous sommes passer à Sharepoint, impossible de faire marcher cette macro pour qu'elle m'enregistre mes fichiers au bon endroit car les chemins sont différents suivant qui utilise le fichier. Par exemple, si je l'utilise sur mon PC portable j'aurai comme chemin:

C:\Users\dessin\chemin de destination....

hors si je le fais depuis mon PC fixe au bureau j'aurai le chemin suivant:

C:\Users\Julien Verdier\chemin de destination...

Seule la partie rouge du chemin est différente, tout le reste après est identique.

Du coup n'ayant pas le même nom d'utilisateur cela ne marche plus....

j’espère avoir été clair, si besoin je referai plus détaillé.

Je suis preneur si quelqu'un a une solution quitte à reprendre tout le code c'est pas un soucis.

merci par avance.

Phil69970 · 20 Février 2024

Bonjour Julien

Je te propose un test copie ce code VBA et dans une feuille vierge que tu nommes "Feuille Test" regarde le résultat :
1) Avec ton portable
2) Avec ton PC fixe
Tu devrais voir le chemin qui va bien ..... (regarde surtout en A6 et A7) 😉

VB:

Sub Test()
Sheets("Feuille Test").[A1] = Environ("ALLUSERSPROFILE")
Sheets("Feuille Test").[A2] = Environ("APPDATA")
Sheets("Feuille Test").[A3] = Environ("FPS_BROWSER_USER_PROFILE_STRING")
Sheets("Feuille Test").[A4] = Environ("HOMEPATH")
Sheets("Feuille Test").[A5] = Environ("LOCALAPPDATA")
Sheets("Feuille Test").[A6] = Environ("OneDrive")
Sheets("Feuille Test").[A7] = Environ("OneDriveConsumer")
Sheets("Feuille Test").[A8] = Environ("PUBLIC")
Sheets("Feuille Test").[A9] = Environ("USERDOMAIN")
Sheets("Feuille Test").[A10] = Environ("USERDOMAIN_ROAMINGPROFILE")
Sheets("Feuille Test").[A11] = Environ("USERNAME")
Sheets("Feuille Test").[A12] = Environ("USERPROFILE")
End Sub

Merci de ton retour

julien1982 · 22 Février 2024

Phil69970 à dit:
Bonjour Julien

Je te propose un test copie ce code VBA et dans une feuille vierge que tu nommes "Feuille Test" regarde le résultat :
1) Avec ton portable
2) Avec ton PC fixe
Tu devrais voir le chemin qui va bien ..... (regarde surtout en A6 et A7) 😉

VB:

Sub Test() Sheets("Feuille Test").[A1] = Environ("ALLUSERSPROFILE") Sheets("Feuille Test").[A2] = Environ("APPDATA") Sheets("Feuille Test").[A3] = Environ("FPS_BROWSER_USER_PROFILE_STRING") Sheets("Feuille Test").[A4] = Environ("HOMEPATH") Sheets("Feuille Test").[A5] = Environ("LOCALAPPDATA") Sheets("Feuille Test").[A6] = Environ("OneDrive") Sheets("Feuille Test").[A7] = Environ("OneDriveConsumer") Sheets("Feuille Test").[A8] = Environ("PUBLIC") Sheets("Feuille Test").[A9] = Environ("USERDOMAIN") Sheets("Feuille Test").[A10] = Environ("USERDOMAIN_ROAMINGPROFILE") Sheets("Feuille Test").[A11] = Environ("USERNAME") Sheets("Feuille Test").[A12] = Environ("USERPROFILE") End Sub

Merci de ton retour

Slt Phil69970,

merci pour ton retour.

ci joint une capture du retour de la macro

Mais du coup je ne sais quoi en faire 😅

Phil69970 · 22 Février 2024

Julien

C'est l'image avec ton portable à priori il manque l'autre image !!
Tu dois avoir 2 listes

Phil69970 à dit:
1) Avec ton portable
2) Avec ton PC fixe

L'idée est de regarder le chemin affiché avec les 2 ordinateurs chez toi. (A priori A4, A6, A11 et/ou A12 est une bonne piste )
Si mon idée se confirmes tu remplaces par le chemin générique......environ ("....") qui va bien .... 😉
Je m'absente toute la journée je regarderai à mon retour si tu as mis les 2 listes

julien1982 · 22 Février 2024

Phil69970 à dit:
Julien

C'est l'image avec ton portable à priori il manque l'autre image !!
Tu dois avoir 2 listes

L'idée est de regarder le chemin affiché avec les 2 ordinateurs chez toi. (A priori A4, A6, A11 et/ou A12 est une bonne piste )
Si mon idée se confirmes tu remplaces par le chemin générique......environ ("....") qui va bien .... 😉
Je m'absente toute la journée je regarderai à mon retour si tu as mis les 2 listes

Ah OK. je regarderai ça quand je serai au boulot aussi ce soir ou demain. Au pire lundi.

julien1982 · 27 Février 2024

Phil69970 à dit:
Julien

C'est l'image avec ton portable à priori il manque l'autre image !!
Tu dois avoir 2 listes

L'idée est de regarder le chemin affiché avec les 2 ordinateurs chez toi. (A priori A4, A6, A11 et/ou A12 est une bonne piste )
Si mon idée se confirmes tu remplaces par le chemin générique......environ ("....") qui va bien .... 😉
Je m'absente toute la journée je regarderai à mon retour si tu as mis les 2 listes

Re salut,

désolé du retard petit soucis privé donc pas eu le temps de regarder avant.
ci joint la sortie a partir de mon pc fixe

Du coup cela signifie que je dois modifier quoi dans mes lignes de codes?

Phil69970 · 27 Février 2024

Bonjour Julien

Je te propose pour avoir ceci

C:\Users\dessin\chemin de destination....

ou bien cela

C:\Users\Julien Verdier\chemin de destination...

De faire :

Environ("USERPROFILE") & "\" & "Monchemindedestinationquivabien" 'A adapter bien sur 🤣

Ce qui devrait te donner le bon chemin selon ou tu te trouves ... 😉

Merci de ton rtour

julien1982 · 28 Février 2024

Phil69970 à dit:
Bonjour Julien

Je te propose pour avoir ceci

ou bien cela

De faire :

Ce qui devrait te donner le bon chemin selon ou tu te trouves ... 😉

Merci de ton rtour

Slt,

merci pour ton retour.

je viens de faire cette modif pour le chemin par défaut.

Maintenant il me reste juste a modifier la variable chemin si je comprend bien...qui lui va chercher la cellule F2 dans la feuille "Liste Chemins"

Phil69970 · 28 Février 2024

Bonjour Julien

Pas sur que cela fonctionne avec ce que tu as fait car tu as 2 fois de suite "\" dans ton chemin 😵
Avec une image c'est pas trop facile de te répondre car il faut tout recopier à la main !!! 🤔

julien1982 · 29 Février 2024

Phil69970 à dit:
Bonjour Julien

Pas sur que cela fonctionne avec ce que tu as fait car tu as 2 fois de suite "\" dans ton chemin 😵
Avec une image c'est pas trop facile de te répondre car il faut tout recopier à la main !!! 🤔

effectivement j'aais pas fait gafe au double "\".

Ci dessous le code en clair ca sera plus simple évidement....
J’aurai bien donné le fichier également mais il est trop volumineux...

Sub Bouton_Publier_Click()
ActiveWorkbook.Save
Dim CheminDefaut, CheminEnr, Fichier As String

'CheminDefaut = "C:\Users\Julien Verdier\Documents\_DATA\05_Gestion BE\60-Bordereaux"
CheminDefaut = Environ("USERPROFILE") & "\_DATA\05_Gestion BE\60-Bordereaux"
Fichier = Cells(8, 4).Value

CheminEnr = Worksheets("Listes Chemins").Range("F2").Value 'on vient chercher le chemin inscrit dans la cellule F2 de l'onglet "Liste Chemins" (formule ecrivant le chemin complet d'enregistrement
If Worksheets("Listes Chemins").Range("F2").Value <> "" Then
If Dir(CheminEnr, vbDirectory) = "" Then
MsgBox "Chemin Non Trouvé --" & vbCr & CheminEnr & vbCr & "Reprise du chemin par defaut --" & vbCr & CheminDefaut
CheminEnr = CheminDefaut
Else
MsgBox " Enregistrement fait sur" & vbCr & CheminEnr
End If
Else
MsgBox "Pas de Chemin enregistré" & vbCr & "Reprise du chemin par defaut " & CheminDefaut
CheminEnr = CheminDefaut
End If

ActiveSheet.Unprotect
Sheets("Bordereau Destinataire").Select
ActiveSheet.Shapes("1 - Publier").Select
Selection.Delete

'-------------------------------------------------------------------------------------------------------------
'enregistrement du bordereau au bon endroit
ActiveWorkbook.SaveAs Filename:=CheminEnr & "\" & Fichier & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'ActiveWorkbook.SaveAs Filename:=CheminEnr & "\" & Fichier & ".xlsm", FileFormat _
' :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
' False, CreateBackup:=False

'on déprotège la feuille
ActiveSheet.Unprotect

'on supprime les liens en remplaçant les formules par les valeurs de cellules
ActiveSheet.Cells(6, 4) = ActiveSheet.Cells(6, 4).Value
ActiveSheet.Cells(7, 9) = ActiveSheet.Cells(7, 9).Value
ActiveSheet.Cells(11, 8) = ActiveSheet.Cells(11, 8).Value

'on protège la feuille
ActiveSheet.Protect

' ActiveWorkbook.BreakLink Name:= _
' "G:\Bordereaux\Gestion des Bordereaux\Gestion des Bordereaux001.xlsm", _
' Type:=xlLinkTypeExcelLinks

'on enregistre la feuille
ActiveWorkbook.Save

End Sub

TooFatBoy · 29 Février 2024

Bonjour,

Pour que ton code soit un peu plus lisible sur le forum, tu peux utiliser la balise code.
Et avec le paramètre vb ce sera encore mieux. 😉

julien1982 · 29 Février 2024

TooFatBoy à dit:
Bonjour,

Pour que ton code soit un peu plus lisible sur le forum, tu peux utiliser la balise code.
Et avec le paramètre vb ce sera encore mieux. 😉

Effectivmeent cela sera moins degueu 😉
dsl pour la saleté precedente 🙂

VB:

Sub Bouton_Publier_Click()
ActiveWorkbook.Save
Dim CheminDefaut, CheminEnr, Fichier As String

'CheminDefaut = "C:\Users\Julien Verdier\Documents\_DATA\05_Gestion BE\60-Bordereaux"
CheminDefaut = Environ("USERPROFILE") & "\_DATA\05_Gestion BE\60-Bordereaux"
Fichier = Cells(8, 4).Value

CheminEnr = Worksheets("Listes Chemins").Range("F2").Value 'on vient chercher le chemin inscrit dans la cellule F2 de l'onglet "Liste Chemins" (formule ecrivant le chemin complet d'enregistrement
If Worksheets("Listes Chemins").Range("F2").Value <> "" Then
If Dir(CheminEnr, vbDirectory) = "" Then
MsgBox "Chemin Non Trouvé --" & vbCr & CheminEnr & vbCr & "Reprise du chemin par defaut --" & vbCr & CheminDefaut
CheminEnr = CheminDefaut
Else
MsgBox " Enregistrement fait sur" & vbCr & CheminEnr
End If
Else
MsgBox "Pas de Chemin enregistré" & vbCr & "Reprise du chemin par defaut " & CheminDefaut
CheminEnr = CheminDefaut
End If



ActiveSheet.Unprotect
Sheets("Bordereau Destinataire").Select
ActiveSheet.Shapes("1 - Publier").Select
Selection.Delete


'-------------------------------------------------------------------------------------------------------------
'enregistrement du bordereau au bon endroit
ActiveWorkbook.SaveAs Filename:=CheminEnr & "\" & Fichier & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'ActiveWorkbook.SaveAs Filename:=CheminEnr & "\" & Fichier & ".xlsm", FileFormat _
' :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
' False, CreateBackup:=False

'on déprotège la feuille
ActiveSheet.Unprotect

'on supprime les liens en remplaçant les formules par les valeurs de cellules
ActiveSheet.Cells(6, 4) = ActiveSheet.Cells(6, 4).Value
ActiveSheet.Cells(7, 9) = ActiveSheet.Cells(7, 9).Value
ActiveSheet.Cells(11, 8) = ActiveSheet.Cells(11, 8).Value

'on protège la feuille
ActiveSheet.Protect

' ActiveWorkbook.BreakLink Name:= _
' "G:\Bordereaux\Gestion des Bordereaux\Gestion des Bordereaux001.xlsm", _
' Type:=xlLinkTypeExcelLinks

'on enregistre la feuille
ActiveWorkbook.Save


End Sub

Phil69970 · 29 Février 2024

Bonjour Julien et TFB

A priori ceci devrait être correct

Sub Bouton_Publier_Click()
ActiveWorkbook.Save
Dim CheminDefaut, CheminEnr, Fichier As String

'CheminDefaut = "C:\Users\Julien Verdier\Documents\_DATA\05_Gestion BE\60-Bordereaux"
~~'CheminDefaut = Environ("USERPROFILE") & "\_DATA\05_Gestion BE\60-Bordereaux"~~
CheminDefaut = Environ("USERPROFILE") & "\" & "Documents\_DATA\05_Gestion BE\60-Bordereaux"
Fichier = Cells(8, 4).Value

Par contre il est possible d'avoir un PB ici mais il faudrait savoir ce qu'il y a dans la cellule F2

CheminEnr = Worksheets("Listes Chemins").Range("F2").Value 'on vient chercher le chemin inscrit dans la cellule F2 de l'onglet "Liste Chemins" (formule ecrivant le chemin complet d'enregistrement

julien1982 · 29 Février 2024

Phil69970 à dit:
Bonjour Julien et TFB

A priori ceci devrait être correct

Par contre il est possible d'avoir un PB ici mais il faudrait savoir ce qu'il y a dans la cellule F2

Bonjour Phil, merci pour la correction apportée.

ci joint un extrait du fichier car je n'arrive pas le mettre entier car trop volumineux apparemment.
Mais il y aura la formule dan la cellule F2.

Phil69970 · 29 Février 2024

Julien

A part qu'il n'y a rien ici !!!

Fichier = Cells(8, 4).Value

Donc fichier te renverra du vide 🤔

Le reste devrait fonctionner comme tu le souhaites 😉

Microsoft 365 Gestion des liens d'enregistrement

julien1982

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

julien1982

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

julien1982

XLDnaute Occasionnel

Pièces jointes

Phil69970

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Gestion des liens d'enregistrement

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency