Macro: Bouton qui me permet de récupérer un workbook

Fermé

desbois2 Messages postés 8 Date d'inscription lundi 14 juillet 2014 Statut Membre Dernière intervention 9 février 2016 - 8 févr. 2016 à 23:34
desbois2 Messages postés 8 Date d'inscription lundi 14 juillet 2014 Statut Membre Dernière intervention 9 février 2016 - 9 févr. 2016 à 02:50

Bonjour,

Je commence a jouer avec les macros d'Excel et je n'ai pas beaucoup d'expérience avec ceux-ci.

J'aimerais avec un bouton pouvoir choisir un autre document Excel afin qu'il executer mon code sur ce nouveau dossier. Quelqu'un serait-il en mesure de m'aider? Je n'ai rien trouvé avec mes recherchers :S

voici un exemple d'un bout de code.

for i= 2 to 300

if not isempty( workbookquejaichoisi().worksheet(7).Cells(i,1) ) then

Cells.(i-1,2) = workbookquejaichoisi().worksheet(7).Cells(i,1)

end if
next i

A voir également:

Macro: Bouton qui me permet de récupérer un workbook
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

desbois2 Messages postés 8 Date d'inscription lundi 14 juillet 2014 Statut Membre Dernière intervention 9 février 2016
9 févr. 2016 à 02:50

J'ai trouvé!

Sub openwb()
Dim wkbk As Workbook
Dim NewFile As Variant

NewFile = Application.GetOpenFilename("microsoft excel files (*.xlsm*), *.xlsm*")

If NewFile <> False Then
Set wkbk = Workbooks.Open(NewFile)
End If


For i = 5 To 300

If Not IsEmpty(wkbk.Worksheets(10).Cells(i, 1)) Then

ThisWorkbook.Worksheets(1).Cells(i - 4, 1) = wkbk.Worksheets(10).Cells(i, 1)
MsgBox wkbk.Worksheets(10).Cells(i, 1)

End If
Next i

End Sub

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters