si c'est pas trop grand tu copies ta plage tu ouvres paint tu colles tu enregistres en .bmp
lSteph "Nemrod" a écrit dans le message de news: %
bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
michdenis
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image.
Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'--------------------------------------
Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1")
.Activate
.Range("A1:D5").Copy
.Range("A10").Select
.Pictures.Paste
End With
Application.CutCopyMode = False
End Sub
'--------------------------------------
Salutations!
"Nemrod" <sebastien.combaz@numericable.fr> a écrit dans le message de news: %23D5kXEZrFHA.1168@TK2MSFTNGP11.phx.gbl...
bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une
plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution
sur ce probleme...
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
Nemrod
Merci a LSteph et michdenis pour vos reponses.
En fait, j'arrive a faire la selection des données sous format Range mais ce que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" a écrit dans le message de news:
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
Merci a LSteph et michdenis pour vos reponses.
En fait, j'arrive a faire la selection des données sous format Range mais ce
que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un
format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uXUwKkZrFHA.3796@TK2MSFTNGP11.phx.gbl...
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image.
Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande
"copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'--------------------------------------
Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1")
.Activate
.Range("A1:D5").Copy
.Range("A10").Select
.Pictures.Paste
End With
Application.CutCopyMode = False
End Sub
'--------------------------------------
Salutations!
"Nemrod" <sebastien.combaz@numericable.fr> a écrit dans le message de
news: %23D5kXEZrFHA.1168@TK2MSFTNGP11.phx.gbl...
bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une
plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel
2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une
solution
sur ce probleme...
En fait, j'arrive a faire la selection des données sous format Range mais ce que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" a écrit dans le message de news:
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
michdenis
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '--------------------------
Salutations!
"Nemrod" a écrit dans le message de news: %23Brxk% Merci a LSteph et michdenis pour vos reponses.
En fait, j'arrive a faire la selection des données sous format Range mais ce que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" a écrit dans le message de news:
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'-----------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF" 'Destination à déterminer
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
Salutations!
"Nemrod" <sebastien.combaz@numericable.fr> a écrit dans le message de news: %23Brxk%23ZrFHA.260@TK2MSFTNGP11.phx.gbl...
Merci a LSteph et michdenis pour vos reponses.
En fait, j'arrive a faire la selection des données sous format Range mais ce
que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un
format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uXUwKkZrFHA.3796@TK2MSFTNGP11.phx.gbl...
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image.
Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande
"copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'--------------------------------------
Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1")
.Activate
.Range("A1:D5").Copy
.Range("A10").Select
.Pictures.Paste
End With
Application.CutCopyMode = False
End Sub
'--------------------------------------
Salutations!
"Nemrod" <sebastien.combaz@numericable.fr> a écrit dans le message de
news: %23D5kXEZrFHA.1168@TK2MSFTNGP11.phx.gbl...
bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une
plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel
2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une
solution
sur ce probleme...
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '--------------------------
Salutations!
"Nemrod" a écrit dans le message de news: %23Brxk% Merci a LSteph et michdenis pour vos reponses.
En fait, j'arrive a faire la selection des données sous format Range mais ce que j'aimerais, c'est surtout savoir comment sauvegarder l'image sous un format gif, bmp ou jpg dans un dossier temporaire.
Cordialement,
"michdenis" a écrit dans le message de news:
Bonjour Nemrod,
tu sélectionnes ta plage de cellules que tu veux transformer en Image. Tu la copies dans le presse-papier Ctrl + c
Tu conserves la touche Maj enfoncé pendant et tu utilises la commande "copier l'image" du menu Édition.
Par macro, cela pourrait ressembler à ceci :
'-------------------------------------- Sub PlageDeCellulesCommeImage()
With Worksheets("Feuil1") .Activate .Range("A1:D5").Copy .Range("A10").Select .Pictures.Paste End With Application.CutCopyMode = False End Sub '--------------------------------------
Salutations!
"Nemrod" a écrit dans le message de news: % bonjour,
Apres avoir consulté de nombreux sites, je n'arrive pas a sauvegarder une plage de données sous forme d'image quelque soit le format.
Les fonctions export ou savepicture ne fonctionnent pas sur mon excel 2003.
J'aurais voulu savoir si quelqu un aurait déja reussi a trouver une solution sur ce probleme...
Merci d'avance
Oliv'
michdenis que je salut a écrit dans %
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
michdenis <michdenis@hotmail.com> que je salut a écrit dans
%23FxLAHarFHA.3228@TK2MSFTNGP11.phx.gbl
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de
destination des images de tes plages de cellules.
'-----------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone:
(Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF" 'Destination à déterminer
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
michdenis
Tu peux toujours faire un copier-coller dans Paint et enregistrer le fichier. Mais je ne connais pas de commande qui fait ce travail directement !
Salutations!
"Oliv'" <(supprimerceci) a écrit dans le message de news: u%23E64$
michdenis que je salut a écrit dans %
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Tu peux toujours faire un copier-coller dans Paint et enregistrer le fichier. Mais je ne connais pas de commande qui fait ce travail
directement !
Salutations!
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le message de news: u%23E64$frFHA.3264@TK2MSFTNGP12.phx.gbl...
michdenis <michdenis@hotmail.com> que je salut a écrit dans
%23FxLAHarFHA.3228@TK2MSFTNGP11.phx.gbl
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de
destination des images de tes plages de cellules.
'-----------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone:
(Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF" 'Destination à déterminer
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Tu peux toujours faire un copier-coller dans Paint et enregistrer le fichier. Mais je ne connais pas de commande qui fait ce travail directement !
Salutations!
"Oliv'" <(supprimerceci) a écrit dans le message de news: u%23E64$
michdenis que je salut a écrit dans %
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
"Oliv'" <(supprimerceci) a écrit dans le message de news: u%23E64$
michdenis que je salut a écrit dans %
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
michdenis que je salut a écrit dans %
Tu peux toujours faire un copier-coller dans Paint et enregistrer le fichier. Mais je ne connais pas de commande qui fait ce travail directement !
Merci pour la réponse mais aucun interet ainsi , je vais créer un bouton
avec cette macro modifiée
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: u%23E64$frFHA.3264@TK2MSFTNGP12.phx.gbl...
michdenis <michdenis@hotmail.com> que je salut a écrit dans
%23FxLAHarFHA.3228@TK2MSFTNGP11.phx.gbl
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de
destination des images de tes plages de cellules.
'-----------------------------
Sub exportgif()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone:
(Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF" 'Destination à déterminer
End With
ActiveWorkbook.Close False
End Sub
'--------------------------
Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
michdenis <michdenis@hotmail.com> que je salut a écrit dans
%23EDLtxhrFHA.3596@TK2MSFTNGP15.phx.gbl
Tu peux toujours faire un copier-coller dans Paint et enregistrer le
fichier. Mais je ne connais pas de commande qui fait ce travail
directement !
Merci pour la réponse mais aucun interet ainsi , je vais créer un bouton
avec cette macro modifiée
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"Oliv'" <(supprimerceci) a écrit dans le message de news: u%23E64$
michdenis que je salut a écrit dans %
Bonjour Nemrod,
Essaie ceci : Une procédure de Daniel Joss
N'oublie pas de spécifier dans la procédure, le répertoire de destination des images de tes plages de cellules.
'----------------------------- Sub exportgif() Dim Plage As Range Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _ Title:="Sélection de zone ", Default:="$A$1", Type:=8) Application.ScreenUpdating = False Workbooks.Add Plage.CopyPicture ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, _ Selection.Width, Selection.Height).Chart .Paste .Export "C:Test.gif", "GIF" 'Destination à déterminer End With ActiveWorkbook.Close False End Sub '-------------------------- Excellent !!!!!
y a t'il une commande pour faire l'export en dehors d'une macro ?
michdenis que je salut a écrit dans %
Tu peux toujours faire un copier-coller dans Paint et enregistrer le fichier. Mais je ne connais pas de commande qui fait ce travail directement !
Merci pour la réponse mais aucun interet ainsi , je vais créer un bouton
avec cette macro modifiée
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~