Macro, pour enregistrer une feuille sous, plante...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide sur cette macro qui plante...

voir fichier joint.

Je vous remercie, par avance, pour votre aide et le temps que vous voudrez bien m'accorder.


Bien amicalement,

Christian

 

[Theze]

Re : Macro, pour enregistrer une feuille sous, plante...

Bonsoir,

Vérifie avec un "MsgBox" ce que contient la variable "NomDeFichier" ! Je doute que tu es un chemin complet.

Hervé.

 

[Roland_M]

Re : Macro, pour enregistrer une feuille sous, plante...

bonsoir,

vérifierr toutes ces valeurs:
' Range("A1") = ?
' Range("A2") = ?
' [j4] [k4] = ?

'et ici

' Sheets("Saisies").Copy ' <<<<<<<<<<<<<<<
' With ActiveSheet.UsedRange.Cells ' <<<<<<<<<<<<<<
' .Copy
' ...
'c'est l'un ou l'autre et de plus pas de end with

 

[Roland_M]

Re : Macro, pour enregistrer une feuille sous, plante...

re

voir avec ceci:

'ThisWorkbook.Sheets("Saisies").Range("A1") & Format(Date, "yyyy-MMMM") & "-" & [j4] & [k4] & ".xls"
' revoir > [j4] & [k4] !? ... de quelle source !?
' si ThisWorkbook.Sheets("Saisies").Range("J4") et "K4" !? il faut le préciser !!!
' voir > Chemin dans cellule A1
' voir > NomDeFichier dans cellule A2 (sans extention)
' .... > pour le même chemin que ThisWorkbook > Chemin = ThisWorkbook.Path & "\"
' avec xls FileFormat:=xlWorkbookNormal
'--------------------------------------
Sub EnregistrerSous()
Dim Chemin$, NomDeFichier$, CheminEtFichier$
With ThisWorkbook.Sheets("Saisies")
     Chemin = .Range("A1")
     NomDeFichier = .Range("A2") & Format(Date, "yyyy-MMMM") _
     & "-" & .Range("J4") & .Range("K4") & ".xls"
End With
'ou simplement > Chemin = ThisWorkbook.Path & "\"
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
CheminEtFichier = Chemin & NomDeFichier
Sheets("Saisies").Copy
ActiveWorkbook.SaveAs _
  Filename:=CheminEtFichier, FileFormat:=xlWorkbookNormal, CreateBackup:=False
ActiveWorkbook.Close
End Sub

 

[Christian0258]

Re : Macro, pour enregistrer une feuille sous, plante...

Re, le forum, Theze, Roland,


Merci à vous pour votre aide je regarde ça...


Bien à vous

Christian