Microsoft 365 erreur 1004

[matlatarte]

Bonjour,

j'ai un souci lorsque j'ouvre mon fichier sur un ordi RAS; mais sur un autre, même version d'office, j'ai un message d'erreur 1004 (ci joint) lors de la fonction pdf :

zone_pdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Une idée ? Les compléments activés sont les mêmes, l'accès approuvé est ok...

 

[sylvanu]

Bonjour matlatarte,
Comment sont définis zone_pdf et sFichier ?
Est ce que sFichier correspond à chemin correct sur ce PC ?
Pouvez vous envoyer le fichier ou tout du moins le code complet de la macro ?

 

[matlatarte]

Bonjour matlatarte,
Comment sont définis zone_pdf et sFichier ?
Est ce que sFichier correspond à chemin correct sur ce PC ?
Pouvez vous envoyer le fichier ou tout du moins le code complet de la macro ?

voici la macro complète:

Dim wk_file As Workbook
Dim ws_data As Worksheet
Dim zone_pdf As Range
Set wk_file = ActiveWorkbook
Set ws_data = wk_file.Worksheets(1)

Dim Rep As Long, sFichier As String
Dim FSO As Object

Set zone_pdf = ws_data.Range(ws_data.Cells(1, 1), ws_data.Cells(66, 20))


Set FSO = CreateObject("Scripting.FileSystemObject")
sFichier = "P:\Google Drive\COMPTE RENDUS\Test MultiBruit\" & Range("A4")
Set FSO = Nothing
Application.ScreenUpdating = False

With ws_data.PageSetup
.PaperSize = xlPaperA4
.PrintArea = zone_pdf.Address(0, 0)
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
zone_pdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = True


Rep = MsgBox("Voulez-vous aussi imprimer le C.R. ?", vbYesNo)
If Rep = vbYes Then
ActiveSheet.PrintOut
End If


et oui le chemin est correct sur les 2 PC et pas d'histoire de lecture seule

 

[sylvanu]

Re,

zone_pdf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

La syntaxe est correcte puisque ça marche sur votre PC.
Le problème ne peut donc venir que des deux variables zone_pdf et sFichier.
La déclaration zone_pdf est correcte, reste donc sFichier, par ex :
- est ce que le second PC a bien accès à ce drive
- ce drive porte t-il bien la lettre P:
- pourquoi avoir mis P:\Google Drive\COMPTE RENDUS... et non pas simplement P:\COMPTE RENDUS....
Il s'agit à mon avis d'un problème d'accès à ce drive.
Sinon je sèche. Sorry.

 

[matlatarte]

Re,

La syntaxe est correcte puisque ça marche sur votre PC.
Le problème ne peut donc venir que des deux variables zone_pdf et sFichier.
La déclaration zone_pdf est correcte, reste donc sFichier, par ex :
- est ce que le second PC a bien accès à ce drive
- ce drive porte t-il bien la lettre P:
- pourquoi avoir mis P:\Google Drive\COMPTE RENDUS... et non pas simplement P:\COMPTE RENDUS....
Il s'agit à mon avis d'un problème d'accès à ce drive.
Sinon je sèche. Sorry.

Trouvé ! c'était bien ce drive qui est un cloud qui par quelle magie n'est pas le même cloud sur les 2 PC...

merci !!

 

[sylvanu]

Re,
Parfait.
Un même espace peut être déclaré avec des lettres différentes sur chaque PC, c'est purement arbitraire, c'est pour ça qu'il faut éviter d'accéder à des fichiers par des lettres. ( Hormis C: bien sur )
Je viens d'écrire une macro qui permettait de le vérifier. Voir PJ. ( qui peux servir à d'autres )
NB : Ne mettez pas votre post comme solution car c'est ce qui remonte au futur lecteur juste après votre demande.

 

[sylvanu]

Re,
Pour ne plus être tributaire du PC, on peut trouver facilement le chemin de Google drive, avec :

Chemin = Environ("USERPROFILE") & "\Google Drive\"