Bonjour
J'ai un code qui permet de créer un fichier image pour l'envoyer par mail. Le besoin est de sélectionner une zone automatiquement qui est aléatoire suivant le nombre de lignes, donc je sélectionne par Current Region
Pour faire simple j'ai une entête sur les 8 première ligne et un tableau à la 8ème
la sélection par "currentregion" fonctionne en manuel correctement
************
Range("A1").Select
Selection.CurrentRegion.Select
*************
je voudrais l'adapter dans mon code ci dessous en disant Ma plage = selection par currentregion
extrait du code
**********
...
Dim Img As String, Plage As Range, PathTmp As String
'PathTmp = Environ$("temp") & ""
PathTmp = Environ$("temp") & "\"
Img = "Image.jpg"
If Dir(PathTmp & Img) <> "" Then Kill PathTmp & Img
Set Plage = Range("A1").Select '<============ ça plante ici
Selection.CurrentRegion.Select '
'Création d'un fichier image dans le répertoire temporaire
Plage.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Plage.Width, Plage.Height)
.Activate
.Chart.Paste
.Chart.Export PathTmp & Img, "JPG"
End With
....
*****************
Auriez vous une idée ?
merci d'avance
Benoit
J'ai un code qui permet de créer un fichier image pour l'envoyer par mail. Le besoin est de sélectionner une zone automatiquement qui est aléatoire suivant le nombre de lignes, donc je sélectionne par Current Region
Pour faire simple j'ai une entête sur les 8 première ligne et un tableau à la 8ème
la sélection par "currentregion" fonctionne en manuel correctement
************
Range("A1").Select
Selection.CurrentRegion.Select
*************
je voudrais l'adapter dans mon code ci dessous en disant Ma plage = selection par currentregion
extrait du code
**********
...
Dim Img As String, Plage As Range, PathTmp As String
'PathTmp = Environ$("temp") & ""
PathTmp = Environ$("temp") & "\"
Img = "Image.jpg"
If Dir(PathTmp & Img) <> "" Then Kill PathTmp & Img
Set Plage = Range("A1").Select '<============ ça plante ici
Selection.CurrentRegion.Select '
'Création d'un fichier image dans le répertoire temporaire
Plage.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Plage.Width, Plage.Height)
.Activate
.Chart.Paste
.Chart.Export PathTmp & Img, "JPG"
End With
....
*****************
Auriez vous une idée ?
merci d'avance
Benoit
Dernière édition:
