Discussion :

[petit-ours]

c'est encore moi...

ici c'est le PB de copier coller un onglet de fichier Table pour 100 fichiers en utilisant un macro,mais il existe un PB de [code]Workbooks.Open Var_Chemin, 0, ReadOnly:=False

merci d'avance votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copie(nom As String)
Var_Chemin = "G:\stat\nom.xls"
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
table= ActiveWorkbook.Name
nom = ActiveWorkbook.Name
Workbooks(table).Sheets("Description des données").Copy Before:=Workbooks(nom).Sheets("DONNEES")
End Sub
 
Sub test()
Copie (table1)
Copie (table2)
End Sub

[SfJ5Rpw8]

Bonjour,

et en clair (sans abuser d'abréviation ) la question est ?

[petit-ours]

Bonjour,

le problème est le chemin introuvrable, pour le fichier nom qui représente 100 classeurs, mais je ne sais pas comment dédinir dans le macro pour le nom de classeur, désolé pour mal explication.

[SfJ5Rpw8]

Bonjour,

le problème est le chemin introuvable, pour le fichier nom qui représente 100 classeurs...

mais encore ?
le but du code c'est quoi ? modifier 100 classeurs ( = fichiers) excel ..?

la copie des feuilles doit s'effectuer d'où à où ?

[petit-ours]

le but est d'inserer un même onglet"Description des données" dans 100 classeurs(classeur 1, classeur 2.....classeur 100) en utilisant un macro.

[SfJ5Rpw8]

c'est toujours incomplet ..(les messages ne sont pas limitées à une ligne sur le forum ...)



et donc elle est ou la feuille à copier ? dans le classeur "Classeur 1.xls" ?

les classeurs sont tous sous le même répertoire et ce nomment vraiment "Classeur 1.xls", "Classeur 2.xls" , ...."Classeur 100.xls" ?

[petit-ours]

tous les classeurs sont dans le même chemin et le même repertoire, G:\stat\ , avec le classeur(nomé table) à copier et 100 classeurs à inserer,
la feuille à copier est dans le classeur table,

Code :

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

Workbooks(table).Sheets("Description des données")

,

merci encore

[SfJ5Rpw8]

bon donc les fichiers de destination ce nomment bien "Classeur1.xls, Classeur2.xls...) , le code est à placer dans un module du fichier table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Sub Copie100()
Const shBEFORE = "Données" 'Nom de la feuille befor
Const stREP = "G:\stat\"  'Répertoire source
Dim stFicDest  As String 'Nom du fichier destination
Dim shSource As Worksheet 'Feuille à copier
Dim i As Integer
Dim bError As Boolean
Dim wkDest As Workbook 'Classeur destination de la copie
Set shSource = ThisWorkbook.Sheets("Description des données") ' La feuille source est sur le classeur contenant ce code.
'Ouvre fichier destination
For i = 1 To 100
  stFicDest = stREP & "Classeur" & i & ".xls" 'Définit le nom de fichier destination
  If Dir(stFicDest) = "" Then
     Debug.Print "Fichier inexistant " & stFicDest
     bError = True
  Else
 
  Set wkDest = Workbooks.Open(stFicDest)
    shSource.Copy wkDest.Worksheets(shBEFORE)
    wkDest.Close True 'Ferme en sauvant
  End If
 
Next
If bError Then Stop ' VOIR Erreurs dans fenêtre exécution : CTRL +G
 
End Sub

[petit-ours]

ça y est!!!!merci beaucoup!!!