Microsoft 365 erreur 1004

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 ?

sylvanu à dit:

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 ?

Cliquez pour agrandir...

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

Re,

matlatarte à dit:

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

Cliquez pour agrandir...

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.

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.

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