Fonction "Range" avec choix du numéro de ligne à partir d'une cellule
Bonsoir à tous,
C'est mon premier poste.
Je souhaiterai modifier le code suivant afin que la fonction Range puisse considérer le numéro de ligne à partir d'un nombre que j'aurai saisie dans la cellule "A1" par exemple, tout en gardant la colonne "F".
Quelque chose comme çà : Range ("F", "A1")
Pouvez-vous m'éclairer ? Merci beaucoup
Bonsoir lovasok,
Merci de copier le code et l'insérer dans ton post en utilisant le bouton </>
@+
Bonjour,
Voici le code comme demandé. Celui-ci crée un fichier word et rempli des champs à partir de certaines cellules de mon fichier excel pour les reporter aux emplacements des signets que j'ai créé sur Word.
Ce que je voudrais faire est la chose suivante :
Je souhaiterai modifier le code suivant afin que la fonction Range("F9") puisse considérer le numéro de ligne à partir d'un nombre que j'aurai saisie dans la cellule "A1" par exemple, tout en gardant la colonne "F".
Quelque chose comme çà : Range ("F", "A1")
Voici le code :
Sub Bouton3_Cliquer()
Dim WordApp As Word.Application
Dim Nom As String
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("C:\Users\Public\Desktop\Report_Form.dotx", ReadOnly:=True)
WordApp.Visible = True
With WordDoc
.Bookmarks("S1").Range.Text = Range("F9")
.Bookmarks("S2").Range.Text = Range("F11")
.Bookmarks("S3").Range.Text = Range("E14")
.Bookmarks("S4").Range.Text = Range("H14")
.Bookmarks("S6").Range.Text = Range("O9")
.Bookmarks("S7").Range.Text = Range("P3")
.Bookmarks("S8").Range.Text = Range("F10")
.Bookmarks("S9").Range.Text = Range("O10")
.Bookmarks("S10").Range.Text = Range("O11")
.Bookmarks("S11").Range.Text = Range("K14")
End With
Nom = ActiveSheet.Range("P3")
WordDoc.SaveAs Filename:="C:\Users\Public\Desktop\" & Nom & ".doc"
End Sub