Enregistrement img

Bonjour,

J'utilise se code pour enregistrer la feuille Modèle 1tourelle sur le réseau, tous fonctionne bien.

Le problème : j’incorpore des images dans cette feuille et lorsque je l'ouvre avec un autre Pc, je n’arrive pas ....(voir capture écran).

Des Idées pour résoudre se beug ? merci

Sub Sauvegarder()

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer

Worksheets("Modèle 1tourelle").Copy
extension = ".xlsx"
chemin = "Z:\GIBBS-PROG CN ET PROTO\01-Gammes-Programmes automatiques\01-GAMME\"
nomfichier = ActiveSheet.Range("A2") & "\" & Range("I3") & extension

With ActiveWorkbook
    '.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
MsgBox "Le fichier : " & Worksheets("Modèle 1tourelle").Range("I3") & " a bien été enregistré dans le dossier : " & Worksheets("Modèle 1tourelle").Range("A2")
End Sub

Bonjour Ouf746

Ce qu'il faut, je pense, c'est incorporé les images avec un chemin d'accès UNC

\\MonServeur\MonDossier\MonSousDossier\

Du coup si l'autre PC à accès au dossier, les images seront retrouvées sans soucis

A+