erreur 1004 vba Fermé

Question

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)

lermite222 · Answer

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+

lermite222 · Answer

tu est administrateur ?

Noledge · Answer

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.

lermite222 · Answer

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.

Erreur 1004 vba

4 réponses

Discussions similaires