Erreur 1004 VBA Excel

1

Bonjour, l'exécution de cette macro me donne un erreur 1004 sur le ligne "Wbk.SaveAs Filename:=fichier" (je travaille sur excel 2013) :

Sub fichedevie()
	Dim a As String, i As Integer, ligne As Integer
	Do
		ligne = ligne + 1
	Loop Until Cells(ligne, 6) = ""
	ligne = ligne - 1
	Dim Xl As Excel.Application, Wbk As Excel.Workbook
	Dim NomFich As String
	Dim chemin As String, fichier As String
	NomFich = "C:\Users\Dream\Desktop\fiche de vie Moule\Fiche.xlsx" 
	Set Xl = New Excel.Application
	Xl.Visible = False 
	Set Wbk = Xl.Workbooks.Open(NomFich) 
	For i = 1 To ligne
		a = Cells(i, 6)
		chemin = "C:\Users\Dream\Desktop\fiche de vie Moule" 
		fichier = chemin & "\" & a & ".xls" 
		Wbk.SaveAs Filename:=fichier
	Next i
	Wbk.Close
	Xl.Quit
End Sub
elyane Posté le 11 août 2014, 12:37
par elyane
Répondre
1

Essai de faire un debug de la variable fichier en mettant un point d'arrêt sur la ligne Wbk.SaveAs, pour voir sa valeur (et peux tu indiquer cette valeur ici ?)

Vince Posté le 11 août 2014, 23:37
par Vince
0

merci, mais j'ai déjà essayer cette solution et j'ai rien trouver  

Posté le 12 août 2014, 09:40
2

Il s'agit peut être de ton format de fichier. Tu précise une extension .xls dans le nom du fichier mais tu utilises le format par défaut d'Excel 2013 qui doit être .xlsx.

Erreur 1004 peut arriver lorsque l'on dépasse la taille d'un fichier Excel en mémoire.

Peut être peux-tu rajouter l'attribut (ou flag) suivant :

Wbk.SaveAs Filename:=fichier, FileFormat:= 56
pour enregistrer en .xls ou changer ton extension dans chemin.
Posté le 2 septembre 2014, 11:35
par Mecha Scisornox

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :