la même macro fonctionne sur un de mes PC et pas sur l'autre Fermé

Question

Bonjour, 

Je dispose d'un petit programme de comptabilité dans lequel Il y a 2 classeurs: un qui s'appelle ("Application Compta") qui contient la feuille ("Structure") et l'autre qui s'appelle (Fichier_Compta) et qui contient les feuilles  (Journal). La partie de programme incriminée est celle qui compare le nombre de lignes dans les journaux successifs avec les valeurs indiquée dans "Structure". voir ci dessous:


For Ind = PLigneJour + 1 To DerJournal
            Windows("Application Compta.xls").Activate
            Sheets("Structure").Select
            Range("A" & Ind).Select
            Journal = ActiveCell.Value
            Range("B" & Ind).Select
            DerLigneJournStructure = ActiveCell.Value
    

            Windows(Fichier_Compta).Activate
            Sheets(Journal).Select
            Range("A1").Select
            Selection.End(xlDown).Select
            DerLigneJournal = ActiveCell.Row
            

                If DerLigneJournal <> DerLigneJournStructure Then
                    MsgBox ("INCOHERENCE SUR JOURNAL " & Journal & _
                    "  Nombre de Lignes trouvé dans STRUCTURE = " _
                    & DerLigneJournStructure)
        
                    Exit Sub
                End If

Dans l'un de mes PC équipé de XCell 2007,ça marche OK.
Dans l'autre , équipé de XCell 2013, cela plante. Quand je fais le déboggage pas à pas, la différence apparait à la ligne " Range("A1").Select". Tout ce passe comme si ce n'était pas la cellule A1 de la feuille (Journal) qui était selectionnée, mais la cellule A1 de "Structure".
Comment consolider cette routine pour éviter cette divergence?
Merci de votre aide 



Configuration: Windows 8 / Firefox 22.0

Utilisateur anonyme · Answer

le fichier compta se trouve bien sur l'autres ordinateur ? et peut être que excel 2013 ne fonctionne pas pareille que 2007 car vba c'est inutilisé si je me souviens bien

f894009 · Answer

Bonjour,

excel2013

voir la remarque faite pur utilisatin de la cellule active:

https://docs.microsoft.com/fr-fr/office/vba/excel/concepts/cells-and-ranges/working-with-the-active-cell?redirectedfrom=MSDN

Bonne suite

lermite222 · Answer

Bonjour, 
Plusieurs remarques ou pistes 
1°) tu peu remplacer les trois lignes..
Range("A1").Select
Selection.End(xlDown).Select
DerLigneJournal = ActiveCell.RowSheets(Journal).Select
par
    DerLigneJournal = Cells(Rows.Count, 1).End(xlUp).Row
ou
    DerLigneJournal = Cells(1, 1).End(xlDown).Row
C'est la même chose mais en plus simple.
2°) essaye en mettant
WorkBooks(Fichier_Compta).Activate 
au lieu de Windows.
Et si ça va pas essaye avec un objet
Dim Fichier_Compta as WorkBook
    Set Fichier_Compta=workbooks(Chemin & "nomDuClasseur.xlsm" ) ' qui doit bien être déterminer quelque part ?
Tu peu t'en servir simplement..
    Fichier_Compta.Select
Si pas solutionner.. Fichier_Compta est toujours dans le même répertoire ?
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

f894009 · Answer

Bonjour,

Comment affectez-vous la variable Fichier_Compta ??

Martin Baio · Answer

Bonjour,
voila comment est affectée la variable Fichier-Compta.
un peu avant le test des longueurs des journaux, dans le programme, on vérifie que le fichier COMPTA 20nn (ici COMPTA 2013) existe bien dans le répertoire et on l'ouvre.
L'indication "COMPTA13" est contenue dans la cellule A2 de la feuille "Structure" du fichier "Application-Resultat", qui est le seul fichier ouvert à ce moment là
Voir ci-dessous 
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    'Cherche si le fichier Compta 20nn est ouvert
    ' si Compta 20nn n'est pas ouvert, procède à son ouverture
    'cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
        
        Range("A2").Select
        Fichier_Compta = ActiveCell.Value
        Fichier_a_ouvrir = ThisWorkbook.Path & "\" & Fichier_Compta
            
        On Error Resume Next
        Windows(Fichier_Compta).Activate
            If Err.Number = 9 Then
                Err.Number = 0
                Workbooks.Open Filename:=Fichier_a_ouvrir
            End If

Cette routine marche bien dans tous les cas et lors du debogage pas à pas, on voit bien le fichier Compta13  s'ouvrir et il reste ouvert.
C'est lors du test sur la longueur des journaux, que les comportements divergent.
Dans le cas correct on va bien dans les feuilles "journaux" de "Compta 13" relever la valeur des dernières lignes, et la comparaison est OK
Lors du fonctionnement incorrect, la dernière ligne est systématiquement fixée à la valeur 2. comme si on ne lisait pas les journaux de "COMPTA 13" mais la feuille "Structure" de "Application-Resultat" qui ne contient que deux lignes en colonne A.

f894009 · Answer

Bonjour,

essayez ceci:

    Windows(Fichier_Compta).Activate
    Sheets(Journal).Activate
    DerLigneJournal = Sheets(Journal).Range("A" & Rows.Count).End(xlUp).Row

la variable journal est-elle bien affectee ???

La même macro fonctionne sur un de mes PC et pas sur l'autre

6 réponses