Discussion :

[rom1deh]

Bonjour à tous,

Je viens de rencontrer un soucis avec une macro.
Sur divers pc elle fonctionnait, mais la elle ne fonctionne plus sur un PC.

Sa me dit en code erreur veuillez mettre a jours "" langage expiré pour ..... 64 bits que faire.

Le mot en question est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function

La partie du code est le suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hWnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Public Function Enregistrement_PDF(index As Long)
    Dim MyBench As String
    Dim ID As String
    Dim Fichier As String
    Dim Opérations As String
 
    MyBench = Sheets("BDD").Range("H" & index).Value
    ID = Sheets("BDD").Range("A" & index).Value
 
 
    MaintenancedataFilePath = "\\H61sys\essais$\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\2016\" & MyBench & "\" & ID & ".pdf"
 
    SHCreateDirectoryEx 0, MaintenancedataFilePath, ByVal 0&
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MaintenancedataFilePath & "\" & ID & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
    Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance 2016.xlsm"
    ThisWorkbook.SaveAs Fichier
 
 
End Function

Function du haut qui merde donc les autres aussi je pense.

Si vous avez une idée je suis preneur.

[mathspountz]

As tu essayé avec un ptrsafe ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hWnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

[kiki29]

Salut, à lire, assimiler et mettre en pratique : Développer avec Office 64 bits

Même Microsoft déconseille la 64 bits
Extrait :

Comme de plus en plus d’ordinateurs personnels exécutent les versions 64 bits de Windows, il est tentant de déployer la version 64 bits d’Office 2013. L’un des avantages de cette version 64 bits d’Office est qu’elle permet aux utilisateurs d’utiliser des jeux de donnés Excel et Project plus importants. Il existe cependant des inconvénients en matière de compatibilité : les compléments et solutions Office peuvent ne pas fonctionner. C’est pourquoi la version 32 bits d’Office 2013 est recommandée pour la plupart des utilisateurs.

[rom1deh]

Ok je crois avoir cerné le problème tous les pc sont en 64 bits.

Image non disponible le code d'appel aux API ne fonctionne plus en l'état.
Peut-être ne savez-vous pas que vous utilisez des API ?
Ces API sont des fonctions externes déclarées avec l'instruction Declare Function ou Declare Sub.
ShellExecute ou GetOpenFileName par exemple sont des API largement utilisées.
Une réécriture de ces instructions est nécessaire.

Si sur mon pc elle fonctionne c'est que j'ai codé en 32 bits et que donc c'est sur l'autre pc que office serait en 64 bits vus que c'est de la que vient l eproblème

Non ou j'ai mal compris la phrase que j'ai cité

Mais ce qui m'étonne c'est qu'on est tous sous office 2010.

[Marc-L]

Bonjour,

il ne s'agit pas de Windows mais d'Excel en 32 ou en 64 bits !

Le code initial fonctionne uniquement sur les versions 32 bits d'Excel,
installation recommandée par Microsoft lui-même lors de la sortie de la version 2010 !


______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[rom1deh]

c'est bon je suis en 32 bits donc c'est good pour moi je changerais la version d'office pour mon collègue on a le pack 32 par défaut d'avec.

merci a vous

Cordialement

Romain