Copier Coller en valeurs entre fichiers sans .select
Résolu/Fermé
curiosity42
Messages postés
2
Date d'inscription
dimanche 7 décembre 2014
Statut
Membre
Dernière intervention
8 décembre 2014
-
Modifié par pijaku le 8/12/2014 à 15:09
curiosity42 Messages postés 2 Date d'inscription dimanche 7 décembre 2014 Statut Membre Dernière intervention 8 décembre 2014 - 8 déc. 2014 à 14:34
curiosity42 Messages postés 2 Date d'inscription dimanche 7 décembre 2014 Statut Membre Dernière intervention 8 décembre 2014 - 8 déc. 2014 à 14:34
A voir également:
- Copier Coller en valeurs entre fichiers sans .select
- Wetransfer gratuit fichiers lourd - Guide
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Reboot and select proper boot device - Forum Windows
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
7 déc. 2014 à 23:19
7 déc. 2014 à 23:19
Bonsoir Curiosity, bonsoir le forum,
Essaie comme ça :
Essaie comme ça :
Sub Macro1()
Dim monclasseur As Workbook
'désactivation mode "lecture seule"
SetAttr "C:\Users\Curiosity\Documents\SuiviHeures\Synthese\FichierSynthese.xlsm", vbNormal
'ouverture classeur
Set monclasseur = Workbooks.Open("C:\Users\Curiosity\Documents\SuiviHeures\Synthese\FichierSynthese.xlsm")
If ThisWorkbook.Sheets("FicheTemps").Range("B3") = "DUPONT" Then
ThisWorkbook.Sheets("Total").Rows("1:16").Copy
monclasseur.Sheets("Recap").Range("A1").PasteSpecial (xlPasteValues)
Else
If ThisWorkbook.Sheets("FicheTemps").Range("B3") = "DURAND" Then
ThisWorkbook.Sheets("Total").Rows("1:16").Copy
monclasseur.Sheets("AMEG").Range("A18").PasteSpecial (xlPasteValues)
End If
End If
Application.CutCopyMode = False
'fermeture et sauvegarde du classeur
monclasseur.Close True
ThisWorkbook.Close True 'Pour qu'ils ne puissent pas le modifier. En plus on met un mdp sur le dossiers des fichiers arrivant
End Sub
8 déc. 2014 à 14:34