VBA choix de la plage à importer

Bonjour à tous,

J'ai fait un module afin d'automatiser l'import d'une base de données. Cependant, cette base change tous les mois, c'est-à-dire qu'il peut y avoir des lignes supplémentaires ou inversement.

J'aimerai donc pouvoir ouvrir le fichier à sélectionner, choisir la plage à importer et que la macro puisse continuer à tourner.

Je vous ai mis la macro juste en dessous, comme vous pouvez le voir le copier/coller se fait en fonction des cellules visibles uniquement, je souhaiterai donc qu'après avoir sélectionner la plage manuellement, l'utilisateur clique sur ENTER et la macro continue de fonctionner automatiquement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub ImportDIE() ' ' Import ' Importer base de données DI Eurose ' '     'Lancer cette macro en premier juste après la base obligation car l'ajout dans cette base est spécialement conçu pour être lancé en premier   Dim MonFichier   MonFichier = Application.GetOpenFilename("Fichiers Excel avec macro (*.xlsm),*.xlsm")   MsgBox ("Selectionner la plage à importer puis cliquer sur ENTER")     Windows("Archive DNC.xlsm").Activate Range("B6:AU187").Select 'nombre de ligne peut varier Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Windows("template import données obligataires infocentre_20180430.xlsm"). _ Activate Sheets.Add After:=ActiveSheet ActiveSheet.Name = "Base DIE" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select   End Sub

---

Après l'ouverture de la message box je ne sais pas quelle ligne écrire afin que l'utilisateur choissise la plage et clique sur enter !!


Merci d'avance pour votre aide

Salut,

Pourquoi demandé à l'utilisateur ?

Si Excel peut le faire tout seul !!!

avec cette instruction, Excel sélectionne automatiquement la zone active (jusqu'à trouver une ligne, colonne entièrement vide.

Code:

---

Range("B6").CurrentRegion.Select

---

Après, plutôt que de faire çà avec du code, tu peut envisager d'utiliser une "Connexion" via ms query par exemple.
va voir là si tu veux en savoir plus
https://www.developpez.net/forums/d1...riel-ms-query/

Bonjour

Citation:

---

après avoir sélectionner la plage manuellement

---

---->> rubrique Application.InputBox, méthode de l'aide interne VBA. Elle est assortie d'un exemple.
Si tu tiens à ce que l'utilisateur choisisse manuellement -->> A lire et utiliser. ;)

Merci beaucoup pour ton aide Jérôme :)


Le problème est qu'il y a des lignes vides dans la plage à sélectionner. Les macros suivantes nettoient justement la base de données. Je souhaite que la personne qui va utiliser ma macro (ce que j'entend par utilisateur :p) puisse lui-même sélectionner la plage !

Merci beaucoup Unparia, c'est exactement ce qu'il me fallait !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub ImportDIS() ' ' ImportDISerenite ' Dim MonFichier As Variant   MonFichier = Application.GetOpenFilename("Fichiers Excel avec macro (*.xlsm),*.xlsm")   Workbooks.OpenXML Filename:=MonFichier   Set myCell = Application.InputBox( _ prompt:="Select a cell", Type:=8)   Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy   Windows("template import données obligataires infocentre_20180430.xlsm"). _ Activate Sheets.Add After:=ActiveSheet ActiveSheet.Name = "Base DIS +" Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select   End Sub

---

Cependant, dernier problème, quand je lance la macro, lorsque je sélectionne ma plage et qu'elle se copie/colle sur mon fichier active, la sélection ne prend pas en compte la sélection des cellules visibles uniquement et prend également en compte des lignes au dessus alors que je les ai pas selectionnées.... :(

Ce n'est pas :

Code:

---

Selection.SpecialCells(xlCellTypeVisible).Select

---

mais

Code:

---

mycell.SpecialCells(xlCellTypeVisible).Select

---

qu'il est préférable d'écrire, déjà.

Par ailleurs : les "lignes au-dessus" ne sont prises en compte que parce-que tu les as sélectionnées lors de l'inputbox !

Oui en effet, lorsque j'ouvrais le fichier toute la base était sélectionnée j'ai donc arrangé ça

J'ai en effet modifié cette ligne, est ce que cela veut dire que pour coller, sur la ligne
je mets mycell devant PasteSpecial ? J'ai essayé et on me dit que cette méthode ne fonctionne pas

J'ai beau cherché sur d'anciens postes sur des forums et me creuser la tête mais j'ai du mal à trouver le langage exacte pour effectuer cette manip....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Set mycell = Application.InputBox( _ prompt:="Sélectionner la plage:", Type:=8)   mycell.SpecialCells(xlCellTypeVisible).Select mycell.Copy ActiveCell Windows("template import données obligataires infocentre_20180430.xlsm"). _ Activate Sheets.Add After:=ActiveSheet ActiveSheet.Name = "Base DI Eurose" Range("A1").Select mycell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select

---

Merci encore pour votre aide :)

Que vient faire dans cela :

Code:

---

mycell.Copy ActiveCell

---

mycell est DEJA un objet range : celui à copier
regarde cet exemple et inspire-toi de lui :

Code:

---

1 2 3 4

Set mycell = Application.InputBox(prompt:="Select a cell", Type:=8) mycell.SpecialCells(xlCellTypeVisible).Copy Worksheets("Feuil3").Range("J1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Je te laisse maintenant là, si tu permets.