Discussion :

[holly8004]

Bonjour,

J'essaie d'insérer des colonnes provenant d'un fichier Excel "Tableau.xlsx" et je souhaiterais les insérer après la dernière cellule vide de mon fichier contenant la macro ci-dessous.
ça fonctionne sauf que cela insère les colonnes dans le tableau "Tableau.xlsx" et non dans le fichier contenant la macro.
pourriez-vous svp m'aider ?

Sub test()

Dim Msg
Dim Rep
Dim col As Long

Windows("Tableau.xlsx").Activate

Msg = InputBox("Avez-vous besoin de récupérer un autre mois? Si oui indiquer le nom de l'onglet. Sinon, cliquer sur annuler")
Set onglet = Sheets(Msg)
onglet.Activate
Set Rep = Application.InputBox(prompt:="Sélectionner les colonnes à copier", Title:="Copie", Type:=8)
Rep.Copy
ThisWorkbook.Activate
Sheets("Présence").Activate
col = Range("N2").End(xlToRight).Column
Rep.Insert

End Sub

[Franc]

Salut, teste ceci:

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
Sub test()
 
    Dim Msg As String
    Dim Rep As Range
    Dim col As Long
    Dim wsMacro As Worksheet
    Dim wsSource As Worksheet
 
    ' Définir la feuille active du fichier contenant la macro
    Set wsMacro = ThisWorkbook.Sheets("Présence")
 
    Msg = InputBox("Avez-vous besoin de récupérer un autre mois ? Si oui, indiquer le nom de l'onglet. Sinon, cliquer sur Annuler")
 
    If Msg = "" Then
        MsgBox "Aucun onglet sélectionné. La macro est terminée."
        Exit Sub
    End If
 
    ' Activer le classeur source et définir la feuille
    On Error Resume Next
    Set wsSource = Workbooks("Tableau.xlsx").Sheets(Msg)
    On Error GoTo 0
 
    If wsSource Is Nothing Then
        MsgBox "L'onglet spécifié est introuvable dans 'Tableau.xlsx'."
        Exit Sub
    End If
 
    ' Sélectionner les colonnes à copier dans l'onglet source
    wsSource.Activate
    Set Rep = Application.InputBox(prompt:="Sélectionner les colonnes à copier", Title:="Copie", Type:=8)
 
    If Rep Is Nothing Then
        MsgBox "Aucune colonne sélectionnée."
        Exit Sub
    End If
 
    Rep.Copy
    ThisWorkbook.Activate
    wsMacro.Activate
    col = wsMacro.Range("N2").End(xlToRight).Column + 1
    wsMacro.Cells(2, col).PasteSpecial Paste:=xlPasteAll
 
    ' Nettoyer le Presse-papiers
    Application.CutCopyMode = False
 
End Sub

[holly8004]

Bonjour Franc,
Merci encore pour votre aide.