erreur 1004 en réseau

[jtitin]

bonjour à tous
j'ai créer un fichier qui fonctionne trés bien sur mon PC
mais en réseau, sur d'autres PC il bloque erreur 1004
lorsque je clic sur un bouton d'un userform j'ouvre un nouveau userform
et la blocage. voici la macro d'activation:

Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
GraphDynamique5
'Label2.Caption = Format(Sheets("total").Range("E2"), "###,##")
Label2.Caption = "La moyenne mensuelle de progression est de : " & Format(Sheets("total").Range("E2"), "####") & " Conteneurs"
'Label15.Caption = Sheets("total").Range("J1")
Label16.Caption = "Mois en cours " & "( " & Sheets("total").Range("K1") & " ): " & Sheets("total").Range("J1") & " Conteneurs"
Label9.Caption = Format(Sheets("total").Range("F16"), "0.00%")
Label10.Caption = Format(Sheets("total").Range("F28"), "0.00%")
Label11.Caption = Format(Sheets("total").Range("O40"), "0.00%")
Label12.Caption = Format(Sheets("total").Range("P52"), "0.00%")
End Sub

##### et voici la macro GraphDynamique5

Sub GraphDynamique5()
mongif = ThisWorkbook.Path & "\" & "CumulConteneur.gif"
Set graph = Worksheets("total").ChartObjects("score1").Chart
graph.export Filename:=mongif, filtername:="GIF"
UsfDynamique.Image5.Picture = LoadPicture(Filename:=mongif)

End Sub

le blocage se trouve sur la ligne:
graph.export Filename:=mongif, filtername:="GIF"

apparament ne trouve pas le chemin de l'image à charger dans l'objet Image5

si vous voyer une solution ???
merci pour votre aide

 

[RENAUDER]

Re : erreur 1004 en réseau

Bonjour,
Affiche la fenêtre d'exécution et fais du pas à pas
Regardes ce que tu récupères dans mongif avec la ligne Debug.Print

mongif = ThisWorkbook.Path & "\" & "CumulConteneur.gif"
Debug.Print mongif

C'est du type par exemple
\\Serveur_data\Utilisateurs\'Répertoire où est ton fichier' (format UNC)
Ou
V:\'Répertoire où est ton fichier'


Pour info, tu peux simplifier
mongif = ThisWorkbook.Path & "\CumulConteneur.gif"

 

[jtitin]

Re : erreur 1004 en réseau

merci renauder pour ta réponse
j'ai fait un essai avec Debug.Print mongif
mais pas de résultat
le blocage ce fait sur la ligne:
graph.export Filename:=mongif, filtername:="GIF"
c'est une image créer appartir d'un graphique, d'une des feuille du classeur, renommé par "mongif" en ".gif "
en local sur mon pc cette image vient se mètre dans le même dossier que le fichier
mais en réseau cela ne marche pas
peut être faut'il définir un chemin pour " graph.export " ???

merci

PS j'ai aussi simplifier comme tu préconise:
mongif = ThisWorkbook.Path & "\CumulConteneur.gif" mais c'est pareil

 

[jtitin]

Re : erreur 1004 en réseau

re moi
le résultat dans la fenètre d'éxécution avec "Debug.Print mongif "me renvoit le bon chemin
Si je modifi le code de ma macro en chargeant directement l'image cela marche mais mon image n'est pas à jour.

voici le code:
Sub GraphDynamique5()
''''''mongif = ThisWorkbook.Path & "\" & "CumulConteneur.gif"
'''''Set graph = Worksheets("total").ChartObjects("score1").Chart
''''''graph.export Filename:=mongif, filtername:="GIF"
''''''UsfDynamique.Image5.Picture = LoadPicture(Filename:=mongif)
UsfDynamique.Image5.Picture = LoadPicture(\\Pcb007\Commun\CumulConteneur.gif)
End Sub

merci pour votre aide

 

[RENAUDER]

Re : erreur 1004 en réseau

Bonjour,

J'ai fait un fichier qui va charger l'image comme tu l'as fait en dur avec
UsfDynamique.Image5.Picture = LoadPicture(\\Pcb007\Commun\CumulConteneur.gif)
(Attention le nom CumulConteneur.gif est différent)
réadapte à ton cas
J'ai utilisé une fonction qui récupère le chemin UNC

 

[jtitin]

Re : erreur 1004 en réseau

merci RENAUDER de te pencher sur mon problème
j'ai fait l'essai de ton fichier
mais c'est pareil, je rencontre le même problème sur un pc en réseau

par contre je ne vois pas de diférence avec ce que je fait avec mon fichier
ton code est le même

merci

peut une erreur de fichier lors de l'envoit ??,,

 

[RENAUDER]

Re : erreur 1004 en réseau

Bonjour,
Désolé, c'est vrai j'ai du me tromper de fichier mais j'étais prêt à partir de l'usine.
Comme je suis chez moi je n'ai pas pu retrouver le bon fichier.
J'ai essayé de re-bricoler un fichier mais comme je n'ai pas de réseau chez moi, j'ai essayé d'extrapoler le cas chemin local et chemin UNC.

 

[jtitin]

Re : erreur 1004 en réseau

bonjour
merci encore RENAUDER pour ton fichier
je suis au boulot et j'essai ton fichier sur le réseau mais élas cela ne marche pas
toujour le même problème
blocage sur cette ligne:
graph.export Filename:=mongif, filtername:="GIF"
marche sur le pc ou le programme est installer mais bloque sur PC en réseau

les droits du dossier en partage sont pour tous
lecture et écriture autorisés

je comprend pas !!!!!!

RENAUDER a tu pu faire un essai de ton coté sur un réseau ???

merci

 

[RENAUDER]

Re : erreur 1004 en réseau

Bonjour,
Oui hier en fin d'après midi et ça fonctionnait.
J'ai mis le programme Excel sur un serveur distant (Orléans et moi je suis à Evreux).
Chez moi le disque est monté avec la lettre K qui correspond au chemin UNC \\Serveur_Samba\PP).
Lorsque j'exécute ce programme, je récupère bien le chemin UNC.
C'est quoi exactement le message ?
Essaies ce code à la place du précédent, j'ai ajouté du code pour récupérer des infos dans un fichier log (C:\infos.log) à savoir MonGif et sCheminUNC.

Sub GraphDynamique5()
    Dim sCheminUNC As String
    MonGif = ThisWorkbook.Path & "\" & "CumulConteneur.gif"
    Open "c:\infos.log" For Output As #1
    Print #1, "MonGif = " & MonGif
    sCheminUNC = GetUNCPath(MonGif)
    Print #1, "sCheminUNC = " & MonGif
    Close #1
    If Mid(sCheminUNC, 1, 1) <> "\" Then sCheminUNC = MonGif
    Set graph = Worksheets("total").ChartObjects("score1").Chart
    graph.Export Filename:=MonGif, filtername:="GIF"
    UserForm1.Image1.Picture = LoadPicture(Filename:=sCheminUNC)
    UserForm1.Show
End Sub

 

[jtitin]

Re : erreur 1004 en réseau

RENAUDER merci pour ton aide

me répondant oui à la question si ton test en réseau était concluant, cela m'a fait un douter sur les droit en partage du réseau dans lequel je me trouve
j'ai reconfigurer tout cela et maintenant ça à l'air de marcher
j'attend de pourvoir faire d'autre tests sur différent PC

merci beaucoup