Re : SaveAs VBA + Chemin d'accès
Bonjour à tous,
Désolée de ne pas avoir répondu plus tôt.
Un énorme problème informatique (avec perte des fichiers et tout et tout ...) m'a empêchée de venir sur le site.
Bon, j'ai fait venir un technicien qui, après certain temps (ou un temps certain) a réussi à me récupérer mes données. Ouf ! J'ai eu chaud !
Thierry : comme tu l'a sûrement vu sur mes codes VBA, ce n'est pas moi qui les ai créés mais DAN. Je n'y connais absolument rien du tout et je ne sais pas quoi faire de ton code (qu'est-ce que je garde, qu'est-ce que remplace ?). Aurais-tu la gentillesse de me le mettre dans mon fichier que je joins STP ?
Par contre, pour le nom du fichier, s'il est possible de remplacer le numéro de commande qui actuellement se présente sous la forme 0001 par 2006-11-0001, il me semble que la sytaxe serait allégée.
L'enregistré-sous prendrait donc le nom du client (F9) ainsi que le numéro (B9) et j'aimerais que ça aille dans : C:\Documents and Settings\NL\Bureau\CDES PASSEES\PYREVERRE
Voilà, je sais que j'en demande pas mal, mais je suis en train de lire tous les posts concernant VBA pour essayer d'y comprendre quelque chose et de m'en servir. Mais malheureusement, ce n'est pas pour de suite.
Feutrine
Edit : le fichier est trop gros, même compressé. Voici le code actuel :
Sub Sauve()
'Macro par Dan pour Feutrine - 22 octobre 06
'Sauvegarde cde Pyreverre
Dim nom As Workbook
Application.ScreenUpdating = False
Sheets("COMMANDE").Copy
ActiveSheet.UsedRange.Activate
With Selection
.Copy
.PasteSpecial Paste:=xlValues
.Validation.Delete
End With
Columns("A:A").Delete
Columns("K:AB").Delete
nomfichier = ActiveSheet.Range("F9") & Format(Now(), "-yyyy") & Format(Now(), "-mm") & "-" & Format(ActiveSheet.Range("A9"), "0000") & "C"
MsgBox nomfichier
With ActiveWorkbook
.SaveAs Filename:=nomfichier
.Close
End With
Application.ScreenUpdating = True
End Sub