Bonjour,
J'ai un soucis sur un fichier. J'ai un fichier où je lui demande de copier des valeurs dans des cellules.
Lorsque les cellules du fichier sont dans un classeur, il n'y a pas de soucis.
Par contre quand je selectionne une plage de cellules pleine et vide et que je les transforme en tableau, les prochaines cellules qui seront remplies seront dans la feuille et pas dans le tableau.
là je sèche. Je pense que le tableau est un objet, mais je ne sais pas comment faire.
Ci dessous le gros du code.

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
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub CMDBVALIDER_Click()
Application.DisplayAlerts = False
Dim Y, X As Integer
 Dim lastRow As Integer, annee As String
Workbooks.Open Filename:="C:\Users\julien\Desktop\classeur1.xlsm"
    newRow = Sheets(annee).Cells(Columns.Count, 2).End(xlUp).Row + 1
    With Sheets(annee)
Y = Sheets(annee).Range("A" & Rows.Count).End(xlUp).Row
X = Sheets(annee).Cells(Y, "A").Value + 1
.Cells(newRow, 1).Value = X
.Cells(newRow, 2).Value = CDate(Me.TB1.Value)
.Cells(newRow, 3).Value = Me.TB2.Value
.Cells(newRow, 4).Value = Me.TB3.Value
.Cells(newRow, 5).Value = Me.TB4.Object
.Cells(newRow, 6).Value = Me.TB5.Value
.Cells(newRow, 8).Value = Me.TB6.Value
Chemin = "C:\Users\julien\Desktop\
    Texte = "classeur 1" & " " & annee
 
    Workbooks("classeur1.xlsm").Sheets(annee).ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=Chemin & Texte, _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    PaperSize = xlPaperA3
    FirstPageNumber = xlAutomatic
    Order = xlDownThenOver
 
 
End Sub