utilisation d'une variable dans sauvegarde fichier

lagodille

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
292

Membres actuellement en ligne

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun