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('B2
5').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]