Problème d'affichage de résultats dans cellule

[nomade]

Bonjour,
Je rencontre le problème suivant
J'ai un fichier Excel "HDPM88.xls" qui me convertit des données
hexa en binaire.
Lorsque j'ouvre ce fichier en cliqant dessus, pas de problème
les conversions se font (joint Fichier1).
Mais lorsque j'ouvre ce même fichier à partir d'Access par la
macro suivante:

Private Sub Commande31_Click()
Dim xlApp As Object
'Ouvrir l'application Excel
Set xlApp = CreateObject("Excel.Application")
'Rendre visible ou non la fenêtre
'xlApp.Visible = True
'Ouvrir le classeur
xlApp.workbooks.Open ("C:\hdpm88.xls")
End Sub

les conversions ne se font pas (Fichier2).

Quelqu'un aurait-il une idée sur mon problème?

Merci par avance de votre aide.

 

[Spitnolan08]

Re : Problème d'affichage de résultats dans cellule

Bonjour,

Je n'utilise pas Acces (à mon plus grand regret) je ne peux donc tester...
Mais pourrais tu joindre la macro qui réalise les conversions et la façon dont elle est appelée ?

Cordialement

 

[Cousinhub]

Re : Problème d'affichage de résultats dans cellule

Bonjour, tester un fichier Excel avec ACDSEE (ou autre), c'est pas le top!
A la place d'envoyer une image pour prouver que cela ne fonctionne pas (on te croit sur parole 😉), peux-tu joindre plutôt le fichier en question, avec les formules (sans données confidentielles), on pourra alors peut-être mieux cerner le problème.

 

[chris]

Re : Problème d'affichage de résultats dans cellule

Bonjour
Comment sont faites les conversions : par formule, macro ?
Si c'est une macro événementielle liée à l"ouverture du classeur elle ne peut, à mon avis, pas se produire car un code ne peut s'exécuter pendant que celui d'Access tourne.
Si ton classeur doit fonctionner dans les deux environnements, il faut invoquer depuis Access le code de la macro du classeur.
Malheureusement je ne connais pas la syntaxe du call approprié.
Au pire tu peux dupliquer le code dans le module Access mais il faut l'encadrer dans un with end with pour qu'il s'applique à l'appli Excel.
Si c'est par formule, cela doit fonctionner.

 

[nomade]

Re : Problème d'affichage de résultats dans cellule

Bonjour,
ci-joint le code pour:
1) Ouvrir le fichier à convertir
2) Pour effectuer la conversion
Je pense que mon code n'ai pas des plus performant, mais je ne suis pas programmeur et mes connaissances sont trés limitées, j'ai eu beaucoup de mal à le réaliser, heureusement que vous êtes là et qu'un site comme le votre existe pour obtenir des exemples et une aide.
Bref!

Sub workbook_open()
Application.ScreenUpdating = False
Selection.ClearContents
'Algorithme :
' on lit le fichier d'entrée dans la chaine chaine_a_convertir
' on découpe cette chaine en morceaux (separateur-interfichier Fin+Debut)
' on transforme la chaine d'entrée dans le programme
' on transforme la chaine d'entrée restante dans le programme
Dim i As Long
Dim caract As String * 1
Dim filebox As OPENFILENAME
Dim fname As String
Dim result As Long '
'Range("D5") = ""
With filebox
.lStructSize = Len(filebox)
.hInstance = 0
.lpstrFilter = "Fichier HDP (*.crs)" & vbNullChar & "*.crs" & vbNullChar & _
"Fichier HDP (*.din)" & vbNullChar & "*.din" & vbNullChar & _
"Tout fichier (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
.nMaxCustomFilter = 0
.nFilterIndex = 1
.lpstrFile = Space(256) & vbNullChar
.nMaxFile = Len(.lpstrFile)
.lpstrFileTitle = Space(256) & vbNullChar
.nMaxFileTitle = Len(.lpstrFileTitle)
.lpstrInitialDir = "C:\." & vbNullChar
.lpstrTitle = "Selectionner le fichier à visualiser" & vbNullChar
.flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
.nFileOffset = 0
.nFileExtension = 0
.lCustData = 0
.lpfnHook = 0
End With
result = GetOpenFileName(filebox)
If result <> 0 Then
fichier1 = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
Else
End
End If
Chemin = Left(filebox.lpstrFile, Longueur - (Longueur - Posi))
Close
Open fichier1 For Random As #1 Len = 1
On Error GoTo 0
' convertion du fichier
i = 8
While Not EOF(1)
Get #1, , caract
If EOF(1) Then GoTo fin
chaine_convertie = Hex(Asc(caract))
If Len(chaine_convertie) = 1 Then chaine_convertie = "0" & chaine_convertie
If Not EOF(1) Then
Get #1, , caract
If EOF(1) Then GoTo fin
chaine_convertie = chaine_convertie & Format(Hex(Asc(caract)), "00")
If Len(chaine_convertie) = 3 Then
chaine_convertie = Mid(chaine_convertie, 1, 2) & "0" & Mid(chaine_convertie, 3)
End If
End If
Range("'CRM'!C" & i) = "'" & chaine_convertie
i = i + 1
Range("c977:c65536").ClearContents
Wend
fin:
Close
Application.ScreenUpdating = True
'Affiche message treminé
MsgBox "Traitement terminé"
End Sub

J'ai découvert que si je désinstalle les macros ci-dessous en début de code

' Désinstalle les macro complementaires
AddIns("Solveur").Installed = False
AddIns("Utilitaire d'analyse").Installed = False
AddIns("Utilitaire d'analyse - VBA").Installed = False

et si je les réinstalle en fin de code

'Installe les macros complémentaires
AddIns("Solveur").Installed = True
AddIns("Utilitaire d'analyse").Installed = True
AddIns("Utilitaire d'analyse - VBA").Installed = True

cela fonctionne et les conversions sont effectuées.

Pourtant dans "outil", "macro complémentaires", toutes les macros complémentaires sont installées.
Merci par avance de votre aide