Bonjour à tous
Je souhaiterai copier la première ligne d'un fichier base et la coller sur la 2ème ligne d'une feuille d'un fichier fermé et l'enregistrer sous. mais je n'y arrive pas. en gras j'ai le message l'indice n'appartient pas à la sélection.
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub copier () Rows("1:1").Select Selection.Copy Application.WindowState = xlMinimized Application.WindowState = xlNormal Windows("Entretien.xls").Sheets("Recueil données").Select 'le fichier fermé Rows("2:2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Enregitrer_Nom() ' Dim chemin As String, name As String chemin = "T:\TRAVAUX \" nom = Range("c7").Value & ".xls" ChDir "T:\TRAVAUX " ThisWorkbook.SaveAs chemin & nom, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
Partager