francedemo
XLDnaute Occasionnel
[Résolu] enregistrement auto au bon endroit
bonjour à tous,
j'ai cherché mais n'ai pas trouvé ce qui m'intéresse :
voilà, je créée un fichier de vente de pièces détachées qui peut se trouver dans 3 états : "devis" / "Commande" / "Garantie"
à l'aide d'une macro, j'enregistre automatiquement le fichier sous "nom_du_client"_"date_de_l'offre" dans le répertoire /Devis
mais il arrive que j'ai directement la commande ou la garantie, dans ce cas, j'ajoute à la main "SAV"_"n°" ou "GAR"_"n°" et je déplace le fichier dans le répertoire correspondant /SAV ou /GAR
ce que je voudrais faire, c'est enregistrer directement les SAV / GAR dans le bon répertoire automatiquement
je vous mets le bout de code utilisé:
je pense qu'il y a moyen de tester la valeur de "AG1" et d'orienter l'enregistrement vers le bon répertoire... (sauf que ça, je ne sais pas le faire...)
merci d'avance pour vos réponses
bonjour à tous,
j'ai cherché mais n'ai pas trouvé ce qui m'intéresse :
voilà, je créée un fichier de vente de pièces détachées qui peut se trouver dans 3 états : "devis" / "Commande" / "Garantie"
à l'aide d'une macro, j'enregistre automatiquement le fichier sous "nom_du_client"_"date_de_l'offre" dans le répertoire /Devis
mais il arrive que j'ai directement la commande ou la garantie, dans ce cas, j'ajoute à la main "SAV"_"n°" ou "GAR"_"n°" et je déplace le fichier dans le répertoire correspondant /SAV ou /GAR
ce que je voudrais faire, c'est enregistrer directement les SAV / GAR dans le bon répertoire automatiquement
je vous mets le bout de code utilisé:
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
'Récupérer le type de fichier (Dev / SAV / GAR)
y = ActiveSheet.Range("AG1").Value
'Indiquer le n° de fiche
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
ChDir "o:\SAV\DevisSAV"
'Enregistrer le fichier sous...
ActiveWorkbook.SaveAs Filename:=x & "_" & MaDate & y & "_" & z & ".xls"
End Sub
merci d'avance pour vos réponses
Dernière édition: