Erreur 1004 vba

Fermé

Noledge Messages postés 3 Date d'inscription mercredi 3 avril 2013 Statut Membre Dernière intervention 4 avril 2013 - 3 avril 2013 à 17:00
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 4 avril 2013 à 21:13

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)

A voir également:

Erreur 1004 vba
Erreur 0x80070643 - Guide
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 avril 2013 à 23:54

Bonjour,
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 mercredi 3 avril 2013 Statut Membre Dernière intervention 4 avril 2013
4 avril 2013 à 12:27

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.

Réponse 2 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
4 avril 2013 à 13:48

tu est administrateur ?

Réponse 3 / 4

Noledge Messages postés 3 Date d'inscription mercredi 3 avril 2013 Statut Membre Dernière intervention 4 avril 2013
4 avril 2013 à 20:24

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.

Réponse 4 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
4 avril 2013 à 21:13

Essaye la modif du dossier en tant qu'administrateur.
Au cas ou..
Clic droit sur l'icône de l'explorateur de fichiers
=> Ouvrir en tant qu'administrateur.
Et essaye ta modif.

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

Erreur 1004 - Erreur définie par l'application ou par l'objet

Instagram "Désolé, une erreur s'est produite"

Discussions similaires

Newsletters