Discussion :

[grisan29]

bonjour a vous tous

j'ai télécharger le classeur "facturier devis" que Patrick TOULON" a mis dans les contribution mais j'ai un petit soucis avec le code car il enregistre bien ma feuille mais ouvre un panneau qui indique

erreur d'excécution 1004

puis débogage a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.VBProject.VBComponents.Remove VbComp

qui fait partie du code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub enregistrer_Click()
Dim Vbcomp As vbcomponent    
Dim nom, chemin As Variant
Sheets("facturation").Copy
Sheets(1).Name = "facture1"
      nom = "fact-" & Sheets("facture1").Range("b11").Value & "-" & Sheets("facture1").Range("g4").Value & ".xls"
chemin = ThisWorkbook.Path & "\DEVIS\"

    ActiveWorkbook.SaveAs Filename:=chemin & nom, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
'Sauvegarde les modifications
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("facturation").Activate
End Sub

cordialement

Pascal

[Theze]

Bonsoir,

Si je me souviens bien, il faut cocher la case "Accès approuvé au modèle d'objet du projet VBA" ou quelque chose dans le genre (ici pour Excel 2007). Voir dans macro > sécurité ?

Hervé.

[grisan29]

bonjour THEZE

merci de ta réponse mais cela n'a rien changé même en cochant la case "Accès approuvé au modèle d'objet du projet VBA"

merci quand même

Pascal

[patricktoulon]

bonjour grizan

effectivement ca tellement vite que des fois sa bug

peut etre declarer les classeur en variables au departs ca donne ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub enregistrer_Click()
 
dim wk1,wk2 as workbook
wk1=thisworkbook.name
Dim Vbcomp As vbcomponent    
Dim nom, chemin As Variant
Sheets("facturation").Copy
Sheets(1).Name = "facture1"
      nom = "fact-" & Sheets("facture1").Range("b11").Value & "-" & Sheets("facture1").Range("g4").Value & ".xls"
chemin = ThisWorkbook.Path & "\DEVIS\"
 
    ActiveWorkbook.SaveAs Filename:=chemin & nom, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
wk2=activeworkbook.name 
For Each VbComp In wk2.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
wk2.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
'Sauvegarde les modifications
wk2.Save
ActiveWindow.Close
Sheets("facturation").Activate
End Sub

mais bon je n'est pas testé et c'est vrai que je ne comprend pas l'erreur

je vais voir un peu ce qui a bien pu se passer

au plaisir

[grisan29]

bonjour Patrick

il y a maintenant un nouveau bug a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wk2 = ActiveWorkbook.Name

avec

wk2 qui indique "nothing"

au passage de la souris
comme tu a mon fichier tu peut peut-etre trouver la solution plus rapidement

cordialement

Pascal

[fring]

Bonjour,

Pascal, je pense que l'utilisation de VBComponent nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility

Attention à la déclaration de vos variables !

Ceci n'est pas correct

dim wk1,wk2 as workbook

La bonne déclaration est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim wk1 As Workbook, wk2 As Workbook

.

Ensuite si la variable est déclarée de type "Workbook", ceci n'est pas correct non plus

wk1=thisworkbook.name

La bonne syntaxe est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set wk1 = ThisWorkbook

Idem pour wk2

[patricktoulon]

bonsoir fring

oupss effectivement je me suis trompé

enfet tu a raison
sinon c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim wk1 as string,wk2 as string
'et a ce momment pour wk1 c'est thisworbook.name 
'et le wk2 c'est activeworkbook.name

puré je fume du cerveau c'est la faute de grizan il trans forme toutes mes macros c'est ca faute ,c'est sa faute voila c'est tout


au plaisir

[grisan29]

bonjour a fring et Patrick

merci de vos réponse et désolé si je fait fumé les neurrones, mais le résultat est le même au même endroit mais est ce parce que le verificateur de compatibilité qui se met en route et affiche

Ce classeur contient des feuilles de calculs utilisant des entetes et des pieds de pages sur les pages paires ou sur la première page
Ces entetes et pieds de pages ne peuvent etre utilisé dans les versions antérieures d’excel.
Emplacement :’facture1’

donc je rappelle que ce pc de bureau est sous windows xp et office 2007
et mon portable dédié a mon travail sous windows7pro et office 2007 et mon fichier sera sur les 2 mais surement que je mettrai windows7 sur celui ci un peu plus tard

ou bien y a-t-il un moyen de desactivé le verificateur??? sans causé de soucis

voila messieurs

cordialement
Pascal