SOS.. Problème de connextion entre 2 macros

[Dessimoz]

Bonjour,

j'ai un problème de "joint" entre ces deux macros.. quand la 1e est executée elle se fini sur le classeur choisi, ce que je veux faire avec la 2e macro... c'est de selectionner la feuille du nouveau classeur et de copier les valeurs dans un autre classeur (déjà ouvert). Mais comment faire. Si quelqu'un peu me reécrire cette macro ou me la modifier ça serait bien bien sympa...surtout que c'est pour le boulot que j'utilise ça !! (et j'ai une échéance...

Function ChargerFichiers()
Application.ScreenUpdating = False
Dim DirVar As String
DirVar = Dir(Application.DefaultFilePath & "\*.xls")
Do While DirVar <> ""
UserForm1.ComboBox1.AddItem DirVar
DirVar = Dir()
Loop
UserForm1.Show


Cells.Select
Range("K15").Activate
Selection.Copy
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("REPRISE").Select
Cells.Select
Range("F25").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D18").Select
End Function

 

[@+Thierry]

Salut Dessimoz

Humm Humm

C'est quoi ce code ? en Function ? ce serait sûrement plus opérationnel en Sub ! (???)

En plus c'est quasiment impossible à comprendre.... Vu que je ne suis pas dans le contexte...

le UserForm1 ? il sert à quoi ? dans cette copie ?

Non sorry pas assez de données... Tu veux copier quoi ? une cellule ? (K15) ou toutes les cellules ? (cells) ..... Les windowStates ne servent strictement à rien... Tu veux copier çà sur la feuille "Reprise" mais où ? cells ?? (cells signifie toutes les cellules ... (F25 ?) ...

Plutot que de coller ce code sans queue ni tête essaie de prendre le temps de clairement expliquer ce que tu as, ce que tu veux faire et ce que tu n'arrives pas à faire....

Bonne Nuit
@+Thierry

 

[albert]

bonjour dessimoz,
je suis un bricoleur en vba... je trouve qu'excel aurait pu être mis à la portée des non informaticiens... bref j'ai souvent l'impression de refaire le monde à chaque fois que je veux une nouvelle fonctionnalité...

je suis un bricoleur et je cherche...

j'ai trouvé
http://www.excel-vba.com/francais/excel-rapports.htm

j'ai adapté le code et ça marche pour aller chrercher une feuille dans un classeur source différent ... je n'ai pas essayé plusieurs classeurs et plusieurs feuilles
mais ça doit être possible
Sub Transfert()
'--------------------
'classeur destination
'--------------------

ThisWorkbook.Activate
Sheets("Feuil2").Select
Range("A1").Select
Selection.CurrentRegion.ClearContents
'------------------------------
'adresse source
'-------------------------------
ChDir "D:\blabla"
Workbooks.Open Filename:="D:\blablaBla.xls"

Sheets("Feuil1").Select
Range("D16").CurrentRegion.Select
Selection.Copy
'----------------------------
'destination
'-----------------------------
ThisWorkbook.Activate
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[@+Thierry]

Salut Albert,

J'approuve => "je suis un bricoleur en vba" très très bien çà !

Je désapprouve => "je trouve qu'excel aurait pu être mis à la portée des non informaticiens" Je pense que 99% des utilisateurs d'Excel son non informaticiens et se débrouillent très bien...... La preuce CE forum !!!

ET oui on refait le monde de toute façon avec Excel !! lol

Bonne Nuit
@+Thierry

 

[gofurio]

je n'arrive pas ouvrir un e.mail