[déplacé .NET - VBA]erreur 1004

Question

bonjour

j'ai fait cette macro. mais lors de la sauvegarde automatique, le message 'erreur d'execution 1004 fiche inacessible'

Private Sub CommandButton1_Click()
Dim nomfichier As String
nomfichier = "Stock - " & Sheets("feuil1").Cells(1, 1)

    Sheets("Feuil1").Select
    Range("A3").Select
    ActiveWorkbook.RefreshAll
    
     Sheets("Feuil1").Select
    Columns("A:C").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Jean-Marc Ménard\Dropbox\TEAM\PC PEGASE\ordre d'approvisionnement" & nomfichier & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
     
End Sub


nanie

bigfish_le vrai · Answer

Salut,


c'est du VBA ça !!! note qu'il y à un theme pour le VBA : http://www.vbfrance.com/forum/theme-VBA

Quelle ligne l'erreur ?

A+

cs_MPi · Answer

Salut,

Est-ce que ton fichier: "Stock - " & Sheets("feuil1").Cells(1, 1)
est un xls ou un xlsx ?


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

nanie12 · Answer

bonjour

je ne savais pas qu'il y avait un endroit spécial pour les programmes offices. c'est sur cette ligne qu'il y a un problème : 
ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Jean-Marc Ménard\Dropbox\TEAM\PC PEGASE\ordre d'approvisionnement" & nomfichier & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ca ne viens pas du fait xls ou xlx

nanie

lolokun · Answer

Bonjour,

Vu le répertoire de sauvegarde, j'imagine que tu es en windows7, donc si tu as les droits pour créer manuellement dans ce répertoire, fais un test en supprimant tous les espaces et apostrophes lorsque tu tentes de sauvegarder ou eessayes de l'enregistrer directement sur "C:".

Si cela fonctionne, il te faudra sûrement doubler les apostrophes, et peut-être utiliser les noms cours des répertoires..


L'expérience, c'est une connerie par jour, mais jamais la même..

nanie12 · Answer

Private Sub CommandButton1_Click()
Dim nomfichier As String
nomfichier = "Stock - " & Sheets("feuil1").Cells(1, 1)

    Sheets("Feuil1").Select
    Range("A3").Select
    ActiveWorkbook.RefreshAll
    
     Sheets("Feuil1").Select
    Columns("A:C").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False

    ActiveWorkbook.SaveAs Filename:= _
        "C:" & nomfichier & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
     
End Sub


cela ne fonctionne toujours pas...

nanie

ucfoutu · Answer

Bonjour,
Essaye de ne pas "jongler" comme tu le fais avec des Select, des ActiveSheet, ActiveWorkBook, etc ...
Utilise plutôt des pointeurs vers tes objets (je crois que cela t'a déjà été dit)
Et tu auras beaucoup moins de soucis ...

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_MPi · Answer

Qu'est-ce qu'il y a d'écrit en A1 de la Feuil1 ?
Est-ce qu'il y aurait un caractère spécial, par hasard ?
Certains caractères ne peuvent être utilisés dans les noms de fichiers.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

[déplacé .NET -> VBA]erreur 1004

7 réponses

Votre réponse

Discussions similaires