Sauvegarde fichier avec #REF!

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour a tout le forum

J'ai un petit souci de sauvegarde de page.
Je fais une sauvegarde de mes factures avec ce code :
Code:

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
L'inconvénient est que dans certaines cellules lors de la sauvegarde et écris #REF!
Ces cellules sont avec une fonction du genre ( recherche de prix dans une autres feuilles ) :

Code:

=SI(C22="";"";INDEX(DECALER(INDIRECT(B22);;5);EQUIV(C22;INDIRECT(B22);0)))

Comment faire pour y remédier.

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

17/01/2012, 11h44
ZebreLoup

Pour t'aider, il faudrait que l'on sache ce qu'il y a en B22 et en C22, ainsi que sur les plages auxquelles elles font références. Il y a surement une formule avec le classeur écrit en dur et ça ne marche plus quand on change le nom du classeur.

Pour faire une sauvegarde partielle, il faut créer un autre classeur, copier les valeurs voulues et l'enregistrer. Il faut voir si tu veux copier seulement les valeurs ou également les formules.
17/01/2012, 12h03
francky62000

Merci de t'occuper de mon cas , c'est assez urgent car j'utilise actuellement le classeur .

B22;B34 et C22;C34 font références a une liste

B22;B34 = Produits ; Soins
C22;C34 = Si soins liste des soins ; si Produits liste des produits

De H22;H34 ( par la fonction cité plus haut ) s'affiche alors le prix

De K22;K34 ( Le prix ttc )

En faite seule les valeurs m'intéresses
17/01/2012, 12h11
ZebreLoup

Tu n'as pas le classeur ou une version simplifiée, car ne ne vois vraiment pas pourquoi tu fais du INDIRECT là.
17/01/2012, 12h27
francky62000

Produits et Soins sont des onglets

le indirect c'est pour faire une liaison entre les onglets
17/01/2012, 14h12
ZebreLoup

Et tu n'as pas le #REF! avant la sauvegarde ? Tu es bien en mode calcul automatique ? Car il est possible que certaines formules ne marchent pas mais que tu ne t'en rendes compte qu'au moment de l'enregistrement car il ne les calcule qu'à ce moment là.
17/01/2012, 14h21
francky62000

1 pièce(s) jointe(s)

Non, je n'ai pas l'erreur #REF avant la sauvegarde , le calcul est bien en automatique , l'impression de la facture ne comporte également aucune erreur.

Le probléme apparait seulement lors de la sauvegarde car il manque les onglets Soins et Produits dont a besoin la sauvegarde. Ses onglets étant comme une banque de données pour la facture.

Le mieux serait d'avoir une sauvegarde que des valeurs , sans les formules , mais ça je sais pas comment faire.

Je joins une facture , peut être comprendras tu mieux

Sauf que dans le code que tu fournis au début, tu sauves bien tout le classeur. Tes onglets sont dans un autre fichier ?

Enfin passons, imaginons que tu ne veuilles sauver que la feuille 1 de ton classeur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub copieFeuille() Dim wb As Workbook Dim ws As Worksheet Set wb = Workbooks.Add Set ws = wb.Worksheets(1) ThisWorkbook.Worksheets("Feuil1").Copy ws.PasteSpecial Paste:=xlPasteValues ws.PasteSpecial Paste:=xlPasteFormats wb.SaveAs Filename:="C:\monDossier\monFichier.xls" 'A adapter à ton cas bien sûr wb.Close End Sub

17/01/2012, 15h06
francky62000

Heu non, je fais une copie de la facture (ligne 4)
Vers un autre classeur vierge en .xls

Sur la ligne 9
j'ai une erreur : Argument non trouvé
17/01/2012, 15h06
ZebreLoup

en ligne 4 tu ne fais que copier la feuille "Facture" dans le presse-papier. Mais cette ligne ne sert à rien car tu ne fais aucun Paste ensuite.

Tu remplaces Feuil1 par Facture.

De même, ne me dis pas dans un prochain message qu'il n'y a pas de répertoire "MonDossier" sur ton disque C ! :mouarf:

j'ai ca et sur la ligne 13 il dit " argument nommé introuvable "

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub copieFeuille()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim datee As String
 
 
    Set wb = Workbooks.Add
    Set ws = wb.Worksheets(1)
    datee = Now
    datee = Format(datee, "dd-mm-yy hh-mm-ss")
 
    ThisWorkbook.Worksheets("Facture").Copy
    ws.PasteSpecial Paste:=xlPasteValues
    ws.PasteSpecial Paste:=xlPasteFormats
 
    wb.SaveAs filename:=ActiveWorkbook.Path & "\sauvegarde factures\" & datee & "-" & Sheets("Facture").Range("f4").Value & " n " & Sheets("Facture").Range("c16").Value & "-" & Sheets("Facture").Range("g8").Value & ".xls" 'A adapter à ton cas bien sûr"
    wb.Close
End Sub

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub copieFeuille()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim datee As String
 
 
    Set wb = Workbooks.Add
    Set ws = wb.Worksheets(1)
    datee = Now
    datee = Format(datee, "dd-mm-yy hh-mm-ss")
 
    ThisWorkbook.Worksheets("Facture").Cells.Copy
    ws.PasteSpecial Paste:=xlPasteValues
    ws.PasteSpecial Paste:=xlPasteFormats
 
    wb.SaveAs filename:=ActiveWorkbook.Path & "\sauvegarde factures\" & datee & "-" & Sheets("Facture").Range("f4").Value & " n " & Sheets("Facture").Range("c16").Value & "-" & Sheets("Facture").Range("g8").Value & ".xls" 'A adapter à ton cas bien sûr"
    wb.Close
End Sub

17/01/2012, 16h01
francky62000

Toujours la même erreur

Désolé, j'avais juste la flemme de faire un classeur pour tester. Un autre essai (je copiais les feuilles au lieu des plages) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub copieFeuille()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim datee As String
 
 
    Set wb = Workbooks.Add
    Set ws = wb.Worksheets(1)
    datee = Now
    datee = Format(datee, "dd-mm-yy hh-mm-ss")
 
    ThisWorkbook.Worksheets("Facture").Cells.Copy
    ws.Range("A1").PasteSpecial Paste:=xlPasteValues
    ws.Range("A1").PasteSpecial Paste:=xlPasteFormats
 
    wb.SaveAs filename:=ActiveWorkbook.Path & "\sauvegarde factures\" & datee & "-" & Sheets("Facture").Range("f4").Value & " n " & Sheets("Facture").Range("c16").Value & "-" & Sheets("Facture").Range("g8").Value & ".xls" 'A adapter à ton cas bien sûr"
    wb.Close
End Sub

Ca a l'air d'aller pour faire le classeur , mais maintenant, j'ai un bug pour la sauvegarde , pourtant rien de changé , je vois pas pourquoi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub copieFeuille()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim datee As String
    Dim fpath As String
    Dim Chemin As String
    fpath = ActiveWorkbook.Path
    Set wb = Workbooks.Add
    Set ws = wb.Worksheets(1)
    datee = Now
    datee = Format(datee, "dd-mm-yy hh-mm-ss")
    ThisWorkbook.Worksheets("Facture").Cells.Copy
    ws.Range("A1").PasteSpecial Paste:=xlPasteValues
    ws.Range("A1").PasteSpecial Paste:=xlPasteFormats
    Chemin = 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"
    wb.SaveAs Chemin 'A adapter à ton cas bien sûr"
    wb.Close
End Sub

Est ce parce que je vais chercher des infos dans la facture ( Range ) et celle-ci ne serait pas active ?

17/01/2012, 17h47
ZebreLoup

Tu as quoi dans Chemin avant la sauvegarde ? sauvegarde factures est bien un répertoire existant ?
17/01/2012, 17h54
francky62000
oui le dossier existe
Je veux lui dire :
D'aller a la racine du classeur d'exécution \sauvegarde factures\ de mettre la date et l'heure au format cité plus haut & - & " ajouter la valeur F4 de Facture etc etc

Si je mets comme ceci ca va :
Code:

1 2 3 Chemin = fpath & "\sauvegarde factures\" & datee & ".xls" wb.SaveAs Chemin 'A adapter à ton cas bien sûr" wb.Close
donc c'est bien un probléme pour aller rechercher les infos de cellules de la feuille facture qui en est la cause

J'avais bien compris, je voulais savoir quelle était la valeur exacte de la variable Chemin au moment où ça plante.

Essaie le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub copieFeuille()
    Dim wb As Workbook
    Dim wb2 As Workbook
    Dim ws As Worksheet
    Dim ws2 As Worksheet
    Dim datee As String
    Dim fpath As String
    Dim Chemin As String
    fpath = ActiveWorkbook.Path
    Set wb = Workbooks.Add
    Set wb2 = ThisWorkbook
    Set ws = wb.Worksheets(1)
    Set ws2 = wb2.Worksheets("Facture")
    datee = Now
    datee = Format(datee, "dd-mm-yy hh-mm-ss")
    ws2 .Cells.Copy
    ws.Range("A1").PasteSpecial Paste:=xlPasteValues
    ws.Range("A1").PasteSpecial Paste:=xlPasteFormats
    Chemin = fpath & "\sauvegarde factures\" & datee & "-" & ws2.Range("f4").Value & " n " & ws2.Range("c16").Value & "-" & ws2.Range("e16").Value & "-" & ws2.Range("g8").Value & ".xls"
    wb.SaveAs Chemin 'A adapter à ton cas bien sûr"
    wb.Close
End Sub

17/01/2012, 18h24
francky62000

Erreur de compilation sur la ligne 19
17/01/2012, 18h25
ZebreLoup

Il y a des espaces entre les ws2 et les .Range qui ont du se glisser malencontreusement à la rédaction.

Voir 40 message(s) de cette discussion en une page