Erreur d'exécution 424 - VBA - Enregistrment
didier13000
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Erreur d'exécution 424 - VBA - Enregistrment
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Erreur d'execution 13 vba ✓ - Forum VB / VBA
5 réponses
Bonjour
Cette erreur se produit sur quelle ligne ?
Merci de nous faciliter un minimum la tâche, nous ne sommes pas devins :o)
Cette erreur se produit sur quelle ligne ?
Merci de nous faciliter un minimum la tâche, nous ne sommes pas devins :o)
De retour il y a peu de temps...
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"
Michel
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
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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....
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....
