Discussion :

[yvespi]

Bonjour,

J'aimerai savoir comment faire un transfert de données d'un fichier powerpoint vers un tableau excel deja existant (donc a structure du tableau est deja faite dans un fichier excel), ce fichier excel se trouvant toujours dans le meme dossier que le powerpoint.

je m'explique, dans mon power point j'ai une zone de texte, et j'aimerai faire un macro vba qui transfert le texte de cette zone de texte vers un cellule specifique du tableau excel.

Merci

Yves

[PPz78]

Pas trop compliqué :

' Ouverture d'Excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")

' Ouverture du fichier Excel devant recevoir les informations
' Nom_Fichier est le nom complet de fichier avec son chemin C.....
Set xlBook = xlApp.Workbooks.Open(Nom_Fichier)

' et enfin
xlApp.Sheets(1).Cells(N_Ligne, N_Col) = Mon_texte

Ne pas oublier de cocher la référence à Excel (dans l'éditeur VB Menu Outils/référence).

et quand tout est fini, libérer la mémoire avec
xlApp.Quit
Set xlApp = Nothing

PPz

[yvespi]

Bonjour,

j'ai essayé votre solution et voila mon code:


Sub import_values()

Dim objsld2 As Slide
Set objsld2 = ActivePresentation.Slides(2)

Dim texte_C1 As Variant
texte_C1 = objsld2.Shapes("C1").TextFrame.TextRange.Text

' Ouverture d'Excel
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")

' Ouverture du fichier Excel devant recevoir les informations
' Nom_Fichier est le nom complet de fichier avec son chemin C.....
Set xlBook = xlApp.Workbooks.Open("O:\...\DimCable.xls")

' et enfin
xlApp.Sheets(1).Cells(11, G) = texte_C1

xlApp.Quit
Set xlApp = Nothing


End Sub


et j'ai un message d'erreur sur la ligne en rouge dans les ligne précédante.
ce message est le suivant:

Erreur d'execution '1004':
Erreur définie par l'application ou par l'objet



Que dois-je faire pour régler ce pb.

Merci pour votre réponse, je sens que mon pb va enfin de régler.

Yves

[yvespi]

Je me suis rendu compte que j'avais oublié de vous signaler quelque chose qui se pourrait etre la source du pb: la feuille excel sur al quelle je veu ecrire ma valeur, s'apelle "SELECT" et non "feuil 1"

MERCI

[PPz78]

Petite question "G" c'est quoi ?

PPz

[yvespi]

Bonjour,

G correspond a la colonne G de mon tableau excel... il fau mettre un numero et non la lettre?

yvespi

[PPz78]

eh oui, il faut un nombre entier.

PPz

[PPz78]

Aussi :
"Ne pas oublier de cocher la référence à Excel (dans l'éditeur VB Menu Outils/référence)."

[yvespi]

ok
ca marche très bien!
par contre, le dossier dans lequel se trouve ma presentation ppt et mon fichier excel va etre déplacer (mais les deux fichier ppt et xls seront toujorus dans le meme dossier)
comment modifier le chemin du fichier xls pour que ca marche quand meme?

[PPz78]

Bonjour,
Pour ouvrir le fichier Excel il faut l'instruction suivante
Set xlBook = xlApp.Workbooks.Open("O:\...\DimCable.xls")
où "O:\...\DimCable.xls" est le chemin complet pour accéder au fichier.

Il faut donc calculer ce chemin.
Il faut récupérer le chemin jusqu'à la macro : ActivePresentation.path
et ajouter le nom de ton fichier : \DimCable.xls
cela fait pour le chemin complet : ActivePresentation.path & "\DimCable.xls"

Le code est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Chemin_Fichier =ActivePresentation.path & "\DimCable.xls"
msgbox(Nom_Fichier)
Set xlBook = xlApp.Workbooks.Open(Chemin_Fichier)

A+

[Papallon]

Bonjour, je cherche à faire quelque chose d'assez similaire, en fait c'est un QCM et j'aimerai envoyer dans mon tableau exel les résultats des joueurs.

Comment faire pour éviter qu'à chaque fois qu'un joueur joue il supprime le score du précédent?