Donner un chemein pour l'ouverture d'un fichier?

[Joebar]

Bonjour bonjour,

Est il possible dans excel de faire ouvrir un dossier particulier pour pouvoir choisir un fichier?

Peut être que ce sera plus clair comme ça :

fileToOpen = Application _
.GetOpenFilename('Text Files (*.xls), *.xls', , , , False)
Workbooks.Open Filename:= _
fileToOpen

est il possible dans getopenfilename ou autre chose de spécifier le dossier dans lequel se trouve le ou les fichiers à choisir d'importer?

Mes lanternes étant éteintes sur ce sujet je sollicies vos lumières tant espérées... D'avance marci

 

[excalibur]

bonjour joebar le forum oui tu peus faire Option Explicit
Sub Macro1()
Application.Dialogs(xlDialogOpen).Show
End Sub'application.dialogs contient 200 'boites predefinis salutations

 

[Joebar]

Bonjour excalibur,

Merci pour ta réponse mais je crains de n'avoir pas bien compris

J'ai copié ta macro mais rien n'a changé le le dossier n'est toujours pas défini

 

[fifi]

Reonner un chemein pour l'ouverture d'un fichier

salut
en fait ce que t'a donnée Joebar c'est une marco que tu dois intégrer dans la tienne.
cette macro ouvre la boite de dialogue que tu utilises toi meme pour choisir le chemin d'un fichier.

mais je pense que tu préféres ceci :

Dim Chemin as variant
Chemin = range('A1') '  avec en A1 ton chemin 
Workbooks.Open Filename:= Chemin'

 

[Blunet]

Ca devrait marché

Salut Joebar en principe tout le code que tu as eu jusqu'ici devrait fonctionner.

Je te propose une variante qui te permet simplement de créer, choisir un répertoire et d'enregistrer le fichier dans le répertoire sélectionné.

J'ai attaché un fichier exple.

Public Repertoire As String 'Nom du répertoire
Public NomFichier As String 'Nom du fichier à ouvrir

'=====================================
Sub OuvirFichier()

'Récupération
Repertoire = InputBox('Entrer le nom entier du répertoire : ''C:\\RepertoireA\\...\\''', _
'Ouverture d'un fichier')
NomFichier = InputBox('Entrer le nom du fichier : ''Fichier Test''', _
'Ouverture d'un fichier')
' Ouverture
ChDir Repertoire
Workbooks.Open Filename:= _
NomFichier

'Mise en forme du nouveau fichier
Windows('REMBOURSEMENT A AMORTISSEMENTS CONSTANTS PAR PALIERS.xls').Activate
Sheets('Feuil1').Activate
Range('B25').Select
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Range('B3:C3').Value = 'BRAVO REUSSI A OUVRIR!!!': Range('B3:C3').Font.Bold = True

End Sub

Sub OuvirFichier2()
Dim OuvFich
OuvFich = Application.Dialogs(xlDialogOpen).Show
End Sub


[file]

 

[Blunet]

Ca devrait marché

Salut Joebar en principe tout le code que tu as eu jusqu'ici devrait fonctionner.

Je te propose une variante qui te permet simplement de créer, choisir un répertoire et d'enregistrer le fichier dans le répertoire sélectionné.

J'ai attaché un fichier exple.

Public Repertoire As String 'Nom du répertoire
Public NomFichier As String 'Nom du fichier à ouvrir

'=====================================
Sub OuvirFichier()

'Récupération
Repertoire = InputBox('Entrer le nom entier du répertoire : ''C:\\RepertoireA\\...\\''', _
'Ouverture d'un fichier')
NomFichier = InputBox('Entrer le nom du fichier : ''Fichier Test''', _
'Ouverture d'un fichier')
' Ouverture
ChDir Repertoire
Workbooks.Open Filename:= _
NomFichier

'Mise en forme du nouveau fichier
Windows('REMBOURSEMENT A AMORTISSEMENTS CONSTANTS PAR PALIERS.xls').Activate
Sheets('Feuil1').Activate
Range('B25').Select
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Range('B3:C3').Value = 'BRAVO REUSSI A OUVRIR!!!': Range('B3:C3').Font.Bold = True

End Sub

Sub OuvirFichier2()
Dim OuvFich
OuvFich = Application.Dialogs(xlDialogOpen).Show
End Sub

 

[Sorry pour le double message]

Je ne suis pas encore habitué, j'ai 1 pt pb avec l'attachement du fichier.

[file name=Ouverture.zip size=17423]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Ouverture.zip[/file]

 

[Joebar]

Merci beaucoup ça marche super

 

[Blunet]

Content pour toi Joebar

Peux tu me dire coment faire pour être membre ? Je ne vois nulle part où s'inscrire..