macro ne fonctionne pas jusqu'au bout

[superbog]

bonjour,

j'ai une macro qui copie des données d'une feuille d'un classeur source (EP) vers une feuille d'un classeur fille (test) qui est dans un autre répertoire (sachant que je pars du classeur fille).

J'ai fait (avec l'aide de diverses macros) une macro qui fonctionne mais qui copie systématiquement tout, sans tenir compte de l'instruction donnée pour la mise à jour (doivent être copiées les lignes dont colonne A est vide et une fois les lignes traitées; un X doit être inscrit dans la colonne A).

Je n'arrive pas à résoudre le problème, ci joint fichiers

merci d'avance de votre aide

 

[job75]

Re : macro ne fonctionne pas jusqu'au bout

Bonjour superbog,

C'est un problème très classique souvent traité sur XLD.

Mais votre macro était encombrée de choses inutiles, cela fait fuir.

La voici corrigée :

Sub EPnew()
Dim Sh1 As Worksheet, Sh2 As Worksheet, lig&, I&

Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est ouvert
Workbooks.Open ThisWorkbook.Path & "\EP.xls" 'chemin à adapter
Set Sh1 = ThisWorkbook.Sheets("EP")
Set Sh2 = Workbooks("EP.xls").Sheets("EP")
lig = Sh1.Range("B9000").End(xlUp).Row + 1

For I = 2 To Sh2.Range("B9000").End(xlUp).Row
  'Copie les valeurs si non cochées
  If IsEmpty(Sh2.Cells(I, 1)) Then
    Sh1.Cells(lig, 2).Resize(, 8) = Sh2.Cells(I, 2).Resize(, 8).Value
    Sh2.Cells(I, 1) = "X"
    lig = lig + 1
  End If
Next I

Sh2.Parent.Close True 'facultatif, enregistre et ferme le fichier EP.xls
Application.ScreenUpdating = True
MsgBox "opération effectuée"
End Sub

Les 2 fichiers sont à placer dans le même dossier (le bureau par exemple).

Edit : ils pesaient bien trop lourd avec peu de choses, je les ai nettoyés...

A+

 

[superbog]

Re : macro ne fonctionne pas jusqu'au bout

merci je fais tester mais justement mon problème est que les fichiers ne sont pas (et ne peuvent pas être) dans le même répertoire

comment faire?

 

[job75]

Re : macro ne fonctionne pas jusqu'au bout

Re,

Alors là superbog vous me laissez assis 😛

J'ai mis comme chemin d'accès ThisWorkbook.Path bien sûr pour que tout le monde puisse tester.

En prenant soin d'indiquer "chemin à adapter".

Non seulement il faut vous fournir la marchandise mais encore la cuire et la mâcher 😡

Et là ce n'est pas une question de niveau de connaissance !

A+

 

[superbog]

Re : macro ne fonctionne pas jusqu'au bout

ne vous fachez pas, c'est vous qui avez écrit
"Les 2 fichiers sont à placer dans le même dossier (le bureau par exemple)."

j'ai donc craint un problème même si je ne le voyais pas car c'est vous le (très bon) spécialiste...


🙂

pardon si je me suis mal fait comprendre