Erreur 70 permission refusée vba Excel

Version imprimable

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:

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

Citation:

Envoyé par RICHARD19270

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:

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.

15/12/2016, 10h38
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:

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

Merci encore et par avance pour votre aide
bien cordialement
Richard
15/12/2016, 11h01
Invité

Quand vous essayez de placer manuellement une image dans le répertoire de travail, vous avez aussi un blocage ?
15/12/2016, 11h24
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
15/12/2016, 11h29
Invité

Non.
15/12/2016, 11h41
RICHARD19270

Pour apporter (peut être une explication complémentaire à mon souci).
Lorsque j'utilise le code cité précédemment dans un fichier excel qui est sur mon ordinateur: tout fonctionne très bien.
Lorsque je passe le fichier excel sur le serveur partagé (ONEDRIVE) la le code d'erreur cité précédemment apparaît

En ce qui concerne la copie d'image. Si je passe d'une feuille à l'autre aucun souci tout est ok.
C'est quand je passe par un chemin qui demande un accès au drive du serveur que cela pose problème.

Voilà

En espérant pouvoir avoir une solution

Merci encore pour votre aide

Bien cordialement
Richard
15/12/2016, 11h50
Invité

Regardez peut-être sur le forum de stockage parler-one-drive-office-365-a

Et avec le lien de Malick SECK solutions-d-entreprise/cloud-computing/stockage

Je ne peux vous être d'aucune aide.

Bon courage.

Cordialement.
15/12/2016, 18h44
RICHARD19270

Bonsoir,

Un grand merci pour vos messages

En espérant que d'autres membres puissent m'aider à résoudre ce problème

Excellente soirée
15/12/2016, 20h52
clementmarcotte

Bonjour,

Citation:

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

avec en jaune:

Code:

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.
16/12/2016, 08h07
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
16/12/2016, 20h22
clementmarcotte

Bonjour,

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

Code:

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
17/12/2016, 09h43
RICHARD19270

Bonjour et encore merci pour essayer de résoudre mon problème.
En mettant les arguments entre parenthèses un code erreur apparaît à nouveau (grrr):
Erreur d'exécution: '-2146697210 (800c006)':
avec un intitulé différent du précédent: la méthode 'Export de l'objet _Chart à échoué'

débogage sur le code:

Code:

f.ChartObjects(1).Chart.Export (ThisWorkbook.Path & "monimage.jpg")

Peut-être que le chemin est mal spécifié et ne fait pas référence au disque local ?

En espérant trouver une solution, merci encore pour votre aide

Bien cordialement

Richard
17/12/2016, 10h01
Invité

Citation:

Envoyé par 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.

Bonjour,

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

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.
18/12/2016, 10h29
RICHARD19270

Bonjour Eric,

Encore merci.
J'ai testé la procédure que vous avez décrite ci-dessus et j'ai bien accès au répertoire en question.
Il accepte la sauvegarde du fichier, j'ai pu le retrouver.

Par contre, même en spécifiant le chemin d'accès au serveur au niveau de la procédure "Export" il me retourne le code erreur cité précédemment Erreur d'exécution, la procédure Export _Chart a échoué.

Décidemment !!!!

Bon, merci d'avance si vous avez d'autres idées. Pour ma part dur dur de comprendre ce qui cloche

Excellente journée
bien cordialement

Richard
18/12/2016, 18h05
eriiic

Bonjour,

Code:

f.ChartObjects(1).Chart.Export (ThisWorkbook.Path & "monimage.jpg")

il te manque le "\" après le path il me semble.
eric
20/12/2016, 06h04
RICHARD19270

Bonjour Eric,
Merci pour ton message
J'avais déjà corrigé cette erreur sans succès

Code:

f.ChartObjects(1).Chart.Export (ThisWorkbook.Path & "\monimage.jpg")

donne le même code erreur: la procédure Export _Chart a échoué
Je m'arrache un peu les cheveux à vrai dire mais je ne désespère pas de trouver la solution

Merci encore à tous pour votre participation

Richard
20/12/2016, 08h09
unparia

Bonjour
La discussion m'est assez difficile à suivre dès lors que l'on y trouve des questions et des réponses floues.
Je commencerais personnellement par regarder ce qui se passe en supprimant tous les obstacles possibles :
1) j'inhiberais l'UAC sur la machine de travail (celle d'accueil).
2) je privilégierais l'utilisation d'objets définis (par set) plutôt que de confier en l'efficacité de ThisWorkbook et Activeworkbook. Et travaillerais avec CES objets.
Et je relancerais ainsi, de sorte à mieux cerner la cause de l'erreur (si toujours là).

Bonjour et merci pour votre message et l'intérêt que vous portez à mon souci.
Pour reprendre le problème depuis le début et rendre plus clair le problème posé:
Ci-dessous le code:
Code:

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
Ce code fonctionne parfaitement sur mon ordinateur en local.
Quand je passe le fichier sur le serveur (ONEDRIVE), un code erreur est généré: erreur permission 70
J'ai testé l'accès au fichier sur le serveur : accès possible, répertoire : accès possible

En modifiant le code en fonction des recommandations données :

Code:

f.ChartObjects(1).Chart.Export (ThisWorkbook.Path & "\monimage.jpg")

Le message d'erreur change: export_chart a échoué

Voilà en espérant que c'est plus clair.
Je vais essayer vos conseils:
Inhiber UAC
Utilisé set

Et je vous tien au courant

Merci encore
Excellente journée
Bien cordialement

Richard