renommer mon classeur actif et l'archiver dans le répertoire ini ti
Le
jean-Paul
-- Bonjour à tous,
A la fin d' une macro qui effectue un récapitulatif général sur ma feuille
de travail, j'ai résolu de renommer mon classeur actif et de l'archiver dans
le répertoire de travail initial ( en cours ) ( qui change à chaque fois )
Sheets("Bon").Select
num = [f7].Value
ActiveWorkbook.SaveAs Filename:="Bon n°" & num
Pb : ça a marché une fois et maintenant il n'archive pas dans le répertoire
de travail du fichier d'origine mais dans C/mesdocument
Comment faire pôur remédier à ce Pb.
merci d'avance pour vos réponses
jps
A la fin d' une macro qui effectue un récapitulatif général sur ma feuille
de travail, j'ai résolu de renommer mon classeur actif et de l'archiver dans
le répertoire de travail initial ( en cours ) ( qui change à chaque fois )
Sheets("Bon").Select
num = [f7].Value
ActiveWorkbook.SaveAs Filename:="Bon n°" & num
Pb : ça a marché une fois et maintenant il n'archive pas dans le répertoire
de travail du fichier d'origine mais dans C/mesdocument
Comment faire pôur remédier à ce Pb.
merci d'avance pour vos réponses
jps
Poser une question
fait un Chdir (ton chemin) avant ta ligne ActiveWorkbook.SaveAs
Filename:="Bon n°" & num
à+
FL
"jean-Paul" news:
Cordialement
FL
"FL" 44ef05fa$0$27391$
--
JLuc
répertoire actif
Peux tu encore m'aider ? chaque fichier est un fichier mensuel, et au départ
je dois en créer 13 (12 + 1 si le mois est commencé à partir du modèle
configuré ( tarif catalogue fixe sur une année )
demande-d'achat-2006-01
demande-d'achat-2006-02
demande-d'achat-2006-03
etc...
Dans un premier temps, j'ai essayé cela, mais quelque chose doit m'échapper !!
For i = 1 To 13
Sheets("BON").Select
Range("F7").Select
ActiveCell.FormulaR1C1 = i
num = i
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "demande-achat
2006" & num
Next i
End Sub
A moins qu'il existe un moyen pour extraire les treize mois suivants
incluant le mois en cours à partir de la date système ?
--
jps
For i = Month(Now) To Month(Now) + 13
If i < Month(Now) And i < Month(Now) + 13 Then
annee = Year(Now)
Else
annee = Year(Now) + 1
End If
Sheets("BON").Range("F7") = i
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & _
"demande-achat " & annee & "-" & Format(i,"00")
Next i
Ca devrait convenir, j'ai pas tester, dis nous ;-)
--
JLuc