Erreur 1004

[xonathull]

Boujour
Je voudrais utilise ce code trouver sur ce forum

Application.ScreenUpdating = False
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

With Sheets('Tableau')
.ChartObjects(Sheets('Tableau').ChartObjects.Count).Delete
.Shapes(Sheets('Tableau').Shapes.Count).Delete
End With

Application.ScreenUpdating = True

Mais j'ai une erreur 1004 a cette ligne

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

Savez vous d'ou sa vient Mercie

 

[Bernard_XLD]

Bonjour

normalement c'est plutôt

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

Cordialement, A+

 

[xonathull]

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

 

[Dull]

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:

 

[Bernard_XLD]

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+

 

[xonathull]

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

merci de ta réponce

 

[Charly2]

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+ 😉

 

[xonathull]

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

 

[Bernard_XLD]

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 ?

 

[MichelXld]

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

 

[Charly2]

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+ 😉