Copier/coller dans un fichier à nom variable

Bonjour,

Je me permet de mettre un petit message ici afin de vous poser une question car cela fait deux jours que je cherches sur divers forums, videos YouTube, Tutoriel, et aide Microsoft.. Je n'arrive pas à trouver de solution.
Mon niveau en VBA est assez limité, je manque de vocabulaire pour avancer sans aide dans ce fichier.

Je vous explique donc mon problème:

J'ai un fichier A qui est un masque, un réceptacle à macro en quelque sorte.
Et un fichier B qui est un fichier à nom variable (Ce fichier est unique et doit le rester. il à une sorte de numéro de série du type : "SAP_AXXX" avec X = variables) Le fichier de base s'écrit comme suit : "SAP_A839.xls"

J'ai une première macro qui me permet d'effectuer la mise en forme de sorte à ce que le fichier B ressemble toujours au Fichier A et donc aux autre fichiers crées précédemment pour avoir une trame similaire sur tous mes fichiers.

Une fois que la mise en forme est faite, je souhaite effectuer un copier coller. (Oui c'est tout bête...).

Je demande donc à VBA d'activer le fichier A nommé "PERSONAL RC ED17.XLSB" de copier les céllules dont j'ai besoin, et de venir les copier dans le fichier B au même endroit.

Cependant, le fichier n'ayant jamais le même nom, je n'arrive pas à activer le fichier B et bien entendu je reçois un message d'erreur d’exécution 9 "L'indice n'appartient pas à la sélection".

Il faut aussi savoir que la cellule que je cherche à copier/coller subit juste avant, une macro permettant d’incrémenter +1 au numéro de série à chaque réalisation de la macro de mise en forme et j'ai pas réussis à l'incorporer directement dans la macro de mise en forme d'ou mes 3 macros et mes copier coller haha.

J'aimerais donc que vous m'aidiez si possible afin de trouver une solution pour réaliser mon copier coller entre mes deux fichiers en prenant en compte les variables

B5 est la cellule que je veux copier et coller

Dans la cellule O5, se trouve le chiffre du numéro de série par exemple le "839" du SAP_A839

L'écrire comme ca me semblait pertinent pour être en mesure de nommer le fichier facilement, après je me suis peut être compliqué la vie...

Code:

---

1 2 3 4 5 6 7 8

Sub copy() NomFichier = "SAP_A" & Range("O5") & ".xls"   Workbooks("PERSONAL RC ED17.XLSB").Activate Range("B5").copy Workbooks(NomFichier).Activate Range("B5").PasteSpecial End Sub

---

Je vous remercie d'avance de vos conseils.

Cordialement,

Axel.

Bonjour,

Si ton fichier B est déjà ouvert au moment où tu lances ta macro, tu peux :
- Boucler sur chaque classeur ouvert
- Tester le nom de chaque classeur bouclé
- Si le nom comment par SAP, alors tu as trouvé ton fichier, et en plus tu peux récupérer son nom pour l'utiliser plus tard

/!\ Attention, cela est risqué si tu peux avoir plusieurs fichier SAP_XXXX d'ouverts en même temps.


En ce qui concerne ton incrémentation, j'ai du mal à comprendre pourquoi tu ne peux pas l'incorporer dans ta macro de mise en forme.
Mais à la limite si toutes tes macros fonctionnent, tu peux toujours en écrire une 4e qui appelle simplement les 3 autres à la suite.

Bonjour,

Utilises une (ou plusieurs) variable(s) objet pour le(s) classeur(s) :
https://silkyroad.developpez.com/VBA...riables/#LII-K

Bonjour tout d'abord merci de vos réponses rapides.

Mon fichier B s'ouvre au moment ou j’exécute la macro (Si y'a un moyen de prendre la mise en forme sans l'ouvrir cela m’intéresse)

Pour boucler le classeur j'ai trouvé ça sur internet qui permet du coup d'après ce que j'ai pu comprendre avec le lien de Patrice de donner une variable aux classeurs grâce aux données présente dans une cellule donnée. Cependant ce que j'ai du mal à comprendre dans ce code c'est qu'il va récupérer les données de la cellule O5 et s'en servir pour trouver le fichier si j'ai bien compris mais faut-il rajouter un ".Activate" ou cela est compris de façon induite dans le code ci dessous ?

Suite à ce code, je rajoute celui que j'ai posté dans mon précédent message pour qu'il copie et colle dans la feuille de calcul du coup ? Cela donnerais quelque chose comme ça...

Code:

---

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 28 29

Sub Copy()   Dim Wb As Workbook   Dim Cell As Range   Dim plage As Range   plage = [O5]   Set Ws = Sheets(1)   Workbooks("PERSONAL RC ED17.XLSB").Activate   Range("B5").copy   For Each Wb In Application.Workbooks   For Each Ws In Wb.Worksheets   For Each Cell In Ws.Range("O5") Next Wb   Range("B5").PasteSpecial   Set Ws = Nothing   End Sub

---

Quelque chose me dérange mais je sais pas quoi exactement, j'ai pas eu l'occasion de le tester car je n'ai malheureusement pas le fichier à disposition ce matin, j'effectuerais les tests aux alentours de 11h.

Le risque d'avoir plusieurs fichiers "SAP_AXXX" ouverts en même temps est présent, cependant il faudra faire cette méthode pour eux aussi est-ce quand même un risque un danger ? Mis à part celui de faire planter l'ordinateur ?

Pour ce qui est de l'incrémentation, je ne saurais pas vous répondre, chaque macro fonctionne de façon indépendante mais une fois réunies, elles ne fonctionnent plus... Et oui je comptais faire une macro principale une fois mon fichier terminé qui appellerait toutes les macro secondaires dans un ordre précis et me permettrais de tout réaliser en en lançant qu'une.

Je plusois deux interventions précédentes. :plusser:

Je rajouterai que les Activate sont inutiles, voir même négatifs (affichage désagréable, temps de traitement plus long, code plus compliqué).

Code:

---

1 2 3 4 5 6 7

Sub copy() Dim Fichier As Workbook Set Fichier = Workbooks("SAP_A" & Range("O5") & ".xls")   Workbooks("PERSONAL RC ED17.XLSB").Range("B5").Copy Fichier.Range("B5").PasteSpecial End Sub

---

Cela dit, il y a un élément qui me dérange beaucoup dans ce code : il n'y a pas de référence Worksheet (onglet) entre les Workbook et les Range.
A moins que ces deux fichiers n'aient qu'un onglet chacun (donc même pas d'onglet vide), ça laisse un risque aléatoire pour sa bonne exécution que, personnellement, je ne prendrais pas.
Il faudrait à minima placer des Worksheets(1) entre Workbook et Range.

Bonjour Menhir,

En effet, mes fichiers n'ont qu'une seule sheet à chaque fois (Le fichier A à été enregistré comme ça et le fichier B est l'exportation d'un logiciel de contrôle, il ne sort donc qu'une seule sheet lors de son export)

Pour ce qui est des activate, j'avoue je suis coupable c'est l'éditeur de macro :roll:

Finalement j'ai pu me procurer le fichier plus tôt que prévu, et malheureusement le code ne fonctionne pas, il met le message d'erreur d’exécution 9 "L'indice n'appartient pas à la sélection" et il me surligne

Code:

---

Set Fichier = Workbooks("SAP_A" & Range("O5") & ".xls")

---

en disant qu'il n'y a aucunes référence à ça.

Entre temps j'ai déplacé ma cellule O5 en N5 mais j'ai effectué les modifications sur le code, du coup je comprend pas d'ou peut venir le problème. J'ai vérifié, la cellule N5 remonte l'information 839 et le fichier cherché s'appelle bien "SAP_A839.xls" et il est ouvert, le nom de la feuille est identique au nom du classeur (Je nomme les deux grâce à une combinaison de d'autres cellules présente dans le classeur et la formule est identique. Des idées quand à pourquoi cette erreur ?

Citation:

---

Envoyé par Patate3181

Pour ce qui est des activate, j'avoue je suis coupable c'est l'éditeur de macro :roll:

---

L'enregistreur de macro est très bien pour montrer la voie, donner des idées, indiquer où chercher, donner un exemple pour des paramètres, etc.

Mais en aucun cas il ne peut servir à écrire un code. Ce qu'il produit ne doit surtout pas être récupéré tel quel.

Citation:

---

Finalement j'ai pu me procurer le fichier plus tôt que prévu, et malheureusement le code ne fonctionne pas, il met le message d'erreur d’exécution 9 "L'indice n'appartient pas à la sélection" et il me surligne

Code:

---

Set Fichier = Workbooks("SAP_A" & Range("O5") & ".xls")

---

en disant qu'il n'y a aucunes référence à ça.

---

Déjà, est-ce que le fichier en question est déjà ouvert lorsque tu lances la macro.
Parce que cette instruction n'ouvre pas le fichier, elle sert juste de référence à un fichier déjà ouvert.

Ensuite, il faut vérifier le nom.
Remplace cette ligne par :

Code:

---

1 2 3 4

Dim Nom As String Nom = "SAP_A" & Range("O5") & ".xls" Debug.Print Nom Set Fichier = Workbooks(Nom)

---

Et regarde ce qui s'affiche dans la fenêtre d'exécution pour vérifier que ça corresponde précisément à ton nom de fichier.

S'il n'y a pas d'erreur, essaye de modifier la ligne "Nom = ..." par :

Code:

---

Nom = "SAP_A" & Range("O5")"

---

Voilà donc le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub copy() Dim Fichier As Workbook Dim Nom As String Nom = "SAP_A" & Range("N5") & ".xls" Debug.Print Nom Set Fichier = Workbooks(Nom)   Workbooks("PERSONAL RC ED17.XLSB").Range("B5").copy Fichier.Range("B5").PasteSpecial End Sub

---

Cela n'a rien changé, le message d'execution et son erreur reste les mêmes et il me surligne cette ligne :

Code:

---

Set Fichier = Workbooks(Nom)

---

Ai-je fait une erreur ?


D'accord, je prend note pour l'éditeur, j'peux m'en servir mais jamais lui faire confiance :lol:

Citation:

---

Déjà, est-ce que le fichier en question est déjà ouvert lorsque tu lances la macro.
Parce que cette instruction n'ouvre pas le fichier, elle sert juste de référence à un fichier déjà ouvert.

---

Oui, je lance les macros les unes après les autres pour le moment afin de les tester indépendamment, et la première macro ouvre le fichier A. La copie intervient en seconde position donc une fois que le fichier est ouvert et mit en forme

Citation:

---

Envoyé par Patate3181

Cela n'a rien changé, le message d'execution et son erreur reste les mêmes et il me surligne cette ligne :

Code:

---

Set Fichier = Workbooks(Nom)

---

Ai-je fait une erreur ?

---

As-tu regarder ce que le Debug.Print renvoie dans la fenêtre d'exécution comme je l'ai écrit ?

Citation:

---

Oui, je lance les macros les unes après les autres pour le moment afin de les tester indépendamment, et la première macro ouvre le fichier A.

---

Comme je l'ai dit, cette macro n'ouvre pas de fichier.
Pour qu'elle fonctionne, il faut que les deux fichiers soient déjà ouverts.

Citation:

---

As-tu regarder ce que le Debug.Print renvoie dans la fenêtre d'exécution comme je l'ai écrit ?

---

Oups Autant pour moi je n'avais pas vu la fenetre d'execution elle était miniaturisée en bas je savais même pas que c'était là !

Du coup il ne remonte pas le numéro 839. La fenetre d'execution affiche "SAP_A.xls".

Citation:

---

Comme je l'ai dit, cette macro n'ouvre pas de fichier.
Pour qu'elle fonctionne, il faut que les deux fichiers soient déjà ouverts.

---

Hum oui, du coup comme je te l'ai dis également, la macro "Copy" étant la seconde macro lancée, le fichier est ouvert. Il me semblait que c'était clair, désolé si ce n'était pas le cas

Autre piste qui pourrait potentiellement être envisagée,

Mon fichier A contient des données de bases.
Ces données sont transférées avec la mise en forme

Mon fichier de mise en forme copie et colle automatiquement des données, cependant lors de sa réalisation je ne me rappelle pas lui avoir donner des données à écrire. Pourtant il recopie tout le temps les mêmes, aurais-je par mégarde fixé les données faisant en sorte qu'elles ne changent jamais.

Même en changeant les données dans le fichier A avant d'effectuer la mise en forme, ce sont les anciennes données qui sont transférées. Peut être mon code comporte un soucis ?
J'vous le colle

/!\ Il est long....

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320

'LIGNES Public Const nbLig_avEntete As Integer = 0 Public Const nbLig_entete As Integer = 12 Public Const lig_titresRC As Integer = nbLig_avEntete + 1 Public Const lig_titresCol As Integer = nbLig_avEntete + nbLig_entete   Public Const nbLig_repete As Integer = 12 Public Const firstLig_repete As Integer = 1 Public Const lastLig_repete As Integer = firstLig_repete - 1 + nbLig_repete     'COLONNES Public Const lastCol As Integer = 9 'COLONNE I (9)     'DOCUMENT Public Const zone_impr As String = "$A:$I" Public Const cheminAcces_image As String = "C:\Logo SAP2013.jpg"     Public i As Integer       Sub RC_Mise_en_forme() ' ' RC_Mise_en_forme Macro ' 'NOM DU FICHIER Dim NomFichier As String NomFichier = Application.ActiveWindow.Caption Dim NomFeuil As String NomFeuil = Application.ActiveWindow.ActiveSheet.Name     'RESULTATS : CENTRAGE With Range("C:I") .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With     'RESULTATS : FORMAT NUMERIQUE Range("C:G,I:I").NumberFormat = "0.000"     'COLONNE CONFORMITE, mise en forme conditionnelle Columns("H:H").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""OK""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = True Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""NC""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = True     'LARGEURS DES COLONNES Cells.EntireColumn.AutoFit 'Columns(1).ColumnWidth = 10 'Range("A:I").EntireColumn.ColumnWidth = 10     'BORDURES RESULTATS Columns("A:I").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With     'INSERTION LIGNES EN TETE Rows(1).Select Dim i As Integer For i = 1 To nbLig_avEntete Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Rows(1 + nbLig_avEntete).Select For i = 1 To nbLig_entete Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next     'COPIE EN TETE Windows("PERSONAL RC ED17.XLSB").Activate 'fichier de macro Worksheets("EnTete RC").Rows("1:" & nbLig_entete).Copy 'COPIE de l'en tete     'COLLAGE EN TETE Windows(NomFichier).Activate 'fichier de resultats Rows(nbLig_avEntete + 1 & ":" & nbLig_avEntete + 1 + nbLig_entete).Select ActiveSheet.Paste       'BORDURE TITRES DE COLONNE With Range(Cells(lig_titresCol, 1), Cells(lig_titresCol, lastCol)) .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone With .Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End With     'DOCUMENT : POLICE Application.CutCopyMode = False With Cells.Font .Name = "Arial" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With     'TITRE : POLICE ET MISE EN FORME With Range(Cells(lig_titresRC, 1), Cells(lig_titresRC, lastCol)) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True With .Font .Name = "Arial" .Size = 18 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone .Bold = True .Underline = xlUnderlineStyleSingle End With End With Rows(lig_titresRC).RowHeight = 37.5     'DOCUMENT : MISE EN FORME 'alignement vertical Cells.Select With Selection .VerticalAlignment = xlCenter End With   'ajustement de la lageur des cellules Cells.EntireColumn.AutoFit Columns(8).EntireColumn.AutoFit 'COLONNE 8 : conformité     'IMPRESSION 'répétition lignes à l'impression With ActiveSheet.PageSetup .PrintTitleRows = "$" & firstLig_repete & ":$" & lastLig_repete .PrintTitleColumns = "" End With 'zone d'impression 1 ActiveSheet.PageSetup.PrintArea = zone_impr     'MISE EN PAGE With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "&""Arial,Normal""&8FORM_10-C Rev04" .CenterFooter = "&""Arial,Normal""&8Page &P de &N" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.7 / 2.54) '0,7 0.275590551181102 .RightMargin = Application.InchesToPoints(0.6 / 2.54) '0,6 0.236220472440945 .TopMargin = Application.InchesToPoints(0.31496062992126) .BottomMargin = Application.InchesToPoints(1.9 / 2.54) '1,9 0.648031496062992 .HeaderMargin = Application.InchesToPoints(0.8 / 2.54) '0,8 0.31496062992126 .FooterMargin = Application.InchesToPoints(0.8 / 2.54) '0,8 0.31496062992126 .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = True .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1000 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With   'IMPRESSION BIS ActiveSheet.PageSetup.PrintArea = zone_impr   'NON SCINTILLEMENT IMAGE Worksheets(NomFeuil).DisplayPageBreaks = False     'SELECTION CELLULE Range("A1").Select   'ACTIVER LE SAUT DE PAGE ActiveWindow.View = xlPageBreakPreview   End Sub

---

(Il est peut être pas super optimisé, cependant il fonctionne correctement si on met de coté les données figées.)

Passer par là pourrait éventuellement éviter la création de la macro copy en soit mais j'avoue que ce code j'y ai passé tellement de temps dessus que je n'arrive plus à trouver les erreurs ou les problèmes...

Citation:

---

Envoyé par Patate3181

Du coup il ne remonte pas le numéro 839. La fenetre d'execution affiche "SAP_A.xls".

---

Ce qui signifie que la valeur ne se trouve pas en N5 ou que ce n'est pas la bonne Worksheet qui est active à ce moment-là et donc que la macro va chercher la valeur dans la cellule N5 d'une autre feuille.

Citation:

---

la macro "Copy"

---

Donner à une macro le nom d'une (et même plusieurs) méthode existante, c'est vraiment chercher inutilement les ennuis.

Pourtant, si je retire la ligne qui lui mentionne le fait de changer de page pour coller, Il reste sur le classeur ou il prend les données et colle la bonne information. C'est ça que je ne comprend pas, lorsqu'il change de feuille, il perd une information sur les deux qu'il doit remonter.

Pourquoi c'est chercher les ennuis ? Ça crée une interférence quelconque le nom de la macro ? Si c'est le cas je peux toujours le changer c'est pas un soucis.

Bonjour,

Citation:

---

Envoyé par Patate3181

Pourquoi c'est chercher les ennuis ?

---

Parce que Microsoft qui le dit !

Citation:

---

Envoyé par Patate3181

Ça crée une interférence quelconque le nom de la macro ?

---

Oui :
En règle générale, vous ne devez utiliser aucun nom identique aux noms de fonction, d'instruction, de méthode et de constante intrinsèque utilisés dans Visual Basic ou par l'application hôte. Sinon, vous pouvez occulter les mêmes mots-clés du langage.
En VO :
Generally, you shouldn't use any names that are the same as the function, statement, method, and intrinsic constant names used in Visual Basic or by the host application. Otherwise you end up shadowing the same keywords in the language.
Ici :
https://docs.microsoft.com/fr-fr/off...c-naming-rules

Très bien effet, je ne savais pas tout ça, j'ai changé le nom de la macro pour "Copier_Coller" il je devrait plus y avoir de soucis théoriquement merci

Pour ce qui est du code en lui même vous auriez une idée de pourquoi il perd des données au changement de feuille ?

Bonjour,

Citation:

---

Envoyé par Patate3181

Pour ce qui est du code en lui même vous auriez une idée de pourquoi il perd des données au changement de feuille ?

---

Je n'ai pas analysé ton code : il y a beaucoup trop de variables publiques inutiles !
C'est probablement la cause du problème.
Remplaces-les par des variables locales (niveau procédure) et transmet les arguments nécessaires aux procédures et fonctions.

Quelques conseils sur les variables :
1) Commencer tous les modules par Option Explicit ce qui oblige à déclarer toutes les variables.
2) Les déclarer avec un type le plus précis possible et faire attention à préciser le type après chaque variable.
3) Toujours minimiser au maximum la portée des variables, afin qu'elles n'existent que là où elles sont nécessaires.
4) Penser à utiliser des variables objets, ça simplifie le code et ça facilite la lecture.
5) Libérer la mémoire dès que possible, en particulier pour les tableaux et les objets

voir ce fil :
https://www.developpez.net/forums/d1.../#post11063786

Bonjour à tous ! j'ai trouvé la solution !

En fait ce qui bloquait était tout bête ! En fait, je prend les données d'une cellule fusionnée et je souhaite les coller dans d'autres, et ca bloque ! j'avais pas remarqué !

Du coup je dé-fusionne, je copie, je colle je re fusionne et je met un format à gauche

Code :

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

Sub Copier_Coller()   'Permet de copier coller le code S/N du fichier Macro au Rapport de Contrôle     'Définition des variables Dim NomFichier As String Dim NomFeuille As String   'Dé-fusionner les cellules du fichier à nom variable Range("B5", "D5").MergeCells = False   'Activer le fichier macro Windows("PERSONAL RC ED17.XLSB").Activate   'Copier Worksheets("EN TETE RC").Range("B5").Copy   'Déterminer le fichier à nom variable et la feuille NomFichier = Range("B5").Value & ".xls" NomFeuille = Range("B5").Value & ".xls"   'Activer le fichier et sélectionner la feuille à nom variable Windows(NomFichier).Activate Sheets(NomFeuille).Select   'Coller Range("B5").PasteSpecial   'Fusionner les cellules du fichier à nom variable Range("B5", "D5").MergeCells = True   'Aligner à gauche les cellules fusionnées With Range("B5:D5") .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext End With End Sub

---

Le code n'est peut être pas parfait mais il est fonctionnel !

Encore merci à vous tous pour votre patience et vos conseils :)

Bonne journée