Ouverture classeur avec macro - mais sur choix utilisateur

Bonjour,

voila comment faire :

___

'IMPORTATION D'UNE SEULE FEUILLE DE DONNEES

Sub ImportTextFile()

Dim DestBook As Workbook, SourceBook As Workbook
Dim DestCell As Range
Dim RetVal As Boolean
Dim Chemin As String

' Turn off screen updating.
Application.ScreenUpdating = False

'chemin en relatif du dossier ou se trouve tes données
Chemin = Sheets("Chemins").Cells(33, "D")
'ou en hard
'Chemin = "C:\...\dossier"

ChDir Chemin
' Set object variables for the active book and active cell.
Set DestBook = ActiveWorkbook
Set DestCell = Range("E59") 'active la cellule OU TU AIMERAIS COPIER LES DONNEES

' Show the Open dialog box.
RetVal = Application.Dialogs(xlDialogOpen).Show(Chemin & "\*.*")

' If Retval is false (Open dialog canceled), exit the procedure.
If RetVal = False Then Exit Sub

' Set an object variable for the workbook containing the text file.
Set SourceBook = ActiveWorkbook

' Copy the contents of the entire sheet containing the text file.
Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

'OU copie un range défini
'Range("A1:AD2000").copy

' Activate the destination workbook and paste special the values
' from the text file.
DestBook.Activate
DestCell.PasteSpecial Paste:=xlValues

' Close the book containing the text file.
SourceBook.Close False

Application.ScreenUpdating = True

End Sub

______

Le chemin est en fait ou tu aimerais que la fenetre ouvrir soit initialement pointée. SI tu dois toujours te balader dans 150 dossiers sur le réseau avant d'arriver au bon, ta meilleur temps de pointer directement sur le bon ^^

Amicalement,
Régis

Cela vient du fait que pour le Chdir ton adresse ne doit pas comporter de \ à la fin ;-)

Essaye de mettre "A:" ou juste avancer d'un dossier et "A:\dossier"

sinon tu peux carrément enlever l'intérieur du show() mais alors là, ton ouverture poitnera sur ton bureau ou dans "mes document"

exactement ! tu peux utiliser cette commande !

Application.displayAlerts = false

Re,

Tout d'abord, merci pour ta réponse éclair !!

Pour le chemin, j'ai besoin d'un hard. J'ai donc mis Chemin = "A:\" car les fichiers sont directement là.

J'ai un petit soucis au niveau de ChDirChemin, il ne trouve pas le chemin
error "Path no found"

Aurais tu une idée du pourquoi ?
Amicalement, Maxime.

Ca fonctionne merci beaucoup !!!

Il y a juste un petit détail:

- il y a un message qui me demande si je veux garder la selection dans le "clipboard", parce qu'en fait, il ouvre le excel sélectionné, il copie,puis il le ferme. Ducoup il veut savoir s'il doit garder en mémoire le "ctrl+c" .. Y a t-il un moyen de lui dire oui par défaut ?
Cette commande serait elle la solution ? DisplayAlerts = False