Macro: Bouton qui me permet de récupérer un workbook
desbois2
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
desbois2 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
desbois2 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
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