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 · 18 Juillet 2023

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

mouchtre · 19 Juillet 2023

mouchtre à dit:
C'est "_" dans le nom du fichier, mais la ou on bloquait c'est l'utilisateur qui a mis un "/" dans le nom du client faut que je réessaie sur son PC maintenant en espérant qu'il n'y avait que ça et que l'on bloquait uniquement sur cette facture

Ce n’était que ça le problème malheureusement problème résolu

Zon · 18 Juillet 2023

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 · 18 Juillet 2023

Zon à dit:
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 · 18 Juillet 2023

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 · 18 Juillet 2023

Zon à dit:
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

mouchtre · 19 Juillet 2023

mouchtre à dit:
ç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

Salut, Bon au moins j'ai la même erreur (1004) sur mon poste aussi aujourd'hui, j'ai essayé ta petite macro de test de dossier et elle me renvoie "vrai"

TooFatBoy · 19 Juillet 2023

Bonjour,

Quel est le contenu de la variable "fichier" ?

mouchtre · 19 Juillet 2023

J'ai trouvé mon problème, l'utilisateur avais mis une barre oblique dans le nom du client, du coup le code ne trouvais plus le chemin faut que je réessaie sur son poste maintenant

mouchtre · 19 Juillet 2023

TooFatBoy à dit:
Bonjour,

Quel est le contenu de la variable "fichier" ?

Numéro de facture > nom du client > date de la facture

TooFatBoy · 19 Juillet 2023

mouchtre à dit:
Numéro de facture > nom du client > date de la facture

C'est normal que ça plante : on n'a pas le droit de mettre le caractère ">" dans un nom de fichier.

mouchtre · 19 Juillet 2023

TooFatBoy à dit:
C'est normal que ça plante : on n'a pas le droit de mettre le caractère ">" dans un nom de fichier.

C'est "_" dans le nom du fichier, mais la ou on bloquait c'est l'utilisateur qui a mis un "/" dans le nom du client faut que je réessaie sur son PC maintenant en espérant qu'il n'y avait que ça et que l'on bloquait uniquement sur cette facture

mouchtre · 19 Juillet 2023

mouchtre à dit:
C'est "_" dans le nom du fichier, mais la ou on bloquait c'est l'utilisateur qui a mis un "/" dans le nom du client faut que je réessaie sur son PC maintenant en espérant qu'il n'y avait que ça et que l'on bloquait uniquement sur cette facture

Ce n’était que ça le problème malheureusement problème résolu

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

mouchtre

Zon

XLDnaute Impliqué

mouchtre

XLDnaute Nouveau

Zon

XLDnaute Impliqué

mouchtre

XLDnaute Nouveau

mouchtre

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

mouchtre

XLDnaute Nouveau

mouchtre

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

mouchtre

XLDnaute Nouveau

mouchtre

XLDnaute Nouveau

Discussions similaires