Problème macro excel Fermé

Question

Bonjour à tous,

Voilà j'ai un petit soucis avec ma macro excel,
Quand je l'ai créer tout fonctionner très bien...
Depuis 1 semaine j'ai des problèmes lors de l'opération de sauvegarde... 
C'est à dire que soit elle bug ou soit ça ne fait rien. Pourtant le reste de la macro s’exécute toujours correctement... 

Voici la macro :

Private Sub Workbook_Open()

Dim myRange As Range

Set myRange = Range("A" & Rows.Count).End(xlUp)

If Not myRange = Date Then

'j'insert une ligne au dessus de la dernière
myRange.EntireRow.Insert

myRange.EntireRow.Select

'je copie la derniere ligne et je la colle au dessus en dur

Selection.Copy
myRange.Offset(-1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'je met à jour la date de la dernière fois par celle du jour

myRange = Date

'sauvegarder avec la nouvelle date

Dim nom As String
ChDir "C:\Users\vklajnow\Documents\OXXXX PXXXXX\LISTE_KPI"
nom = Range("k1351") & "_" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls"
ThisWorkbook.SaveAs (nom)

MsgBox ("KPI mis à jour")
Else
MsgBox ("KPI déjà mis à jour aujourd'hui")
End If
End Sub

Le problème le plus récurrent vient de : ( erreur du debuggeur 1004)

ThisWorkbook.SaveAs (nom)

Merci d'avance pour votre aide,

Cordialement,

Victor K

Configuration: Windows 7 / Chrome 52.0.2743.116

ThauTheme · Answer

Bonjour Victor, bonjour le forum,

Peut-être comme ça :

Private Sub Workbook_Open()
Dim myRange As Range
Dim nom As String
Dim CH As String

Sheets("Feuil1").Select  'nom de l'onglet à adapter
Set myRange = Range("A" & Rows.Count).End(xlUp)
If Not myRange = Date Then
    'j'insert une ligne au dessus de la dernière
    myRange.EntireRow.Insert
    myRange.EntireRow.Select
    'je copie la derniere ligne et je la colle au dessus en dur
    Selection.Copy
    myRange.Offset(-1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'je met à jour la date de la dernière fois par celle du jour
    myRange = Date
    'sauvegarder avec la nouvelle date
    CH = "C:\Users\vklajnow\Documents\OXXXX PXXXXX\LISTE_KPI\"
    nom = CH & Range("k1351").Value & "_" & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls"
    ThisWorkbook.SaveAs nom
    MsgBox ("KPI mis à jour")
Else
    MsgBox ("KPI déjà mis à jour aujourd'hui")
End If
End Sub

Problème macro excel

1 réponse

Discussions similaires