Agrémenter un tableau avec des valeurs d'un autre classeur

L

ledauger

XLDnaute Nouveau

• 5 Août 2011

• #2

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

bonjour, je passe juste en coup de vent, et j'ajouterais que si tu ne joints pas de fichier pour "agrémenter" ta demande, elle risque de rester message mort pour un moment... bon courage

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 5 Août 2011

• #3

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Une première approche :

Sub chercher()
Application.ScreenUpdating = False
Dim i&
For i = 100 To 1 Step -1
j = i - 1
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("Le chemin de ton fichier")
Set ws = wb.Worksheets("Le nom de la feuille où récupérer tes infos")
donnee = ws.Cells(x, y).Copy ' La plage de à récupérer
wb.Close
If Range("A" & j).Value <> "" Then
Range("A" & i).PasteSpecial (xlPasteValues)

Application.ScreenUpdating

End Sub

Il faut l'adapter en fonction de ton fichier ( Notamment des plages à définir ); les valeurs seront mises dans la première ligne vide de ton tableau.

 

Vote positif 0 Vote négatif

J

johndoe47

XLDnaute Nouveau

• 5 Août 2011

• #4

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

@ledauger: désolé je ne peux pas le joindre, c'est un outil assez précieux développé en interne.
@VDAVID: Merci de votre rapidité, cependant j'ai testé votre macro mais un message d'erreur m'affiche "utilisation incorrecte de la propriété" concernant "Application.ScreenUpdating"

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 5 Août 2011

• #5

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Re, Excusez moi , j'ai effectivement écris trop vite le dernier Application.ScreenUpdating
Rajoutez : Application.ScreenUpdating "= True"
Nouveau code :
Sub chercher()
Application.ScreenUpdating = False
Dim i&
For i = 100 To 1 Step -1
j = i - 1
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("Le chemin de ton fichier")
Set ws = wb.Worksheets("Le nom de la feuille où récupérer tes infos")
donnee = ws.Cells(x, y).Copy ' La plage de à récupérer
wb.Close
If Range("A" & j).Value <> "" Then
Range("A" & i).PasteSpecial (xlPasteValues)

Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 5 Août 2011

• #6

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Bien sûr, la macro telle quelle est ici n'est pas, comme je l'ai dit, directement à lancer avec votre document, il faudrait un fichier joint ( ou les deux dans ce cas ) sans informations confidentielles pour que l'on puisse vraiment l'adapter.

 

Vote positif 0 Vote négatif

J

johndoe47

XLDnaute Nouveau

• 26 Août 2011

• #7

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Ok merci beaucoup, j'ai un autre soucis sur un autre document. Je joins le fichier pour vous aider. Ça se passe dans la feuille "Ajouter Stagiaire". Je dois ajouter les valeurs (D2, D3, D6, D7, D8, D9, D10) à une base rangée par session selon la session choisie dans la liste. Quand le stagiaire se trouve déjà dans la base, il ne faut rien faire.
J'ai déjà commencer la macro (TransférerVersSession)

 

Pièces jointes

• outil gestion formation - pour internet.xlsm

  184.9 KB · Affichages: 100

Dernière édition: 26 Août 2011

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 26 Août 2011

• #8

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Bonjour John,
Un autre test en exemple, le code de la macro est sur la feuille 5 "Ajouter stagiaire"; elle est à affecter à votre mise en forme. Les deux formules en colonnes "M" et "N" sont à laisser.
Bonne journée

 

Pièces jointes

• Test John2.xlsm

  177.3 KB · Affichages: 110

Vote positif 0 Vote négatif

J

johndoe47

XLDnaute Nouveau

• 26 Août 2011

• #9

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Merci beaucoup, fallait y penser au (12 - nbre de place) etc.. merci. Y-aurait-il moyen d'éviter de mettre deux fois la même personne dans la base ? d'éviter les doublons en somme. Peut-on mettre un If dans un autre ? comme un imbriquement de fonction SI()

 

Vote positif 0 Vote négatif

V

VDAVID

XLDnaute Impliqué

• 26 Août 2011

• #10

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

Pour la vérification des doublons, tu voudrais qu'elle se fasse uniquement sur le nom et le prénom?

 

Vote positif 0 Vote négatif

J

johndoe47

XLDnaute Nouveau

• 26 Août 2011

• #11

Re : Agrémenter un tableau avec des valeurs d'un autre classeur

L'idéal serait nom + prénom + société. Après if(session choisie = session possible) est ce qu'on pourrait remettre une fonction if(nom + prénom + société déjà présent dans la base, msgbox, etc...) ?

 

Vote positif 0 Vote négatif