francedemo
XLDnaute Occasionnel
[résolu] récupérer info dans le nom de fichier
bonjour à tous
voilà, j'ai récupéré sur le site un bout de code bien utile pour mon besoin:
je crée une fiche SAV qui passe d'abord par le répertoire "devis" puis par celui des "vente"
en gros, je récupère le nom du client en cellule G6 et je crée le nom de fichier sous la forme "nom du client"_"date de création de la fiche"_
dans le cas d'un devis, je place l'enregistrement du fichier dans le répertoire "devis"
dans le cas d'une vente, je place le fichier dans "vente" avec "SAV"(y)_"n°ordre"(z) en fin de fichier et j'ouvre le fichier de récapitulatif
dans le cas de garantie, je place le fichier dans "garantie" avec "GAR"(y)_"n°ordre"(z)
tout ça fonctionne au poil
je n'ai plus qu'un cas de figure: une fois le devis édité puis validé par le client
je dois enregistrer le fichier sous la forme nom du client_date de création de la fiche(y)_SAV ou GAR_n°ordre(z)
le problème est que la macro modifie la date, ce que je ne veux pas
je veux juste ajouter à la fin SAV ou GAR (y) + n°ordre (z) et déplacer le fichier dans le répertoire correspondant
j'espère avoir été suffisamment clair
merci d'avance pour vos réponses
bonjour à tous
voilà, j'ai récupéré sur le site un bout de code bien utile pour mon besoin:
je crée une fiche SAV qui passe d'abord par le répertoire "devis" puis par celui des "vente"
Code:
Sub enregistrement_auto_Devis_SAV()
'Contrôler de la validité des symboles de la cellule
Dim Arr
Arr = Array(" ", "*", "?", ">", "<", ":", "", "/", "|")
'Utiliser le nom de livraison comme racine du nom de fichier
x = ActiveSheet.Range("G6").Value
y = ActiveSheet.Range("AG1").Value
z = ActiveSheet.Range("AG2").Value
'Remplacer chacun des élément par "_"
For Each elt In Arr
x = Replace(x, elt, "_")
Next
'Formater la date
MaDate = Format(Date, "YYYY_MM_dd_")
'Se placer dans le bon répertoire
If Range("C7") = "Devis" Then
ChDir "O:\SAV\DevisSAV"
ElseIf Range("C7") = "Commande" Then
ChDir "O:\SAV\VenteSAV\2009"
ElseIf Range("C7") = "Garantie" Then
ChDir "O:\SAV\Garantie\2009"
End If
'Enregistrer le fichier sous...
ActiveWorkbook.SaveAs Filename:=x & "_" & MaDate & y & "_" & z & ".xls"
'Ouvrir "RécapVenteCardio2009base" pour renseigner les lignes à facturer
If Range("C7") = "Commande" Then
Fichier = "o:\gestion commerciale\RecapVenteCardio2009base.xls"
Workbooks.Open Filename:=Fichier, UpdateLinks:=1
End If
End Sub
dans le cas d'un devis, je place l'enregistrement du fichier dans le répertoire "devis"
dans le cas d'une vente, je place le fichier dans "vente" avec "SAV"(y)_"n°ordre"(z) en fin de fichier et j'ouvre le fichier de récapitulatif
dans le cas de garantie, je place le fichier dans "garantie" avec "GAR"(y)_"n°ordre"(z)
tout ça fonctionne au poil
je n'ai plus qu'un cas de figure: une fois le devis édité puis validé par le client
je dois enregistrer le fichier sous la forme nom du client_date de création de la fiche(y)_SAV ou GAR_n°ordre(z)
le problème est que la macro modifie la date, ce que je ne veux pas
je veux juste ajouter à la fin SAV ou GAR (y) + n°ordre (z) et déplacer le fichier dans le répertoire correspondant
j'espère avoir été suffisamment clair
merci d'avance pour vos réponses
Dernière édition: