Bonjour,
Je viens de créer une macro mais j'ai plusieurs questions.
1-Je voulais savoir si l'on pouvait copier/coller des cellules d'une feuille cachée vers un autre fichier excel?
2-Savoir si l'on pouvait faire le copier/coller sans ouvrir le fichier excel où sont les données.
En fait mon but est de retranscrire sur un même tableau des données de différent établissement et leurs fichiers excel qui m'envoient ont les mêmes racines.
voici ma macro:
Sub TransposerEnLigne()
'
' Macro1 Macro
'
'
Windows("Projet investissement.xlsx").Activate
Sheets("Feuil2").Select
Range("C1:C47" & derlig).Select
Selection.Copy
Windows("Projet investissement Récap région.xlsm").Activate
Sheets("Feuil1").Select
Range("A5" & derlig).Select
Range("A65535").End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A6").Select
End Sub
Merci d'avance
Je viens de créer une macro mais j'ai plusieurs questions.
1-Je voulais savoir si l'on pouvait copier/coller des cellules d'une feuille cachée vers un autre fichier excel?
2-Savoir si l'on pouvait faire le copier/coller sans ouvrir le fichier excel où sont les données.
En fait mon but est de retranscrire sur un même tableau des données de différent établissement et leurs fichiers excel qui m'envoient ont les mêmes racines.
voici ma macro:
Sub TransposerEnLigne()
'
' Macro1 Macro
'
'
Windows("Projet investissement.xlsx").Activate
Sheets("Feuil2").Select
Range("C1:C47" & derlig).Select
Selection.Copy
Windows("Projet investissement Récap région.xlsm").Activate
Sheets("Feuil1").Select
Range("A5" & derlig).Select
Range("A65535").End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A6").Select
End Sub
Merci d'avance
Dernière édition: