utilisation d'une variable dans sauvegarde fichier

[lagodille]

bonsoir

voilà mon problème : j'ai ceci

On Error Resume Next
ChDrive ("W:")
QPath = "W:\data\"
' Récupère l'ancien nom du fichier
QFic = Dir(QPath & "OP1TECH" & "*" & ".xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "W:\data\OP1TECH " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
' Supprime l'ancien si existe
If QFic <> "" Then Kill QPath & QFic
If Err.Number <> 0 Then ChDrive ("D:")
QPath = "D:\DOSSIER\"
' Récupère l'ancien nom du fichier
QFic = Dir(QPath & "\OP1TECH" & "*" & ".xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "D:\DOSSIER\OP1TECH " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
' Supprime l'ancien si existe
If QFic <> "" Then Kill QPath & QFic
On Error GoTo 0

Maintenant à la place de OP1, je voudrais avoir automatiquement le nom de la personne qui se trouve en feuil1!A1

comment faire ?
merci pour votre aide

 

[kjin]

Re : utilisation d'une variable dans sauvegarde fichier

Bonsoir,
Remplaces OP1 par la variable X par exemple :
....
ActiveWorkbook.SaveAs "D:\DOSSIER\" & X & "TECH " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
....
Avec X = sheets(1).range("A1").value

Me semble t-il, si j'ai compris
A+
kjin

 

[lagodille]

Re : utilisation d'une variable dans sauvegarde fichier

merci kjin !!!!!!!!