Modifier Macro ajouter une colonne [Résolu] - Forum VB / VBA

A voir également:Modifier macro ajouter une colonnePouvoir ajouter des colones sans modifier ma macro ✓ - Forum - Excel Modifier une macro: Ajouter des lignes ✓ - Forum - VB / VBA Ajouter une colonne vide dans un tableau croisé dynamique - Forum - Bureautique Macro ajouter une ligne - Forum - Excel Macro excel transposer colonne en ligne - Conseils pratiques - Excel

Bonjour,

J'ai cette macro qui se base à ouvrer un fichier et faire un copier coller :

Sub OpenFiles()
Application.ScreenUpdating = False
Dim w As Workbook
Dim w1 As Workbook

ThisWorkbook.Sheets("Feuil1").Range("A1:Z65000").ClearContents

'Open les variable file
Set w = Workbooks.Open(ThisWorkbook.Sheets("Interface").Range("E4"))
w.Worksheets(1).Activate
w.ActiveSheet.Cells.Copy Destination:=ThisWorkbook.Sheets("Les variables").Range("A1")
w.Close savechanges:=False

'open data file
Set w1 = Workbooks.Open(ThisWorkbook.Sheets("Interface").Range("E6"))
lr = w1.ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row
w1.ActiveSheet.Range("C1", w1.ActiveSheet.Range("C" & lr)).Copy Destination:=ThisWorkbook.Sheets("Feuil1").Range("A1")
ThisWorkbook.Activate
ThisWorkbook.Sheets("Feuil1").Activate
'call macro
Call decoupe
ThisWorkbook.Sheets("Feuil1").Columns("A:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
w1.ActiveSheet.Range("A1", w1.ActiveSheet.Range("B" & lr)).Copy Destination:=ThisWorkbook.Sheets("Feuil1").Range("A1")
w1.ActiveSheet.Range("E1", w1.ActiveSheet.Range("H" & lr)).Copy Destination:=ThisWorkbook.Sheets("Feuil1").Range("F1")
w1.Close savechanges:=False
ThisWorkbook.Sheets("Feuil1").Columns("D:D").Delete Shift:=xlToLeft
ThisWorkbook.Sheets("Feuil1").Columns.AutoFit
MsgBox "Task Completed...."
Application.ScreenUpdating = True
End Sub
Sub GetFilePath1()

Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With

ActiveSheet.Range("E4") = FileSelected
End Sub
Sub GetFilePath2()

Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With

ActiveSheet.Range("E6") = FileSelected
End Sub


Si vous pouvez m'aider à modifier cette macro pour qu'elle peut ajouter une colonne vide au fichier source avant de faire copier coller, la colonne vide ajoutée doit etre entre colonne C et D.


Merci infiniment



Configuration: Windows / Firefox 52.0

Forum

A voir également:Modifier macro ajouter une colonnePouvoir ajouter des colones sans modifier ma macro ✓ - Forum - Excel Modifier une macro: Ajouter des lignes ✓ - Forum - VB / VBA Ajouter une colonne vide dans un tableau croisé dynamique - Forum - Bureautique Macro ajouter une ligne - Forum - Excel Macro excel transposer colonne en ligne - Conseils pratiques - Excel

Web: www.shapebootstrap.net

3 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Voila le fichier :

https://www.cjoint.com/c/ICgkCzB8nA0

Reply

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Re,

Tout a fait Thierry, mais de quel fichier source, le premier ou le deuxieme????????????????????????

Reply
réponses:

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Fichier modifie, mais comprends pas le but du jeu!!!!

https://mon-partage.fr/f/9N2iUvSE/

Reply
réponses:
  • auteur

    Bonjour,

    Merci infiniment. :)

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed