Erreur d'exécution 424 - VBA - Enregistrment

Question

Bonjour, 

Je tente de créer un code vba dans excel dans le but d'enregistrer plusieurs feuilles d'un classeur dans un nouveau classeur dans un repértoire voulue.

Voici mon code:

Sub Enregistrment_PF1_Pompe_complete()

Dim newWbk As Workbook, feuilCal As Worksheet, chemin As String, fichier As String

Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)


Set feuilCal = ThisWorkbook.Sheets("CERTIFICAT DE CONFORMITE")

chemin = "Q:\DOSSIERS INDIVIDUELS\K\Document qualité\N° OF\"

fichier = chemin & "\" & Range("P3") & ".xlsm"

ActiveWorkbook.SaveAs Filename:=fichier


End Sub

Cependant je n'arrive pas à l'éxécuter, j'ai un message d'erreur d'exécution 424.
Etant novice je ne suis pas du tout sur de mes codes, pouvez-vous m'aider SVP.

Didier



Configuration: Windows 7 / Internet Explorer 9.0

michel_m · Answer

Bonjour

Cette erreur se produit sur quelle ligne ?

Merci de nous faciliter un minimum la tâche, nous ne sommes pas devins  :o)

didier13000 · Answer

Ah oui évidemment mes excuses ! 

Sur cette ligne:

ActiveWorkbook.SaveAs Filename:=fichier

michel_m · Answer

De retour il y a peu de temps...  

Sub xxx()  
Dim Chemin As String, Fichier As String  
    Workbooks.Add  
    Chemin = "D:\documents"  
    With ThisWorkbook.Sheets(1)  
          Fichier = Chemin & "\" & .Range("B3")  
    End With  
    ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled  
End Sub
code de maquette à adapter à tes données 

tes erreurs  

 ta série de set machin est ici inutile, d'ailleurs tu ne t'en sers pas.... 

atention à ta double par-inverse chemin -range("P3") qui va planter la ligne save as  
tu as en fait la valeur affectée à la variable "fichier"  
fichier = "Q:\DOSSIERS INDIVIDUELS\K\document qualité\N° OF\azerty.xlsm" 

 Michel

didier13000 · Answer

Bonjour, merci de ton aide.

Mais ça ne marche toujours pas, il y a une erreur sur la ligne:

ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled

(Erreur de la méthode SaveAs de l'objet)

J'ai essayé plusieurs programmes mais je n'arrive toujours pas à enregistrer une feuille de mon classeur d'origine en tant que feuille d'un deuxième classeur.

michel_m · Answer

Bonjour

J'ai essayé plusieurs programmes mais je n'arrive toujours pas à enregistrer une feuille de mon classeur d'origine en tant que feuille d'un deuxième classeur.

Ce n'est pas du tout ce que tu as codé et que j'ai cru comprendre

pour moi, tu enregistres un nouveau classeur-macro ayant comme nom la valeur affectée à P3
J'ai testé (maquette) et ca fonctionnait chez moi....

Erreur d'exécution 424 - VBA - Enregistrment

5 réponses

Discussions similaires

Newsletters