Discussion :

[RICHARD19270]

Bonjour à tous,

Je vous expose mon problème:
Je travaille sur un fichier excel partagé qui est situé sur un serveur protégé en écriture:
J'utilise le bout de code ci-dessous pour copier une image graphique dans un userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
    Set f = Sheets("exportpdf")
  Set s = f.Shapes(CStr(Me.ComboBox1))
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="c:\monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  UserForm3.Image1.Picture = PastePicture
  Kill "monimage.jpg"
End Sub

Un code erreur 70 permission refusée est généré: normal car le disque du serveur est protégé en écriture.

Est-il possible de lui indiquer de réaliser ce bout de code sur le disque Local ?
Comment ?
Peut-être existe t-il d'autre solution ?

Merci d'avance pour votre aide

[Invité]

Un code erreur 70 permission refusée est généré: normal car le disque du serveur est protégé en écriture.
Est-il possible de lui indiquer de réaliser ce bout de code sur le disque Local ?

Bonjour,

Le répertoire du fichier de travail est aussi protégé ? Avez vous essayé avec le chemin ActiveWorkbook.Path ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub ComboBox1_Change()
 
  Set f = Sheets("exportpdf")
  Set s = f.Shapes(CStr(Me.ComboBox1))
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:= ActiveWorkbook.Path & "\monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  UserForm3.Image1.Picture = PastePicture
  Kill "monimage.jpg"
End Sub

Nb : Lorsque vous mettez du code, mettez le entre balises #

Cordialement.

[RICHARD19270]

Re Bonjour,

Merci beaucoup pour votre réponse
Malheureusement à l'exécution du code l'erreur suivante apparaît:

erreur d'exécution: '-2146697210 (800c0006)'
Erreur automation

avec en jaune:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.ChartObjects(1).Chart.Export Filename:= ActiveWorkbook.Path & "\monimage.jpg"

Merci encore et par avance pour votre aide
bien cordialement
Richard

[Invité]

Quand vous essayez de placer manuellement une image dans le répertoire de travail, vous avez aussi un blocage ?

[RICHARD19270]

Re,

Le répertoire de travail se situe sur un serveur type ONEDRIVE
Je n'ai pas essayé ça. Mais je pense qu'il est protégé en écriture.

J'espère que je réponds à la question posée
Encore merci pour le temps passé pour m'accorder de l'aide

J'espère avoir une solution
Bien cordialement
Richard

[Invité]

Non.

[Invité]

Re,
Le répertoire de travail se situe sur un serveur type ONEDRIVE
Je n'ai pas essayé ça. Mais je pense qu'il est protégé en écriture.

Bonjour,

Je reviens sur une de vos réponses précédentes qui a dû en surprendre plus d'un...

Il vous faut vérifier que vous avez bien accès au répertoire en question. Pour cela, utilisez l'enregistreur de macro et vous simulez une sauvegarde d'un fichier .xlsx (par exemple) sur ce répertoire et vous terminez la macro. Si cela fonctionne, il vous suffira de regarder ce que vous donne la macro et de copier le code.

Cordialement.

[clementmarcotte]

Bonjour,

erreur d'exécution: '-2146697210 (800c0006)'
Erreur automation

avec en jaune:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.ChartObjects(1).Chart.Export Filename:= ActiveWorkbook.Path & "\monimage.jpg"

Richard

Je n'ai pas testé avec Excel 2016, mais Excel 2010 ne digérait pas Automation avec les paramètres nommés. Il fallait utiliser la "vieille méthode" avec les parenthèses.

[RICHARD19270]

Bonjour,

Un grand merci pour votre participation pour trouver une solution à mon problème.
Je souhaiterai cependant avoir quelques précisions:
Pourriez-vous me décrire à quoi correspond "utiliser la vieille méthode" avec les parenthèses avec les paramètres nommés sur le code cité ?

Merci d'avance
Excellente journée

Bien cordialement
Richard

[clementmarcotte]

Bonjour,

Il faut mettre les arguments entre parenthèses suivant ce modèle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

f.ChartObjects(1).Chart.Export(Filename, FilterName, Interactive)

Et sans Filename:=

Et si le nom de fichier est le nom "en dur", il doit être entre guillemets. Si cela vient d'une variable, c'est la variable sans guillemet

Pour le reste voir https://msdn.microsoft.com/fr-fr/lib.../ff198129.aspx