Nom de l'imprimante active ?
1re partie du message supprimée, car devenue inutile...
Voici un code pour connaître le nom de l'imprimante active :
Sub NmImpr()
Dim NomImprimante As String
NomImprimante = Application.ActivePrinter
MsgBox NomImprimante
End SubTout simplement...
PS : Voici le code pour afficher la liste des imprimantes (c'est une façon de remercier M12 et X Cellus pour leur code) :
https://forum.excel-pratique.com/excel/detecter-l-imprimante-active-175620
A nouveau,
Ne pas oublier que la variable (string) monchoix dans le code fourni précédemment (dans l'autre fil) te donne le nom de l'imprimante.
Si tu souhaites ôter le N0. Il faut savoir qu'il présente peu de caractères.
Donc tu as le nombre de caractères dans la valeur string par len(monchoix).
Puis tu retranches par exemple le nombre de caractères par
MsgBox Left(mon choix, Len(monchoix)-4)Oui, j'y ai pensé après...
J'avais déjà expérimenté ce troncage de chaîne de caractères dans d'autres langages (Python, DBase III Plus, Turbo Pascal, Delphi 5 etc. Ça date !)
Merci.
@+
Suite,
Tu le retrouves ici, cela date...En effet du début de plusieurs langages.