Microsoft 365 Sélection plage

[Benoit84]

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

 

[Etoto]

Bonjour,

Places ton code dans un balise, comme ça tu n'as pas de "" qui vont embêter.

Cordialement

 

[Hasco]

bonjour,

Et ce serait bien de répondre aux discussions commencées avant d'en ouvrir d'autres :

Microsoft 365 - VBA Supprimer des lignes de tableau avec une sélection manuelle

Bonjour Dans un tableau excel pour supprimer des lignes on sélectionne les cellules dans le tableau puis on fait bouton droit, supprimer puis supprimer ligne de tableau. Pour des utilisateurs peu expériomenter d'excel, je voudrais créer une macro à lancer (en appuyant sur un bouton) après avoir...

www.excel-downloads.com

Cordialement

 

[Benoit84]

Bonjour,

Places ton code dans un balise, comme ça tu n'as pas de "" qui vont embêter.

Cordialement

Bonjour, J'ai corrigé merci
Cordialement

 

[Benoit84]

bonjour,

Et ce serait bien de répondre aux discussions commencées avant d'en ouvrir d'autres :


Cordialement

Bonjour,
C'est fait, et merci pour votre aide
je n'avais pas encore eu le temps de traiter ce dossier
Cordialement
Benoit