Récupérer la valeur d'une cellule sur VBA en gardant son format d'affichage

Bonjour, je récupère la valeur de ma cellule de la sorte :

Dim cellValue7 As Variant
Set PptSlide = PptDoc.Slides(1)
cellValue7 = ThisWorkbook.Sheets("Feuil1").Range("C25").Value

Cependant quand ensuite celle-ci s'affiche sur powerpoint (car je la récupère sur excel pour l'implémenter sur powerpoint) elle affiche 520 988 014 or dans mon excel j'ai formaté l'affichage de cette cellule qui affiche 521M€. Comment faire pour que je réussisse à récupérer la valeur de la cellule avec le format d'affichage en millions.

Je voulais sinon passer par la méthode ROUND mais je n'arrive pas à l'utiliser.

Je pensais pouvoir faire comme ça mais ça ne fonctionne pas :

ROUND(cellValue7;-6) = cellValue7

Merci d'avance pour votre aide !

Bonjour,

A tester comme ceci:

cellValue7 = Round(ThisWorkbook.Sheets("Feuil1").Range("C25") / 10 ^ 6) & " M€"

J'avais tenté avec la fonction Format mais sans succès...

Bonjour Carla3111, le Fil,

Utiliser l'arrondi supérieur.

cellValue7 = WorksheetFunction. Roundup(ThisWorkbook.Sheets("Feuil1").Range("C25"),-5)/ 10 ^ 6 & " M€"

Merci beaucoup à vous deux !

Bonne fin de journée !