[XL-2007] Sauvegarde fichier avec #REF! [Résolu]

[francky62000]

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

[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.

[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

[ZebreLoup]

Tu n'as pas le classeur ou une version simplifiée, car ne ne vois vraiment pas pourquoi tu fais du INDIRECT là.

[francky62000]

Produits et Soins sont des onglets

le indirect c'est pour faire une liaison entre les onglets

[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à.

[francky62000]

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

[ZebreLoup]

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

[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é

[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 !

[francky62000]

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

[ZebreLoup]

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

[francky62000]

Toujours la même erreur

[ZebreLoup]

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

[francky62000]

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 ?

[ZebreLoup]

Tu as quoi dans Chemin avant la sauvegarde ? sauvegarde factures est bien un répertoire existant ?

[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

[ZebreLoup]

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

[francky62000]

Erreur de compilation sur la ligne 19

[ZebreLoup]

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