Erreur 1004

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 19 Mars 2006

• #2

Bonjour

normalement c'est plutôt

Code:

.Export ThisWorkbook.Path & '\\monImage.jpg', 'JPG'

Cordialement, A+

 

Vote positif 0 Vote négatif

X

xonathull

XLDnaute Nouveau

• 19 Mars 2006

• #3

Mercie pour la reponce, mais sa fait toujour la meme erreur

Pour etre plus precis le message d'erreur est

Erreur d'éxecution 1004
Erreur définie par l'application ou par l'objet

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 19 Mars 2006

• #4

salut xonathull, Yeahou, le Forum,

à verifier:

est-ce-que 'monimage.jpg'? existe dans ton fichier sinon remplace 'monimage' par ...ton image, ton fichier ... enfin vérifie ton adresse c'est peut être ça

@+ :woohoo:

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 19 Mars 2006

• #5

re

est ce que ton fichier excel a été enregistré une fois ? dans le cas contraire, thisworkbook.path renvoie une chaine vide (puisqu'il n'a pas été enregistré, il n'a pas de chemin) et provoque une erreur.

A+

 

Vote positif 0 Vote négatif

X

xonathull

XLDnaute Nouveau

• 19 Mars 2006

• #6

J'ai vérifier et sa fait toujour pariel sniff

merci de ta réponce

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 19 Mars 2006

• #7

Bonsoir xonathull, Yeahou et Dull, bonsoir à toutes et à tous

J'ai testé chez moi et cela ne pose aucun problème que l'on mette ou non un antislash devant le nom du fichier.

En y regardant de plus près, l'aide d'XL (97 pour moi) dit pour le second paramètre :

'FilterName Argument de type Variant facultatif. Nom du filtre graphique comme il apparaît dans le registre.'

Peut-être pourrais-tu essayer avec une autre extension, j'ai testé également avec GIF et PNG sans aucune erreur. :ermm:

A+

 

Vote positif 0 Vote négatif

X

xonathull

XLDnaute Nouveau

• 20 Mars 2006

• #8

Il a été enregistrer

Et j'ai vérifier en fesant un debogage il recupere bien le bon chemin

J'ai egalement essayer en gif et toujour pareil.

Je vous remercie mais je croit que je vais l'aisser tomber

merci

Message édité par: xonathull, à: 20/03/2006 10:04

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 20 Mars 2006

• #9

Bonjour

oui cela fonctionne aussi chez moi
pour l'antislash, s'il n'est pas la, le fichier créé est placé dans le dossier père et s'appelle dossiermonimage.jpg
quelle est ta version d'excel ?

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 20 Mars 2006

• #10

bonsoir à tous

Xonathull , peux tu confirmer la ligne qui te pose probleme


pour ma part j'ai fait plusieurs tests avec Excel2002 et Excel97

la seule fois ou j'ai réussi obtenir une erreur type 1004 , ( mais sur la ligne Sheets('Tableau').Range('A1:K63').CopyPicture ) est en plaçant la procédure dans un CommandButton sur la feuille , et en utilisant Excel97

dans ce cas le problème a été résolu en ajoutant Range('A1').Select en debut de procédure

Application.ScreenUpdating = False
Range('A1').Select
Sheets('Tableau').Range('A1:K63').CopyPicture

Sheets('Tableau').Paste

With Sheets('Tableau').ChartObjects.Add(0, 0, Sheets('Tableau').Range('K64').Left, _
Sheets('Tableau').Range('K64').Top).Chart
.Paste
.Export ThisWorkbook.Path & '\\\\\\\\monImage.jpg', 'JPG'
End With
.....


bonne soirée
MichelXld

Message édité par: michelxld, à: 20/03/2006 18:16

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 20 Mars 2006

• #11

Bonsoir à tous, bonsoir Michel

Effectivement, le problème que tu as rencontré sur XL97 est présent à chaque fois qu'un CommandButton sur une feuille n'a pas sa propriété TakeFocusOnClick à False, et la seule manière de faire fonctionner un code qui fait appel à des objets dans la feuille, c'est d'effectuer auparavant un .Select ; j'ai l'habitude de ce type d'erreur :S .

a+

 

Vote positif 0 Vote négatif