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