transfert de donné entre deux fichier du meme repertoire

**yvespi** · 29/04/2010, 09h45

Bonjour,

J'ai un problème, dans mon fichier une macro rempli un fichier excel grace au code ci-dessous que m'a donner PPz:

' 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

Mon pb c'est que, mon fichier ppt et mon fichier excel ne sont pas toujours au meme endroit, par contre ils sont toujours tout les deux dans le meme repertoire.
après plusieur heures de recherche, j'ai peut etre des indices comme remplacer
Set xlBook = xlApp.Workbooks.Open("C:\...\toto.xls")
par
Set xlBook = xlApp.ActiveWorkbook.Path ("\toto.xls")
mais cela ne marche pas.

la seul chose que je veux c'est que la macro de mon fichier ppt puisse ouvrir le fichier excel du moment que le fichier ppt et le fichier xls sont dans le meme repertoire

Merci d'avance

Yves

**PPz78** · 29/04/2010, 22h01

Pres_nom = ActivePresentation.path

Donne le chemin jusqu'au répertoire.
++

**yvespi** · 29/04/2010, 22h06

Alors si je comprend bien je déclare Pres-nom comme une variable je lui dis qu'elle vaut
Pres_nom = ActivePresentation.path

et ensuite dans le chemin du fichier j'écris

Set xlApp = CreateObject(Pres_nom)

c'est bien ca?

**PPz78** · 29/04/2010, 22h23

Il ne faut pas exagérer, comment peut-il deviner le nom du fichier que tu souhaites ouvrir.

ActivePresentation.path : donne le chemin jusqu'au répertoire
ActivePresentation.name : donne son nom du fichier
ActivePresentation.fullname : donne le nom complet (chemin + nom)

Il faut ajouter un peu de code pour définir le fichier que tu souhaites ouvrir.

L'instruction Msgbox(....) permet de faire des impressions et voir ce qui se passe.
Une autre méthode est d'utiliser le debug pour examiner les valeurs des variables durant une exécution.

A+

**yvespi** · 29/04/2010, 22h42

Je te remercie, mais tu sai je fai du vba depuis une semaine je suis debutant...

je ne voi toujours pas comment utiliser ActivePresentation.path et mettre le non du fichier a la suite, finalement c'est un ce que j'avai fait:
Set xlBook = xlApp.ActiveWorkbook.Path ("\toto.xls")
mais ca ne marche pas.

++

**PPz78** · 29/04/2010, 22h59

il faut quelque chose comme :
Set xlBook = xlApp.Workbooks.Open(Nom_Fichier)

Il faut donc initialiser correctement "Nom_Fichier" qui représente le chemin complet depuis C jusqu'à ton fichier Excel (il se termine par .xls)

Le "Nom_Fichier" est donc le chemin concaténé avec le fichier
Nom_Fichier =ActivePresentation.path & "toto.xls"

cela fait donc :

Nom_Fichier =ActivePresentation.path & "toto.xls"
msgbox(Nom_Fichier)
Set xlBook = xlApp.Workbooks.Open(Nom_Fichier)

msgbox va te visualiser le résultat, cela te permettra de voir s'il faut ou non un "\" en plus