Erreur 1004 vba
Noledge
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour je me permets de vous solliciter car mon programme bug " erreur 1004"
tt a la fin de la procedure alors que je veux juste copier une feuille "Tableau de bord" dans un dossiers que j'ai nommé "Dossiers" en appuyant sur le bouton confirmer.il ne bugg pas qd je suis chez moi sous excel 2007mais au travail il bugg alors que je suis aussi sous excel 2007 pourriez vous m'aider s'il vous plait.
Voici mon code
Private Sub CommandButton1_Click()
Sheets("START").Visible = True
Sheets("START").Select
Dim chemin As String
Dim fichier As String
Application.DisplayAlerts = False
fichier = "Tableau de bord.xlsx"
chemin = Workbooks(ActiveWorkbook.Name).Path
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Tableau_de_bord").Select
Sheets("Tableau_de_bord").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
Kill (chemin & "\Dossiers\" & fichier)
ActiveWorkbook.Sheets("Feuil1").Delete
ActiveWorkbook.Sheets("Feuil2").Delete
ActiveWorkbook.Sheets("Feuil3").Delete
ActiveWorkbook.SaveAs (chemin & "\Dossiers\" & fichier)
ActiveWorkbook.Close
ThisWorkbook.Activate
fichier = Sheets("Recapitulatif").Range("C2") & ".xls"
chemin = Workbooks(ActiveWorkbook.Name).Path
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Recapitulatif").Select
Sheets("Recapitulatif").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
ActiveWorkbook.Sheets("Feuil1").Delete
ActiveWorkbook.Sheets("Feuil2").Delete
ActiveWorkbook.Sheets("Feuil3").Delete
ActiveWorkbook.SaveAs (chemin & "\Dossiers\" & fichier)
ThisWorkbook.Save
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub
C'est au niveau de la ligne
Sheets("Tableau_de_bord").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
tt a la fin de la procedure alors que je veux juste copier une feuille "Tableau de bord" dans un dossiers que j'ai nommé "Dossiers" en appuyant sur le bouton confirmer.il ne bugg pas qd je suis chez moi sous excel 2007mais au travail il bugg alors que je suis aussi sous excel 2007 pourriez vous m'aider s'il vous plait.
Voici mon code
Private Sub CommandButton1_Click()
Sheets("START").Visible = True
Sheets("START").Select
Dim chemin As String
Dim fichier As String
Application.DisplayAlerts = False
fichier = "Tableau de bord.xlsx"
chemin = Workbooks(ActiveWorkbook.Name).Path
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Tableau_de_bord").Select
Sheets("Tableau_de_bord").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
Kill (chemin & "\Dossiers\" & fichier)
ActiveWorkbook.Sheets("Feuil1").Delete
ActiveWorkbook.Sheets("Feuil2").Delete
ActiveWorkbook.Sheets("Feuil3").Delete
ActiveWorkbook.SaveAs (chemin & "\Dossiers\" & fichier)
ActiveWorkbook.Close
ThisWorkbook.Activate
fichier = Sheets("Recapitulatif").Range("C2") & ".xls"
chemin = Workbooks(ActiveWorkbook.Name).Path
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Recapitulatif").Select
Sheets("Recapitulatif").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
ActiveWorkbook.Sheets("Feuil1").Delete
ActiveWorkbook.Sheets("Feuil2").Delete
ActiveWorkbook.Sheets("Feuil3").Delete
ActiveWorkbook.SaveAs (chemin & "\Dossiers\" & fichier)
ThisWorkbook.Save
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub
C'est au niveau de la ligne
Sheets("Tableau_de_bord").Copy Before:=Workbooks(FichierOùColler).Sheets(1)
A voir également:
- Erreur 1004 vba
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
4 réponses
Bonjour,
Tu complique bien les choses...
Essaye ça..
A+
Tu complique bien les choses...
Private Sub CommandButton1_Click()
Dim Chemin As String
Dim fichier As String
fichier = "Tableau de bord.xlsx"
Chemin = ThisWorkbook.Path & "\Dossiers\"
On Error Resume Next 'au cas ou le fichier n'existe pas encore
Kill (Chemin & fichier)
On Error GoTo 0
Sheets("Tableau_de_bord").Copy
ActiveWorkbook.SaveAs (Chemin & fichier)
ActiveWorkbook.Close
ThisWorkbook.Activate
End Sub
Essaye ça..
A+
Noledge
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
Bonjour l'ermitte bah g tj une erreur 1004 mais cette fois il me dit que mon dossier "Dossiers" est en lecture seule mais qd je modifie le dossier en le rendant modifiable, eh bien il se remets tt seul en lecture seule donc je me retrouve bloqué sans pouvoir pour autant modifier l'option du dossier.Pourrais tu stp me dire si tu sais a quoi c'est du merci d'avance.
Apparemment ça serait un module qui manque a mon programme créé sous windows XP familial afin de le faire fonctionner sous windows vista professionnelle ... Mais pour l'instant j'en sais pas plus... Merci pour ton aide.
Oui je suis administrateur sur le pc du boulot de même que chez moi sur mon pc personnel.Et bien que je ne puisses pas rendre mon dossier modifiable meme sous mon pc perso en tout cas ça marche alors que sur le pc du boulot ca bug...je m'en arrache les cheveux.
Merci d'avance.
Oui je suis administrateur sur le pc du boulot de même que chez moi sur mon pc personnel.Et bien que je ne puisses pas rendre mon dossier modifiable meme sous mon pc perso en tout cas ça marche alors que sur le pc du boulot ca bug...je m'en arrache les cheveux.
Merci d'avance.
