Compatibilité version Excel 32 et 64 bit

Bonjour à tous,

Voici une macro que j'ai crée :

Sub InserJour()
'
' InserJour Macro
'

'
    Range("B7:N7").Select
    Selection.Copy
    Range("B14:N14").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G1").Select
    Application.CutCopyMode = False

End Sub

Sub email1()

Dim olapp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olinsp As Outlook.Inspector
Dim wddoc As Word.Document
Dim a As String
c = Sheets("Reporting").Range("A6")

a = "Bonsoir," & vbNewLine & "Veuillez trouver ci-dessous le rapport d'exécution du jour sur notre ordre " & c & " :"
b = a & vbNewLine
date1 = Sheets("Reporting").Range("A8").Value
sujet = "Rachat d'Actions Compagnie " & c & " " & " " & date1 & ""

Set olapp = New Outlook.Application
Set olMail = olapp.CreateItem(olMailItem)

Sheets("Reporting").Range("A2:J33").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "\\umilp-p2\CSEC-EMETTEUR$\EMETTEURS\SALLE DE MARCHE EMETTEUR\Commercial\Reportings\" & c & " " & Format(Date, "DDMMYYYY") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

With olMail
.Body = " "
.Attachments.Add ("\\umilp-p2\CSEC-EMETTEUR$\EMETTEURS\SALLE DE MARCHE EMETTEUR\Commercial\Reportings\" & c & " " & Format(Date, "DDMMYYYY") & ".pdf")
.Display
.Subject = sujet
.To = Sheets("Reporting").Range("R2")
.BCC = Sheets("Reporting").Range("R4")
.CC = Sheets("Reporting").Range("R3")
Set olinsp = .GetInspector
Set wddoc = olinsp.WordEditor
wddoc.Range.InsertBefore b
Sheets("Reporting").Activate
                Range("A2:j70").Copy
                        wddoc.Range(Len(b), Len(b)).PasteSpecial , DataType:=wdPasteOLEObject

End With

          Set olMail = Nothing
        Set olapp = Nothing

 Kill "\\umilp-p2\CSEC-EMETTEUR$\EMETTEURS\SALLE DE MARCHE EMETTEUR\Commercial\Reportings\" & c & " " & Format(Date, "DDMMYYYY") & ".pdf"

End Sub

J'aimerai de l'aide pour avoir une version de se code qui fonctionne sous excel en 32 bit et en 64bit.

Merci de votre aide

Bonjour,

Tu ne donnes pas de détail sur les lignes non compatibles et tu ne joins pas de fichier test.

On n'a pas encore de don de voyance.

désolé ...

Concernant les lignes qui ne fonctionne pas, ce sont les lignes avec les déclaration de librairies et de variables :

Dim olapp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olinsp As Outlook.Inspector
Dim wddoc As Word.Document
Dim a As String

c = Sheets("Reporting").Range("A6")

a = "Bonsoir," & vbNewLine & "Veuillez trouver ci-dessous le rapport d'exécution du jour sur notre ordre " & c & " :"
b = a & vbNewLine
date1 = Sheets("Reporting").Range("A8").Value
sujet = "Rachat d'Actions Compagnie " & c & " " & " " & date1 & ""

Set olapp = New Outlook.Application
Set olMail = olapp.CreateItem(olMailItem)

Je ne peux joindre de fichier test pour un problème de confidentialité.

J'ai essayer de déclarer mes librairies et variable en late biding :

Dim olapp As Object
Dim olMail As Object
Dim olinsp As Object
Dim wddoc As Object

Set olapp = CreateObject("Outlook.application")
Set wddoc = CreateObject("Word.application")

Ceci fonctionne sur la version 32 bit, mais la ligne c = Sheets("Reporting").Range("A6") ne fonctionne plus.

Merci de votre aide

Le problème viens des librairies. Le problème peut être régler en décochant les librairies manquantes dans outils -> références, mais j'aimerai un moyen pour le code soit rétrocompatible entre les deux versions.

Voici un fichier simplifier, avec le bouton mail et la macro email1, vous verrez les problèmes que je rencontre.