MACRO petite modification d'adaptation
Bonjour à toutes et tous,
Je reviens vers vous pour un coup de pouce
Malgré de nombreuses recherches sur le net, je ne parviens pas à trouver le code permettant d’importer toute la plage d'un tableau jusqu'à la dernière cellule non vide sous certaines conditions. Sauf la macro suivante qui nécessite une petite modification pour qu’elle me soit utile.
A cet effet, J'aurais besoin d’importer des lignes non vides depuis un tableau s’étend de B6 à X35, situé dans un autre classeur fermé nommé PERSONNEL
Pour ce faire, je souhaite améliorer la fonction de cette Macro de telle façon qu’elle doit importer que les lignes dont la cellule en colonne C est NON VIDE, et la cellule en colonne L = VRAI
D'autre part, si le fichier source est introuvable, un message dans ce sens doit s'afficher au lieu d'une erreur.
Je vous remercie d'avance toutes et tous.
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "C:\>>>chemin fichier"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre)
wbk1.Sheets(6).Range("B6:X35").Value = wbk2.Sheets(4).Range("B6:X35").Value
wbk2.Close
End IfBonjour Amidou, le forum,
Copier les deux fichiers ci-joints dans un même répertoire, et ouvrier le fichier « Amidou Fichier Source », puis cliquer sur le bouton de commande. A tester. Je vous laisse le soin de modifier la macro pour les chemins des fichiers.
Cordialement,
André
Bonjour loursgris, le forum
Tout d'abord, merci beaucoup pour l'aide.
Néanmoins, la fonction que j'ai besoin c'est le contraire de celle de cette macro.
Je voulais importer des données depuis un fichier fermé et non pas les exporter vers un fichier fermé
C'est la même fonction de cette macro mais dans le sens contraire.
J'ai essayé de modifier le code mais j'en suis novice et je n'ai pas pu arriver au résultat voulu.
Merci de bien vouloir inverser la fonction de cette macro.
Cordialement.