Fonction ouvrir fichier en VBA Excel

honeyseb1492 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
MEZ* - 5 janv. 2009 à 15:33

Bonjour je souhaite ecrire un fonction qui ouvre un fichier en VBA excel.

Est ce possible ou ne puis je le faire qu'en utilisant une macro ?

Voici le code qui ne fonctionne pas:

Function A(Nom_Fichier as string) As Double

'On ouvre le fichier en question

Workbooks.Open Filename:="D:\"&"Nom_Fichier"&".xls"

A = Workbooks(Nom_Fichier).Worksheets("Feuil1").Range("A1").value

Workbooks.Close savechanges:=False, routeworkbook:=False

End Function

Merci par avance pour votre réponse !!

Sebastien

Afficher la suite

A voir également:

Vba workbook open
Workbook.open - Meilleures réponses
Open vba - Meilleures réponses
Open office gratuit - Télécharger - Suite bureautique
Open core legacy patcher - Accueil - MacOS
Open sankoré - Télécharger - Bureautique
Open workbench - Télécharger - Gestion de projets
L'indice n'appartient pas à la sélection vba - Forum VB / VBA

3 réponses

Réponse 1 / 3

le père

Bonjour

Workbooks.Open Filename:="D:\"&"Nom_Fichier"&".xls"

Avec cette ligne, tu essayes d'ouvrir un fichier qui s'appelle Nom_Fichier
essaye plutôt :
Workbooks.Open Filename:="D:\" & Nom_Fichier & ".xls"

("Nom_Fichier" entre " " n'est pas une variable)

honeyseb1492 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Bonjour et tout d'abord merci pour ta réponse rapide !

Je suis d'accord avec ta correction, mais jai juste mis un code pour la forme, pour illuster ma question en fait.

Mon intérogation réelle est: "Est ce qu'on peut utiliser une "Fonction" pour ouvrir un fichier Excel ?"

Autrement dit: Quand j'ai un fichier Excel ouvert, puis je ecrire dans une case:

= Fonction (Nom du fichier à ouvrir") ????

Merci par avance

Réponse 2 / 3

Utilisateur anonyme

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

honeyseb1492 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Bonjour booddha

J'ai testé ton code que j'ai mis à ma sauce (ci-dessous). Quand apres ça je vais dans un classeur et que je mets dans une cellule: = ouverture_fichier() et "Entrée" j'obtiens un "# VALEUR"...

Est ce normal ? Je m'attendais à ce que le fichier 0000.xls s'ouvre ...

Pour info, je suis débutant en VBA.

Function ouverture_fichier ()

'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")

'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Seb\Bureau\0000.xls")

'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

End Function

le père > honeyseb1492 Messages postés 3 Date d'inscription Statut Membre Dernière intervention

Il ne faut pas oublier de dire à la fonction quelle valeur elle doit rendre, c'est cette valeur qui apparaîtra dans ta cellule
quelque chose comme :
ouverture_fichier=""

MEZ*

Bonjour Bouddha,

Pourrais tu translater les mêmes fonctions pour la déclaration et l'ouverture d'un fichier ppt?
merci d'avance

Réponse 3 / 3

Utilisateur anonyme

J'ai récupéré ça ici

Va y voir, tu trouveras peut-être ta solution.

Otazik

ce petit programme ouvre un fichier txt dans un fichier excel

fna = Application.GetOpenFilename

ChDir "P:\Echange R4\Documents Nokia\Document referentiel\Documentation NOKIA\DEx\Tools\Alarmes\Extract"
Workbooks.OpenText Filename:= _
fna, Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

Ambre > Otazik

Bonjour,

je cherche a copier les donées d'un tableau Excel dans un fichier .txt formaté d'une certaine facon.
Comment creer, nommer , indiquer son emplacement et ouvrir un fichier txt depuis une macro excel programmée en VBA, ensuite je devrais extraire les infos contenues dans le fichier excel depuis lequel je souhaite declencher la macro pour les inserer selon une certaine disposition dans le fichier txt.

Discussions similaires

Bordure de cellule sous VBA

Sélectionnez une ligne en entière VBA

VBA : récupérer chemin de répertoire

La valeur d'une cellule dans une variable VBA

Trier des dates dans Excel sous VBA

[Excel Vba] détecter un mot dans une chaine

Votre réponse

Discussions similaires