Bonjour à tous,
Voila à l'éxécution de ma macro, excel me sort l'erreur suivante : "la methode pastespecial de la classe range à échouée", seulement, je n'ai aucune idée de ce qui pourrait clocher dans ma fonction !
Si quelqu'un pourrait m'aguiller un peu, car je suis vraiment perdu niveau macro !
Merci à tous
Voila à l'éxécution de ma macro, excel me sort l'erreur suivante : "la methode pastespecial de la classe range à échouée", seulement, je n'ai aucune idée de ce qui pourrait clocher dans ma fonction !
Si quelqu'un pourrait m'aguiller un peu, car je suis vraiment perdu niveau macro !
Merci à tous
Code:
Sub Macro7()
'
If Range("C6") = "" Then
MsgBox ("Erreur : Champs vendeur non renseigné. Merci de le remplir et sauvegarder a nouveau !")
Exit Sub
End If
If Range("M6") = "" Then
MsgBox ("Erreur : Champs jour non renseigné. Merci de le remplir et sauvegarder a nouveau !")
Exit Sub
End If
If Range("N6") = "" Then
MsgBox ("Erreur : Champs mois non renseigné. Merci de le remplir et sauvegarder a nouveau !")
Exit Sub
End If
If Range("Q6") = "" Then
MsgBox ("Erreur : Champs année non renseigné. Merci de le remplir et sauvegarder a nouveau !")
Exit Sub
End If
'Vider le presse papier
Dim oDataObject As DataObject
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
Set oDataObject = Nothing
'Copitage
Sheets("Journée").Select
Sheets("Journée").Unprotect Password:="mat"
Rows("62:62").Select
Selection.Copy
Sheets("Journée").Protect Password:="mat"
'Ouvre synthese
Workbooks.Open Filename:="synthese.xlsm"
Windows("synthese.xlsm").Activate
'deprotege
Sheets("BDD").Select
'calcul derniere ligne non ecrite
Dim nbLigne As Long
nbLigne = Range("B65536").End(xlUp).Row + 1
'la selectionne
Rows(nbLigne).Select
Sheets("BDD").Unprotect Password:="mat"
'collage
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'protege
Sheets("BDD").Protect Password:="mat"
'ferme et sauvegarde
Application.AlertBeforeOverwriting = False
ThisWorkbook.Save
ActiveWorkbook.Close SaveChanges:=True
'retourne sur feuille
Windows("feuille de journée vierge.xlsm").Activate
Sheets("Journée").Select
Range("G58").Select
'message
MsgBox ("Sauvegarde correctement effectuée. Pensez à enregister le fichier avant de quitter.")
End Sub
Dernière édition: