Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365

mouchtre

XLDnaute Nouveau
Bonjour, je suis loins d'etre un pro et la j'appel a l'aide car j'en perd mon latin, j'ai un fichier de facturation et de suivi de stock que j'ai créer en 2020, tout fonctionnait bien jusqu'a il y a une semaine.
Sur mon ordinateur (mac + paralell desktop > window 11 familial > office 365) ça fonctionne toujours pas de problème mais chez l'intéressé (PC de 2023 avec windows 11 familial et office 365) rien a faire j'ai ma macro save as et export PDF qui ne veulent plus fonctionner.... je vous met les codes concernés si-dessous.... Merci d'avance

VB:
Sub Ventiller()
'
' Ventiller Macro
'

'
    Sheets("Facture").Select
    Range("A26:G36").Copy
    Sheets("Cumul").Select
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown
    Range("B17:B27") = Date
    Sheets("Facture").Select
    Range("O22").Copy
    Sheets("Cumul").Select
    Range("F17").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Facture").Activate
    Dim NWBK As Workbook
Sheets("Facture").Copy: Set NWBK = ActiveWorkbook

Dim fichier As String
    'Nom de la feuille
    With Worksheets("Facture")
        fichier = .Range("J22") & "_" & .Range("L22") & "_" & .Range("N22") & ".xlsm"
    'Chemin
           rep = "C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\2023"
        Chemin = rep & "\" & fichier
' ici la partie qui bug
        NWBK.SaveAs Chemin, FileFormat:=52: NWBK.Close False
    End With
    
    MsgBox ("Traitement terminé")
    ActiveWorkbook.Save
End Sub

Code:
Sub Suivi()
'
' Suivi Macro
'

' Collage du nom

    Sheets("Facture").Select
    Range("E10").Copy
    Sheets("Suivi_Factures").Select
    Range("B17").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
 
 ' Collage du Numéro de facture
 
    Sheets("Facture").Select
    Range("G22").Copy
    Sheets("Suivi_Factures").Select
    Range("C17").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
 
 ' Collage du prix
 
    Sheets("Facture").Select
    Range("O22").Copy
    Sheets("Suivi_Factures").Select
    Range("D17").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
 
  ' Collage du rabais
 
    Sheets("Facture").Select
    Range("E42").Copy
    Sheets("Suivi_Factures").Select
    Range("E17").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
  ' Collage du Numero client
 
    Sheets("Facture").Select
    Range("G21").Copy
    Sheets("Suivi_Factures").Select
    Range("F17").Select
    ActiveCell.PasteSpecial Paste:=xlPasteValues
 
 ' Pose de la date
 
    Sheets("Suivi_Factures").Select
    Range("A17") = Date
    
 ' insertion d'une ligne
 
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown
    
 ' Retour sur la feuille fACTURE
 
    Sheets("Facture").Activate
    
    Dim fichier As String
    'nom de la feuille
    With Worksheets("Facture")
        fichier = .Range("J22") & "_" & .Range("L22") & "_" & .Range("N22") & ".pdf"
        'chemin
        rep = "C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF"
        Chemin = rep & "\" & fichier
' ici la partie qui bug
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    MsgBox ("Traitement terminé")
    ActiveWorkbook.Save
End Sub
 

Zon

XLDnaute Impliqué
Salut,

tu nous as pas mis le numéro d'erreur , 1004 ??

Sur ton Mac Zindows tu utilises pourr comme nom d'utlisateur et la personne où ça plante le même nom d'utilisateur ???

Il faut vérifier que "C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF" et
C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\2023 , sont des chemins valides .

A+++
 

mouchtre

XLDnaute Nouveau
Salut,

tu nous as pas mis le numéro d'erreur , 1004 ??

Sur ton Mac Zindows tu utilises pourr comme nom d'utlisateur et la personne où ça plante le même nom d'utilisateur ???

Il faut vérifier que "C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF" et
C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\2023 , sont des chemins valides .

A+++
les 2 fois erreur 1004, et oui j'adapte le chemin selon l'ordinateur bien sure
 

Zon

XLDnaute Impliqué
Peux tu vérifier par cette procédure Test , ce qu'on te dis la Msgbox ?

VB:
Sub Test()

   MsgBox TesteDossier("C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF")

End Sub

Function TesteDossier(NomDossier$) As Boolean
   TesteDossier = IIf(Len(Dir(NomDossier, vbDirectory)) > 0, True, False)
End Function


Zindows 11 familial donc à priori office 365 n'est pas en sharepoint.

Sinon est ce que si l'utilisateur fait à la main fichier enregistrer sous dans le chemin C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF , a t il les autorisations pour le faire ?

A+++
 

mouchtre

XLDnaute Nouveau
Peux tu vérifier par cette procédure Test , ce qu'on te dis la Msgbox ?

VB:
Sub Test()

   MsgBox TesteDossier("C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF")

End Sub

Function TesteDossier(NomDossier$) As Boolean
   TesteDossier = IIf(Len(Dir(NomDossier, vbDirectory)) > 0, True, False)
End Function


Zindows 11 familial donc à priori office 365 n'est pas en sharepoint.

Sinon est ce que si l'utilisateur fait à la main fichier enregistrer sous dans le chemin C:\Users\pourr\OneDrive\Maison Muster\A_Facturation\Factures_PDF , a t il les autorisations pour le faire ?

A+++
ça a toujours fonctionné jusque là donc les autorisations doivent êtres bonnes, on travail sur un dossier partagé de mon onedrive, je check ça demain je n'ai plus accès a l'autre ordi pour le moment 👍🏻 merci
 

Statistiques des forums

Discussions
312 864
Messages
2 093 014
Membres
105 609
dernier inscrit
KTZ49