Bonjour a tout le forum
J'ai un petit souci de sauvegarde de page.
Je fais une sauvegarde de mes factures avec ce code :
L'inconvénient est que dans certaines cellules lors de la sauvegarde et écris #REF!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Public Sub copie() Dim fpath, filename, datee As String fpath = ActiveWorkbook.Path Sheets("Facture").Copy datee = Now datee = Format(datee, "dd-mm-yy hh-mm-ss") filename = fpath & "\sauvegarde factures\" & datee & "-" & Sheets("Facture").Range("f4").Value & " n " & Sheets("Facture").Range("c16").Value & "-" & Sheets("Facture").Range("e16").Value & "-" & Sheets("Facture").Range("g8").Value & ".xls" ActiveWorkbook.SaveAs filename ActiveWorkbook.Close End Sub
Ces cellules sont avec une fonction du genre ( recherche de prix dans une autres feuilles ) :
Comment faire pour y remédier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part =SI(C22="";"";INDEX(DECALER(INDIRECT(B22);;5);EQUIV(C22;INDIRECT(B22);0)))
J'aimerai également que ne soit sauver le range de (A1:L40), tout en gardant la mise en forme, mais j'arrive pas à le placer, j'ai soit une sauvegarde compléte du classeur ou un bug
Merci de votre aide
Partager