Domic, le forum,
Ais du soir, bonsoir (Walking in your footsteps est bien aussi)
Quelques éléments de réponse :
Pour recherher un fichier :
RechercheFichier = "Chemin\FichierCherché.xls"
If Dir(RechercheFichier) = "" Then
Affichage = MsgBox("Le fichier cherché n'est pas présent dans le répertoire Chemin" )
RechercheFichier = Application.GetOpenFilename("Tous les fichiers excel(*.xls), *.xls", , )
If RechercheFichier = False Then
Affichage = MsgBox("Vous allez quitter la routine." & Chr(10) & "Aucune modification ni aucun enregistrement n'ont été effectués" , 48)
GoTo LaFin
End If
End If
Pour enregistrer :
NomFichier = "Tout ce que tu veux comme nom"
NomEtChemin = "Répertoire où tu veux enregistrer\" & NomFichier
EnregistrerSous :
FichierEnregistrerSous = Application.GetSaveAsFilename(NomEtChemin, Filefilter:="Fichiers Microsoft Excel (*.xls), *.xls")
If FichierEnregistrerSous <> False Then
Affichage = MsgBox("Vous allez enregistrer " & NomFichier & " sous :" & Chr(10) & Chr(10) & FichierEnregistrerSous, , "Enregistrement du fichier")
Else
GoTo LaFin
End If
If Dir(FichierSoumissionsEnregistrerSous) <> "" Then
Affichage = MsgBox("Un fichier du même nom existe déjà à cet emplacement." & Chr(10) & Chr(10) & "Renommez le ou supprimer le.", vbExclamation, "NDLR")
GoTo EnregistrerSous
End If
ActiveWorkbook.SaveAs Filename:=FichierEnregistrerSous, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=True
LaFin:
End sub
Un peu compliqué l'enregistrer sous mais j'avais besoin de faire des tests. J'en fais profiter.
J'espère que c'est lisible et que ça t'apportera quelques réponses.
Abel