affichage de question a l'ecran

[Raziel]

Tu obtiens quoi comme message d'erreur ?

[leila]

voila le message d'erreur:"Microsoft Excel : 'FichierSource.xls' est introuvable. Veuillez vérifier l'orthographe............ etc "voili voilou et en fait je pense que la fonction ne comprend pas qu'il s'agit d'un chemin d'acces et non pas d'un nom de fichier!

[Raziel]

Normalement du doit avoir une lgne de ce type lsObject.Workbooks.Open FichierSourceN'aurais tu pas écris un truc du genre lsObject.Workbooks.Open "FichierSource" ? Si c'est la cas ce n'est pa correcte car, dans ce cas, tu passe en paramètre du open "FichierSource" et non le contenu de ta variable...

[leila]

non non j'ai bien écrit le xlsObject.workbooks.Open FichierSource et non pas FichierSource entre guillemets.Alors l'erreur vient de quoi????

[Raziel]

Est ce que tu peux nous envoyer ton code afin que l'on y regarde d'un peu plus près ?

[Stephane Maillard]

Re,Pourquoi ne pas un Print pour ce que la variable donne ?[%sig%]

[leila]

voila le codeCe sont les questions que je pose a l'utilisateur au départ: Dim PathFichierSource As Variant Dim PathFichierSauvegarde As Variant PathFichierSource = Inputbox("Entrez le path du fichier excel qui serivra de modèle :") If Not PathSourceSource = " " Then 'si l'utilisateur entre un nom de fichier PathFichierSauvegarde = Inputbox ("Entrer le path du fichier de sauvegarde final : ")' appel de la fonction de l'export Call exporterXLS (PathFichierSource, collection, PathFichierSauvegarde)' J'ouvre la porte Else ' si l'utilisateur ne donne pas de réponses à la question posée alors ' Reposer la question pour obtenir le nom du fichieràa ouvrir et celui qui constituera le fichier de sauvegarde final ... PathFichierSource = Inputbox (" Vous n'avez pas entré le nom du fichier excel modèle. Veuillez le faire svp!!!! " )' Je ne fais rien End If puis je fais appel a la fonction exporterXLS. Pour ca, pas de probleme.Mais a un moment donné, il faut ouvrir un document, voila le code : Set db=Session.CurrentDatabase Set xlsObject = CreateObject( "Excel.Application" ) ' Ouverture du fichier. En retour, on récupère le classeur Set xlsWorkBook = OpenXlsFile ("FichierSource", xlsObject) xlsObject.Visible = False (j'ai retiré les déclarations car a fait un mail trop long )et donc la fonction qui ouvre le fichier est la suivante:Function OpenXlsFile (PathFichierSource As String, xlsObject As Variant) As VariantxlsObject.Workbooks.Open PathFichierSource Set OpenXlsFile = xlsObject.ActiveWorkbookEnd Functionvoilaaaaaaa et en fait, c'est a la ligne "xlsObject.Workbooks.Open PathFichierSource" que ca plante!

[Raziel]

C'est cette ligne qui pose pbSet xlsWorkBook = OpenXlsFile ("FichierSource", xlsObject)car tu ne passe pas la variable FichierSource mais la chaine FichierSource.Remplace cette ligne parSet xlsWorkBook = OpenXlsFile (FichierSource, xlsObject)

[leila]

J'ai testé en retirant les guillements mais ca ne marche pas on me met comme erreur : type mismatch ou un truc du genre.....

[Raziel]

Fichier source doit être du type stringDim FichierSource as string