Bonjour,
J'ai un petit soucis sur la ligne "ActiveWorkbook.SaveAs exportFile".
En effet, un de mes collaborateurs génère une erreur 1004 à ce niveau lorsqu'il lance la macro. Pourtant j'ai fait des tests j'ai plusieurs personnes et tout fonctionne.
Qu'est ce qui peut impacter sur cette ligne et générer une erreur ?
Merci d'avance pour vos réponses
J'ai un petit soucis sur la ligne "ActiveWorkbook.SaveAs exportFile".
En effet, un de mes collaborateurs génère une erreur 1004 à ce niveau lorsqu'il lance la macro. Pourtant j'ai fait des tests j'ai plusieurs personnes et tout fonctionne.
Qu'est ce qui peut impacter sur cette ligne et générer une erreur ?
Code:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
exportFile = Application.GetSaveAsFilename(Filename)
If exportFile = False Then
MsgBox "Votre fichier " & Filename & " n'a pas été sauvegardé.", vbCritical, "Création interrompue"
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Exit Sub
Else
ActiveWorkbook.SaveAs exportFile
MsgBox "Votre fichier " & exportFile & " a bien été sauvegardé.", vbInformation, "Création réussie"
End If
ActiveWorkbook.Close
End Sub
Merci d'avance pour vos réponses