Indiquer un chemin relatif pour accéder à une source

[Fab117]

Hello,

Pour la mise en forme de l'en-tête, je demande à ma macro d'aller me chercher une photo stockée dans un répertoire défini:

ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\data\Fab\Template\Logos\LogoFab.png"
With ActiveSheet.PageSetup.LeftHeaderPicture
.Height = 51.6
.Width = 104.4
End With

Est-il possible de simplifier le chemin d'accès à la photo si mon fichier Excel se trouve dans le répertoire "Template" ?
En fait, mon logo se trouvera sur un share point.

Merci d'avance et excellente soirée.

Fab

 

[Fab117]

Re : Indiquer un chemin relatif pour accéder à une source

J'ai trouvé.

ActiveWorkbook.Path & "\Logos\LogoFab.png"

Bonne soirée.

Fab

 

[Fab117]

Re : Indiquer un chemin relatif pour accéder à une source

Désolé, nouvelle difficulté.

Ca fonctionne parfaitement pour l'insertion du logo.
Par contre, ça ne fonctionne pas pour lui indiquer où trouver un modèle de graphique.

Mon code initial était:
ActiveChart.ApplyChartTemplate ( _
"C:\data\Fab\Template\Charts\Gantt Presentation.crtx" _
)

Mon fichier Excel se trouve dans le sous répertoire "Template"

1) J'ai essayé
ActiveChart.ApplyChartTemplate ( _
ActiveWorkbook.Path & "\Charts\Gantt Presentation.crtx" _
)

Mais la macro a planté.

2) J'ai essayé de mettre le chemin complet dans une variable
AccesTemplate = ActiveWorkbook.Path & "\Charts\Gantt Presentation.crtx"
ActiveChart.ApplyChartTemplate ( _
AccesTemplate _
)

Elle a planté.
En contrôlant le contenu de la variable "AccesTemplate", j'ai vu que les séparations pour la partie ActiveWorkbook.Path étaient des "/"
3) => j'ai changé dans ma variable :
AccesTemplate = ActiveWorkbook.Path & "/Charts/Gantt Presentation.crtx"
ActiveChart.ApplyChartTemplate ( _
AccesTemplate _
)

Mais elle plante toujours.

Quelqu'un aurait-il une proposition ?

Merci d'avance.

Fab

 

[Fab117]

Re : Indiquer un chemin relatif pour accéder à une source

Hello,
J'ai récupéré le chemin d'accès au modèle (qui est sur un share point) =>

ActiveChart.ApplyChartTemplate ( _
"https://www.sharepoint.net/sites/cheminDAcces/.../Charts/Gantt Presentation.crtx" _
)

Mais la macro plante sur cette ligne.

Quelqu'un aurait-il une idée ?

Merci d'avance.

Fab

 

[Fab117]

Re : Indiquer un chemin relatif pour accéder à une source

Hello,
Comme prposé sur :
J'ai essayé de corriger le chemin d'accès au template selon :
myFilePath = replace(myFilePath, "/", "\")
myFilePath = replace(myFilePath, "http:", "")
myFilePath = replace(myFilePath, " ", "%20")

Mais sans succès


Quelqu'un aurait-il une proposition ?

Bonne soirée.

Fab

 

[STephane]

Re : Indiquer un chemin relatif pour accéder à une source

bonjour

cela marche chez moi

ActiveChart.SaveChartTemplate _
    Filename:="c:\temp\Presentation Chart.crtx"


Stop


ActiveChart.ApplyChartTemplate Filename:="c:\temp\Presentation Chart.crtx"

si ça marche toujours pas, peut-être qu'il faut passer un nom UNC, tu peux le faire avec les éléments ci-dessous

' à coller en haut d'un module
Private Declare Function SetCurrentDirectory _
Lib "kernel32" _
Alias "SetCurrentDirectoryA" ( _
ByVal lpPathName As String) _
As Long

Function Path2UNC(sFullName As String) As String
    ' Converts the mapped drive path in sFullName to a UNC path if one exists.
    ' If not, returns a null string


    Dim sDrive      As String
    Dim i           As Long
    Dim ModDrive1 As String


    Application.Volatile


    sDrive = UCase(Left(sFullName, 2))


    With CreateObject("WScript.Network").EnumNetworkDrives
        For i = 0 To .Count - 1 Step 2
            If .Item(i) = sDrive Then
                Path2UNC = .Item(i + 1) & Mid(sFullName, 3)
                Exit For
             End If
        Next
     End With


     ModDrive1 = Replace(Path2UNC, " ", "%20")
     Path2UNC = ModDrive1


 End Function

sub test
ActiveChart.ApplyChartTemplate Filename:=Path2UNC("c:\Presentation Chart.crtx")
end sub

 

[Fab117]

Re : Indiquer un chemin relatif pour accéder à une source

Salut,
Merci pour ta proposition.
Je vais essayer.

Bon appétit.

Fab