Set exl = CreateObject("excel.application")
exl.Visible = True
exl.Workbooks("F:\COT\Technique\BUREAU D'ETUDE\GESTION DOMAINE PUBLIC\SUIVI DOSSIERS GDP.xls").Sheets("Recap").ActiveCell = "" & DocName
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe ne suis pas la pour apprendre le vba! J'ai juste besoin d'une ligne de code et je la trouverais meme si ce n'est pas grace à toi
Je ne connais pas du tout vba word qui visiblement est différent
En parallèle, j'ai un fichier Excel qui est ouvert et où je sélectionne une cellule.
Je souhaiterais qu'à la fin de ma macro Word, je puisse lui faire inscrire la variable DocName dans la cellule active que j'ai préalablement sélectionné dans le fichier Excel.
Dim i As Integer Dim somme As Integer Dim appExcel As Excel.Application Dim sheet As Excel.Worksheet Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un nouveau vierge appExcel.Workbooks.Add Set sheet = appExcel.ActiveWorkbook.ActiveSheet somme = 0 'Parcours des cellules : A correspond à la première case de mon tableau et F à la sixième For i = 1 To 6 'La propriété Cells(n°ligne,n°colonne) permet de sélectionner une seule cellule somme = somme + sheet.Cells(3,i).Value Next i 'La propriété Range(zone) permet de sélectionner une zone. La variable zone est une chaine de caractère de la forme "B5:T20" (cellule du coin haut gauche et cellule bas droite séparée par le caractère ':') sheet.Range(colHeader(2) & "4:" & colHeader(2) & "4").Select 'La chaine formée par colHeader(2) & "4:" & colHeader(2) & "4" donne "B4:B4" ce qui sélectionne une seule cellule sheet.Selection.Value = somme
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim colonne, ligne As Integer colonne = Target.Column ligne = Target.Row MsgBox colonne MsgBox ligne End Sub