Bonsoir à tous,
Voilà mon problème :
J'ai 2 applications Excel ouvertes en même temps.
Dont une qui change de nom fréquemment.
Voici le code VBA qui me permet de la nommer :
-------------------------------------------------------------------------------------------------
Dim Repertoire As String 'Procédure d'enregistrement sous le numéro de la valeur de la cellule (2,18)
Dim Fichier As String
Dim Extension As String
Repertoire = "E:\hbb\Dossiers\Travail\"
Extension = ".xls"
Fichier = Cells(2, 18).Value
ActiveWorkbook.SaveAs Filename:= _
Repertoire & Fichier & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
-------------------------------------------------------------------------------------------------
J'ai souhaiterais selectionner l'application ci-dessus qui change de nom régulièrement quand l'autre application est active.
Aujourd'hui, elle peut être nommée, par exemple, "5001" et demain "5002".
Si elle portait tout le temps le nom "5001", je pourrais faire un code simple du style
Windows("5001.xls" ).Activate
Mais ce n'est évidemment pas possible !!!!
Quelqu'un aurait-il une idée ?
Merci d'avance,
hbb
Message édité par hbb le 12-04-2006 à 23:38:27