Bonjour à tous
Dans une macro, comment récupérer des données d'un fichier Excel ?
Merci de votre aide.
Claude Azoulai
Bonjour à tous
Dans une macro, comment récupérer des données d'un fichier Excel ?
Merci de votre aide.
Claude Azoulai
Bonjour,
il te faut activer la librairie sous VBA "Microsoft Excel" puis déclarer les variables qui vont bien.
Exemple:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Dim oExcel As Excel.Application Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open(<chemin du fichier excel>) 'copie d'une plage de cellules oWB.Sheets(1).Range("A1:AO50").Copy 'retour dans word: ' coller en format image Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False 'fermeture fu fichier excel oWB.close
Bonjour Nico820,
J'aimerai savoir comment récupérer la valeur d'une cellule excel sans coller la cellule sur word? (J'aimerai directement mettre la valeur d'une cellule excel dans un tableau virtuel afin de pouvoir la réutiliser dans ma macro)
Merci
Ca devrait être possible en pointant directement sur la ligne dans Word et en lui assignat la valeur de la cellule venant d'Excel.
Bonjour,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim oExcel As Excel.Application Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open(<chemin du fichier excel>) Dim Variable_1 as string 'Récupère la valeur de la cellule A1 Variable_1 = oWB.Sheets("Nom de ta feuille excel").Cells(1,1).value oWB.close Set oExcel = Nothing Set oWB = Nothing
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager