Discussion :

[will83177]

Bonjour à tous et a toutes
je débute en VBA, après avoir parcouru le site, j ai réussi à faire des copier simple de feuille à feuille
je souhaite faire une macro qui copie une partie d une feuille de classeur en fonction du nom du classeur (la condition)

ma premier partie je l ai réussi
dupliquer un classeur modèle en fonction d'une liste de variante qui lui attribut un nom
maintenant dedans avant que les classeur ouvert se referme je souhaite qui copie une partie d une feuille en fonction d un tableau
merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
Dim C As Variant
Dim dossierEnCours As String
dossierEnCours = ThisWorkbook.Path
Workbooks.Open Filename:=dossierEnCours & "\ddpp71.xlsx"
 
Application.ScreenUpdating = False
 
For Each C In ThisWorkbook.Sheets("liste").Range("A1:A22")
ActiveWorkbook.SaveAs Filename:=dossierEnCours & "\" & C & ".xlsx"
 
 
Next

" partie que je n arrive pas a résoudre

ici je souhaite ouvrir le fichier source

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks.Open Filename:=dossierEnCours & "\ddi.xlsx"
sheet(V2) 'feuille ou se trouve les éléments'
range (K2: AQ10000)

copie les éléments dans les classeur ouvert feuille collaborateur range (B2:AH...)
en fonction du nom du classeurs ( ma condition)

pour le moment 48 h plus tard je n ai que des essaies infructueux "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ThisWorkbook.Sheets("liste").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

si une bonne âme se dévoue pour m éclairer et m expliquer pour progresser un grand merci

[Menhir]

Déjà, tu devrais commencer par virer le "Application.ScreenUpdating = False" qui n'a rien à faire là en phase de développement et ne sert qu'à t'empêcher de voir ce qui se passe.

Pour faire une copie, il faut utiliser la méthode Copy de l'objet Range, lui-même propriété de l'objet Sheet (ta feuille source).

Pour coller les éléments copiés, il faut utiliser la méthode PasteSpecial de l'objet Range (mais cette fois-ci de ta feuille destination).

[keygen08]

Bonjour
a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ImportBudget() ' importation du budget
 Dim Cls As Workbook
 Dim monclasseur As String
 
    monclasseur = Range("b2").Value
 
        Set Cls = Application.Workbooks.Open("c:\sources\donnees informatiques\" & monclasseur & ".xls", , True)
 
        Cls.Sheets("budget " & annee).Range("b2:ah10").EntireColumn.Copy ThisWorkbook.Sheets(38).Range("b2:ah10")
        Application.CutCopyMode = False
        Cls.Close False
End Sub

macro installer dans le classeur de destination sinon inverser la ligne 6

[will83177]

bonjour
m a problématique est de copier coller des lignes avec comme conditionnel le nom du dossier ouvert

ma première partie de macro duplique un classeur en fonction d une variable dans une feuille et après ferme les classeurs
donc avant la fermeture du classeur je souhaite copier un fichier dans un onglet

merci pour votre aide