Recherche idéé pour ouvrir une feuille excel une fois que le programme tourne Résolu

Question

g déjà écrit une partie du code,et je doit à chaque fois spécifier le chemin d'accé de mon fichier excel(dans mon code), alors que je voudrais le spécifier une fois que mon programme tourne. 
G donc pensé à la boite de dialogue "Ouvrir", mais je ne sais pas pour la suite.

Voici la partie de mon code:

Private Sub Execut_Click()
Dim objExcelApp As Object

' On ouvre Excel
Set objExcelApp = CreateObject("Excel.Application")
'  Un classeur  et une feuille
objExcelApp.Workbooks.Add ("C:\Documents and Settings\PASTRE Jonathan\Mes documents\Acier.xls")

Jonathan

JONJON91 · Accepted Answer

Merci pour tous.
Si tu as du nouveau,ou même (on c jamais) si je peux t'aider, nésite pas à m'envoyer un message.

Utilisateur anonyme · Answer

Bonjour,



Pour faire appara&#238;tre une bo&#238;te de dialog ouvrir.



Dim MyPath as String

With Application.FileDialog(msoFileDialogOpen)
   .Title = "Bonjour, je suis une bo&#238;te de dialog !!!"
   .InitialView = msoFileDialogViewDetails
   .AllowMultiSelect = False
 '  ... etc ...
 
   .Show
   MyPath = .SelectedItems(1)
 End With



ChRb

JONJON91 · Answer

Merci mais j'aimerai, une fois la boite de dialogue apparut, que le chemin de mon fichier choisi, apparaissent dans mon code qui est inscrit plus haut:

qu'il prenne la place du chemin actuel : ("C:\Documents and Settings\PASTRE Jonathan\Mes documents\Acier.xls")

As tu une solution

Utilisateur anonyme · Answer

Bonjour,



Ajoute

.InitialFileName = "C:\Documents and Settings\PASTRE Jonathan\Mes documents\Acier.xls"



ChRB

JONJON91 · Answer

Je vais tester cela. Mais Je ne comprend Pas trés bien c normale je suis débutant.
Merci à toi c gentil de mavoir aidé

JONJON91 · Answer

désolé mais je n'y arrive pas.
Sinon, comment je peux récuperer le chemin du fichier selectionné par la boite de diaogue.
Quel est la fonction à utiliser.

Utilisateur anonyme · Answer

Bon, je me perds un peu dans ton probl&#232;me. Que veut tu faire exactement ? Pr&#233;cise un peu plus.

J'ai r&#233;adapter ton code en ajoutant la bo&#238;te de dialog ouvrir mais je ne sait si c'est &#231;a que tu veut !



Public Sub Execut_Click()




Dim objExcelApp As Excel.Application


' On ouvre Excel


Set objExcelApp = CreateObject("Excel.Application")




Dim MyPath As String


With Application.FileDialog(msoFileDialogOpen)


  .Title = "Bonjour, je suis une bo&#238;te de dialog !!!"


  .InitialView = msoFileDialogViewDetails


  .AllowMultiSelect = False


  .InitialFileName = "C:\Documents and Settings\PASTRE Jonathan\Mes documents\Acier.xls"


  .Show


  MyPath = .SelectedItems(1) ' <-- ici on r&#233;cup&#233;re le nom du fichier


End With




'  Un classeur  et une feuille


objExcelApp.Visible = True


objExcelApp.Workbooks.Add (MyPath)




End Sub









ChRB

JONJON91 · Answer

Je te remercie de l'investissement que tu me conssacre.
Mon problème est assez compliqué je l'avous.
Mais tu est dans la bonne voie.
C exactement ça que je veux faire:

Récupérer le chemin du fichier choisit à partir de la fenêtre ouvrir, pour ensuite être traité (car je récupère des valeurs dans le tableau, par la suite).

L'adaptation de mon code que tu à fait me parrait bon dans le principe, mais je n'ai pas réussi à le faire marcher. g un problème avec le:
With Application.FileDialog(msoFileDialogOpen), je ne comprend pas.

Mais je te remercie encore pour ton aide, tu m'a déjà bien éclairé.

Utilisateur anonyme · Answer

Qu'est qui ne marche pas ? Quelle est l'erreur ?




ChRB

JONJON91 · Answer

peux tu m'expliquer ce que signifie:
"With Application.FileDialog(msoFileDialogOpen)"

Merci d'avance.

JONJON91 · Answer

Il me dit:
L'objet ne gère pas cette propriéteé ou cette méthode
sur la ligne suivante:
With Application.FileDialog(msoFileDialogOpen)

Ne comprenemt pas par moi même je te demanderai une petite explication de cette ligne.
Merci

Utilisateur anonyme · Answer

Application.FileDialog est une fonction qui permet d'afficher des bo&#238;tes de dialog d'office.

msoFileDialogOpen est l'argument pour pr&#233;ciser que la bo&#238;te de dialog est une bo&#238;te de dialog ouvrir.

La fonction renvoie un type FileDialog



L'instruction With permet de sp&#233;cifier un objet ou un type d&#233;fini par l'utilisateur pour une 
s&#233;rie d'instructions. Les instructions 
With acc&#233;l&#232;rent l'ex&#233;cution des proc&#233;dures et permettent d'&#233;viter des 
saisies r&#233;p&#233;titives.



ChRB

Utilisateur anonyme · Answer

Vu l'erreur que tu as c'est que ta version d'excel ne dispose pas de cette fonction. Il faudra donc faire autrement.



ChRB

Recherche idéé pour ouvrir une feuille excel une fois que le programme tourne

13 réponses

Discussions similaires