Bonjour à tous.

J'ai quelques petites questions à vous poser

PREMIÈRE QUESTION:
J'ai cherché sur le forum et je suis parvenu à trouver un bout de code permettant de réaliser la saisie et la copie d'un classeur vers un autre classeur... J'ai malheureusement une erreur et je ne comprends pas d'où elle vient!!! Le code en lui même fonctionne bien mais la copie ne s’effectue pas dans les cases désirées.
Par exemple, je souhaite copier le rang A14:A19 de mon premier classeur dans le rang B13:B18 de mon second classeur. Le code fonctionne, c'est à dire que la copie s'effectue bien, mais pas dans les bonnes cases. Résultat la copie de mes cellules se fait dans le rang B22:B37... J'ai tenté de changer un peu les paramètre mais en vain...


DEUXIÈME QUESTION:
Je souhaite dans un second temps ne plus indiquer un rang comme je le fais actuellement (A14:A19), mais je voudrais dire "tu copies toutes les cases non vides de la colonne A". Car pour le moment j'ai 16 lignes mais il se peut qu'à court terme... il y en ai plus...


TROISIÈME QUESTION:
J'ai fait une "sorte de mise en page". C'est juste un titre, une date et une heure. Je souhaiterais lorsque le nombre de lignes occupent une deuxième page, que ma mise page soit recopié automatiquement. Ainsi j'aurais toujours la même présentation de document. Pour le moment c'est une option, ce n'est pas le plus important, mais j'aimerais bien que çà marche

Je vous donne mon code, enfin le code que j'ai adapté

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Reporte_Incidencias()
 
' Déclaration des variables d'entrée
Dim NomFichierEntree
Dim Sortie As Workbook
Dim Entree As Workbook
Dim FeuilleOrigine As Worksheet
Dim FeuilleDestination As Worksheet
 
    Set Sortie = ThisWorkbook
    ' Choisir fichier
    NomFichierEntree = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    ' On verifie que l'on a selectionné un nom de classeur
 
    If NomFichierEntree <> False Then
        ' On ouvre le classeur
        Set Entree = Workbooks.Open(NomFichierEntree)
 
        'Référence feuille origine des données à copier
        Set FeuilleOrigine = Entree.Sheets("Kilometraje")
 
        'Référence la feuille de destination des cellules copiées
        Set FeuilleDestination = Sortie.Sheets("Hoja general")
 
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("B13:B28").Value = FeuilleOrigine.Range("A14:A29").Value
 
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("C13:B28").Value = FeuilleOrigine.Range("F14:F29").Value
 
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("D13:D28").Value = FeuilleOrigine.Range("G14:G29").Value
 
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("E13:E28").Value = FeuilleOrigine.Range("I14:I29").Value
 
        ' On ferme le classeur
        Entree.Close
    End If
 
    ' Choisir fichier
    NomFichierEntree = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
    ' On verifie que l'on a selectionné un nom de classeur
 
    If NomFichierEntree <> False Then
        ' On ouvre le classeur
        Set Entree = Workbooks.Open(NomFichierEntree)
 
        'Référence feuille origine des données à copier
        Set FeuilleOrigine = Entree.Sheets("Análisis de recorridos")
 
        'Référence la feuille de destination des cellules copiées
        Set FeuilleDestination = Sortie.Sheets("Hoja general")
 
        ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("B13:B28").Value = FeuilleOrigine.Range("F16:F31").Value
 
         ' On copie les cellules de la feuille désirée vers la feuille de sortie
        FeuilleDestination.Range("A65536").End(xlUp)(2).Range("F13:F28").Value = FeuilleOrigine.Range("P16:P31").Value
 
        ' On ferme le classeur
        Entree.Close
    End If
 
End Sub
Merci beaucoup pour votre aide!

Je site tout de même la référence du code

http://www.developpez.net/forums/d10...lasseur-ferme/

Merci à toi tedo01