Re: copier coller dans un même classeur | ||
---|---|---|
Inscription: 11/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 16-04-2013 19h25
bonjour MTH,
super travail, je suis soulagée. MERCI Cependant, j'ai copier la macro sauvegarde et il me met erreur 1004 de plus il y a cette phrase qui se surligne en jaune With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule pour plus de précision je l'ai copier dans la précédente macro que tu m'as transmise peut être que je ne dois pas faire ainsi ?? Sincèrement Merci beaucoup |
|
|
Re: copier coller dans un même classeur | ||
---|---|---|
Inscription: 11/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 16-04-2013 19h35
re MTH, encore je te sollicite : 'Chemin = celui du fichier, à adapter (dois-je mettre ici le dossier où seront sauvegarder mes feuilles ? Dim Chemin As String, NomFic As String Chemin = ThisWorkbook.Path & "" If NomFic <> "" Then
par contre pour la fonction remise à blanc dans le précédent code , b6 à b13 ça ne fonctionne pas tout s'enregistre sur ma feuille rapport sans problème mais quand à ma feuille di le numéro s'incrémente parfaitement mais les données reste inscrite |
|
|
Re: copier coller dans un même classeur | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 16-04-2013 22h48
Bonsoir ocealimer, bonsoir à tous,
Pour ton erreur 1004, je pense que tu dois autoriser l'accès au projet Visual Basic. Dans le menu Outils/Macros/Sécurités, il doit y avoir quelque chose comme "paramètres des macros pour les développeurs", il faut cocher la case "Accès approuvé au modèle d'objet du VBA" Pour ton chemin, ce n'est pas sur la ligne de commentaire en vert qu'il faut changer. Dans le code j'ai utilisé ThisWorkbook.Path qui donne le chemin du fichier actuel, suivi du signe antislash: \ , ceci donne donne donc pour la variable Chemin: Chemin = ThisWorkbook.Path & "" Si tu veux placer ton fichier ailleurs, par exemple dans le répertoire Toto, tu peux l'écrire en dur: Chemin = "C:\Toto" Pour la mise à blanc je ne comprends pas, chez moi ce code placé à la fin fonctionne: With Sheets("DI") Est-ce bien ce que tu as recopié? Très bonne soirée et à bientôt, mth |
|
|
Re: copier coller dans un même classeur | ||
---|---|---|
Inscription: 11/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 19-04-2013 19h44
bonjour MTH,
tout fonctionne super bien, juste l'enregistrement de la feuille dans un dossier , en fait je voudrais que celui s'enregistre sur un dossier en réseau : R/ mais j'ai beau selectionner le dossier pour la sauvegarde rien n'y fait. MERCI BEAUCOUP océalimer |
|
|
Re: copier coller dans un même classeur | ||
---|---|---|
Inscription: 23/05/2008
De La Varenne Saint-Hilaire
Messages:
356
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 19-04-2013 22h44
Bonsoir ocealimer, bonsoir à tous,
A la place de cette ligne: 'Format de fichier 56= Excel 97-2003 essaie ceci: ActiveWorkbook.SaveAs Filename:=Chemin & NomFic & ".xls", FileFormat:= xlExcel8 en définissant plus haut ta variable chemin: Chemin = "R:\ton répertoire\" Bien à toi, mth |
|
|