Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Powerpoint Récupérer des valeurs de cellules Excel 2003

Récupérer des valeurs de cellules Excel 2003

4 réponses
Avatar
luc
Bonjour,

Je voudrais récupérer, pour l'utiliser dans le code VBA d'un fichier
powerpoint 2003 (pas dans les slides) des valeurs contenues dans certaines
cellules d'un fichier Excel 2003.

Comment faire?

Merci
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Tisane
Bonjour Luc,

Je voudrais récupérer, pour l'utiliser dans le code VBA d'un fichier
powerpoint 2003 (pas dans les slides) des valeurs contenues dans certaines
cellules d'un fichier Excel 2003.


Récupérer des valeurs Excel dans du code VBA PowerPoint sans les utiliser
dans les diapos...
Si tu n'en dis pas plus sur le contexte et l'objectif, cela ne va pas être
facile de t'aider (je pense aux nombreux spécialistes VB du forum ;-) !

--
Tisane

Avatar
luc
oui déjà simplement récuperer le contenu d'une valeur et l'affecter à une
variable pour pouvoir ensuite en faire ce que je veux dans le code. Ces ne
sont pas ces valeurs qui seront utilisées dans les slides mais elles
serviront à construire ces slides... je mets actuellement ces valeurs en dur
dans le code



"Tisane" a écrit dans le message de news:

Bonjour Luc,

Je voudrais récupérer, pour l'utiliser dans le code VBA d'un fichier
powerpoint 2003 (pas dans les slides) des valeurs contenues dans certaines
cellules d'un fichier Excel 2003.


Récupérer des valeurs Excel dans du code VBA PowerPoint sans les utiliser
dans les diapos...
Si tu n'en dis pas plus sur le contexte et l'objectif, cela ne va pas être
facile de t'aider (je pense aux nombreux spécialistes VB du forum ;-) !

--
Tisane

Avatar
Geo

oui déjà simplement récuperer le contenu d'une valeur et l'affecter à une
variable pour pouvoir ensuite en faire ce que je veux dans le code. Ces ne
sont pas ces valeurs qui seront utilisées dans les slides mais elles
serviront à construire ces slides... je mets actuellement ces valeurs en dur
dans le code


C'est relativement simple :
Référencer Excel.
puis
Dim AppExcel As Variant
Dim Classeur As Workbook
Dim Feuille As Worksheet
Dim MaVariable as integer

Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True

Il faut ensuite préfixer tous les ordres Excel par AppExcel
Exemple :

With AppExcel
' demande d'ouverture d'un classeur (boite de dialogue)
RéponseOK = .Dialogs(xlDialogOpen).Show
If Not RéponseOK Then 'NomClasseur = "Faux" Then
MsgBox " Abandon "
Exit Sub
End If
Set Classeur = .ActiveWorkbook
' par défaut la feuille 1
.Worksheets("MesDonnées").Activate
Set Feuille = .ActiveSheet
MaVariable = Feuille.Range ....
End With

--
A+

Avatar
luc
ok merci


"Geo" a écrit dans le message de news:


oui déjà simplement récuperer le contenu d'une valeur et l'affecter à une
variable pour pouvoir ensuite en faire ce que je veux dans le code. Ces ne
sont pas ces valeurs qui seront utilisées dans les slides mais elles
serviront à construire ces slides... je mets actuellement ces valeurs en
dur
dans le code


C'est relativement simple :
Référencer Excel.
puis
Dim AppExcel As Variant
Dim Classeur As Workbook
Dim Feuille As Worksheet
Dim MaVariable as integer

Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True

Il faut ensuite préfixer tous les ordres Excel par AppExcel
Exemple :

With AppExcel
' demande d'ouverture d'un classeur (boite de dialogue)
RéponseOK = .Dialogs(xlDialogOpen).Show
If Not RéponseOK Then 'NomClasseur = "Faux" Then
MsgBox " Abandon "
Exit Sub
End If
Set Classeur = .ActiveWorkbook
' par défaut la feuille 1
.Worksheets("MesDonnées").Activate
Set Feuille = .ActiveSheet
MaVariable = Feuille.Range ....
End With

--
A+