Bonjour,
j'ai débuté un code pour ma macro (sans connaissance dans la programmation). Ma macro sert à enregistrer le fichier sous un certain nom dans un dossier qu'elle crée si il n'existe pas puis récupérer certaines information afin de les transférer dans un fichier d'Archivage à la suite des autres informations sauvegardé. Puis ré-ouvre le fichier de base vide à remplir. Ce qui donnerais sur le fichier d'Archivage quelque chose comme cela :
![ExempleFichierArchivage.jpg ExempleFichierArchivage.jpg](https://excel-downloads.com/data/attachments/263/263304-fb980854857e5c737d2fe70762e9b4b9.jpg)
Et ma feuille source ressemble à cela : (les valeurs entourées de rouge sont celles à archiver)
![Archivage des valeurs en rouge.jpg Archivage des valeurs en rouge.jpg](https://excel-downloads.com/data/attachments/263/263311-7b19d58565643e4e5478220370203ab4.jpg)
Actuellement mon code ressemble à cela :
J'ai un soucis dans cette partie de mon code :
j'ai un message d'erreur (Erreur de compilation : Sub ou fonction non définie).
Il me surligne en jaune
Et me sélectionne le mot Workbook dans
je ne sais pas comment faire actuellement. J'ai tenté d'ajouter :
et modifier tous les Workbook en wb car j'avais vu ça.. Sans succès. Je m'essaye à différentes choses sans réellement savoir ce que je fais!
Merci de m'aider s'il vous plaît !
j'ai débuté un code pour ma macro (sans connaissance dans la programmation). Ma macro sert à enregistrer le fichier sous un certain nom dans un dossier qu'elle crée si il n'existe pas puis récupérer certaines information afin de les transférer dans un fichier d'Archivage à la suite des autres informations sauvegardé. Puis ré-ouvre le fichier de base vide à remplir. Ce qui donnerais sur le fichier d'Archivage quelque chose comme cela :
![ExempleFichierArchivage.jpg ExempleFichierArchivage.jpg](https://excel-downloads.com/data/attachments/263/263304-fb980854857e5c737d2fe70762e9b4b9.jpg)
Et ma feuille source ressemble à cela : (les valeurs entourées de rouge sont celles à archiver)
![Archivage des valeurs en rouge.jpg Archivage des valeurs en rouge.jpg](https://excel-downloads.com/data/attachments/263/263311-7b19d58565643e4e5478220370203ab4.jpg)
Actuellement mon code ressemble à cela :
Code:
Sub ChangementOF()
Dim Chemin$, Nom$, Fichier$, Dossier$, CheminArchivage$, NomArchivage$, FichierArchivage$, DossierArchivage$
Dim DerLg As Long
Chemin = "U:\Projet David\"
Nom = Range("K2")
Fichier = Nom & ".xls"
Dossier = Range("L1")
CheminArchivage = "U:\Projet David\Archivage 2014"
NomArchivage = "Archivage"
FichierArchivage = Nom & ".xls"
DossierArchivage = Range("L2")
ClasseurArchivage = "U:\Projet David\Archivage 2014\Archivage.xls"
'Selectionne le chemin et sauvegarde dans le dossier spécifier ou le crée si il est inexistant
If Dir(Chemin & Dossier, 16) = "" Then MKDIR Chemin & Dossier
ActiveWorkbook.SaveAs Chemin & Dossier & "\" & Fichier
'Copie les valeurs nécessaire dans le fichier d'archivage
With Workbook("Archivage.xls").Sheets("ArchiveBase")
DerLg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & DerLg) = Workbook(Fichier).Range("B11")
.Range("D" & DerLg) = Workbook(Fichier).Range("L5")
.Range("F" & DerLg) = Workbook(Fichier).Range("G11")
.Range("H" & DerLg) = Workbook(Fichier).Range("F26")
.Range("K" & DerLg) = Workbook(Fichier).Range("I51")
End With
ActiveWorkbook.Save
'Réouvre le fichier Excel de base
Workbooks.Open Filename:="U:\Projet David\TEST TEST.xls"
'Placer le fichier de base comme actif
Workbooks("TEST TEST").Activate
'Repositionnement de la cellule selectionné sur l'OF à remplir
Range("B11").Select
End Sub
J'ai un soucis dans cette partie de mon code :
Code:
'Copie les valeurs nécessaire dans le fichier d'archivage
With Workbook("Archivage.xls").Sheets("ArchiveBase")
DerLg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & DerLg) = Workbook(Fichier).Range("B11")
.Range("D" & DerLg) = Workbook(Fichier).Range("L5")
.Range("F" & DerLg) = Workbook(Fichier).Range("G11")
.Range("H" & DerLg) = Workbook(Fichier).Range("F26")
.Range("K" & DerLg) = Workbook(Fichier).Range("I51")
End With
ActiveWorkbook.Save
j'ai un message d'erreur (Erreur de compilation : Sub ou fonction non définie).
Il me surligne en jaune
Code:
Sub ChangementOF()
Et me sélectionne le mot Workbook dans
Code:
With Workbook("Archivage.xls").Sheets("ArchivageBase")
je ne sais pas comment faire actuellement. J'ai tenté d'ajouter :
Code:
Dim wb As Workbook
et modifier tous les Workbook en wb car j'avais vu ça.. Sans succès. Je m'essaye à différentes choses sans réellement savoir ce que je fais!
Merci de m'aider s'il vous plaît !
Dernière édition: